Wincc操作MySQL实例

　　搭建MySQL环境
　　createdatabasepeople；创建数据库people
　　创建一张个人信息表
　　idtimenameagenumber
　　CREATETABLE个人信息（
　　idbigintNOTNULLAUTOINCREMENT，
　　timedatetimedefaultCURRENTTIMESTAMP，
　　namechar（20）DEFAULTNULL，
　　agechar（20）DEFAULTNULL，
　　numberchar（20）DEFAULTNULL，
　　PRIMARYKEY（id）
　　）
　　insertinto个人信息（id，name，age，number）values（null，张三，27，13012345678）；插入数据SQL语句
　　selectfrom个人信息wherenameconditionSQL查询语句
　　Wincc内部变量创建
　　Wincc画面创建
　　Wincc存数据vbs脚本
　　SubOnLButtonUp（ByvalItem，ByvalFlags，Byvalx，Byvaly）
　　Dimssql
　　Dimscom
　　Dimors
　　Dimconn
　　Dimocom
　　Dimcon
　　Dimdata1，data2，data3
　　取wincc变量
　　data1HMIRuntime。tags（name）。read
　　data2HMIRuntime。tags（age）。read
　　data3HMIRuntime。tags（number）。read
　　连接数据库，此处为数据库连接的标准语法结构。
　　ConDriverMySQLODBC8。0UnicodeDriver；SERVERlocalhost；UIDroot；PWDroot；DATABASEpeople；PORT3306
　　SetconnCreateobject（adodb。connection）
　　conn。connectionstringcon
　　conn。cursorlocation3
　　conn。open
　　ssqlinsertinto个人信息（id，name，age，number）values（null，data1，data2，data3）；
　　SetorsCreateobject（adodb。recordset）
　　SetocomCreateobject（adodb。command）
　　Setocom。activeconnectionconn
　　ocom。commandtype1
　　ocom。commandtextssql
　　Setorsocom。execute
　　SetorsNothing
　　conn。close
　　SetconnNothing
　　EndSub
　　Wincc读数据vbs脚本
　　SubOnLButtonUp（ByvalItem，ByvalFlags，Byvalx，Byvaly）
　　Dimssql
　　Dimscom
　　Dimors
　　Dimconn
　　Dimocom
　　Dimcon
　　Dimdata1，data2，data3，data4，data5
　　Dimdata6，data7，data8，data9，data10，data11
　　下面的data11变量为在画面中所输入的条件查询变量，结合下面的select语法，将输入与表中编号比较，等于则取出该行值。
　　data11HMIRuntime。tags（condition）。read
　　连接数据库
　　ConDriverMySQLODBC8。0UnicodeDriver；SERVERlocalhost；UIDroot；PWDroot；DATABASEpeople；PORT3306
　　SetconnCreateobject（adodb。connection）
　　conn。connectionstringcon
　　conn。cursorlocation3
　　conn。open
　　下面语句为查询数据库select语句
　　ssqlselectfrom个人信息wherenamedata11；
　　标准的数据库操作属性和方法
　　SetorsCreateobject（adodb。recordset）
　　SetocomCreateobject（adodb。command）
　　Setocom。activeconnectionconn
　　ocom。commandtype1
　　ocom。commandtextssql
　　Setorsocom。execute
　　此处为赋表中的列04值到变量data610
　　data6ors。fields（0）。value
　　data7ors。fields（1）。value
　　data8ors。fields（2）。value
　　data9ors。fields（3）。value
　　data10ors。fields（4）。value
　　Setdata1HMIRuntime。tags（idr）
　　Setdata2HMIRuntime。tags（timer）
　　Setdata3HMIRuntime。tags（namer）
　　Setdata4HMIRuntime。tags（ager）
　　Setdata5HMIRuntime。tags（numberr）
　　下面为将data610值写入data15中。
　　data1。read
　　data1。writedata6
　　data2。read
　　data2。writedata7
　　data3。read
　　data3。writedata8
　　data4。read
　　data4。writedata9
　　data5。read
　　data5。writedata10
　　数据库操作完的结束语句，为标准格式语句。
　　SetorsNothing
　　conn。close
　　SetconnNothing
　　EndSub