Wincc操作MySQL实例

*********************************搭建MySQL环境************************

create database people;#创建数据库people

/*

创建一张个人信息表

id time name age number

*/

'CREATE TABLE `个人信息` (

`id` bigint NOT NULL AUTO_INCREMENT,

`time` datetime default CURRENT_TIMESTAMP,

`name` char(20) DEFAULT NULL,

`age` char(20) DEFAULT NULL,

`number` char(20) DEFAULT NULL,

' PRIMARY KEY (`id`)

)

insert into 个人信息(id,name,age,number) values(null,'张三','27','13012345678'); #插入数据SQL语句

select * from 个人信息 where name = 'condition'# SQL查询语句

*********************************Wincc内部变量创建************************

*********************************Wincc画面创建*****************************

*********************************Wincc存数据vbs脚本***********************

Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y)

Dim ssql

Dim scom

Dim ors

Dim conn

Dim ocom

Dim con

Dim data1,data2,data3

取wincc变量

data1=HMIRuntime.tags ("name").read

data2=HMIRuntime.tags ("age").read

data3=HMIRuntime.tags ("number").read

'连接数据库,此处为数据库连接的标准语法结构。

Con="Driver=MySQL ODBC 8.0 Unicode Driver;SERVER=localhost;UID=root;PWD=root;DATABASE=people;PORT=3306"

Set conn=Createobject("adodb.connection")

conn.connectionstring= con

conn.cursorlocation=3

conn.open

ssql="insert into 个人信息(id,name,age,number) values(null,'"&data1&"','"&data2&"','"&data3&"');"

Set ors=Createobject("adodb.recordset")

Set ocom=Createobject("adodb.command")

Set ocom.activeconnection=conn

ocom.commandtype=1

ocom.commandtext=ssql

Set ors=ocom.execute

Set ors=Nothing

conn.close

Set conn=Nothing

End Sub

********************************Wincc读数据vbs脚本************************

Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y)

Dim ssql

Dim scom

Dim ors

Dim conn

Dim ocom

Dim con

Dim data1,data2,data3,data4,data5

Dim data6,data7,data8,data9,data10,data11

'下面的data11变量为在画面中所输入的条件查询变量，结合下面的select语法，将输入与表中编号比较，等于则取出该行值。

data11=HMIRuntime.tags ("condition").read

'连接数据库

Con="Driver=MySQL ODBC 8.0 Unicode Driver;SERVER=localhost;UID=root;PWD=root;DATABASE=people;PORT=3306"

Set conn=Createobject("adodb.connection")

conn.connectionstring= con

conn.cursorlocation=3

conn.open

'下面语句为查询数据库select语句

ssql="select * from 个人信息 where name = '"&data11&"';"

'标准的数据库操作属性和方法

Set ors=Createobject("adodb.recordset")

Set ocom=Createobject("adodb.command")

Set ocom.activeconnection=conn

ocom.commandtype=1

ocom.commandtext=ssql

Set ors=ocom.execute

'此处为赋表中的列0-4值到变量data6-10

data6=ors.fields(0).value

data7=ors.fields(1).value

data8=ors.fields(2).value

data9=ors.fields(3).value

data10=ors.fields(4).value

Set data1=HMIRuntime.tags ("id_r")

Set data2=HMIRuntime.tags ("time_r")

Set data3=HMIRuntime.tags ("name_r")

Set data4=HMIRuntime.tags ("age_r")

Set data5=HMIRuntime.tags ("number_r")

'下面为将data6-10值写入data1-5中。

data1.read

data1.write data6

data2.read

data2.write data7

data3.read

data3.write data8

data4.read

data4.write data9

data5.read

data5.write data10

'数据库操作完的结束语句，为标准格式语句。

Set ors=Nothing

conn.close

Set conn=Nothing

End Sub