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