wincc对sql数据库进行读写的实例

Dim sSql Dim sCom Dim oRs Dim conn Dim oCom Dim Con Dim data1,data2,data3 Dim data4,data5,data6,data7 '下面的data7变量为在HMI所输入的编号查询变量，结合下面的SELECT语法，将输入与表中编号比较，等于则取出该行值。 data7=HMIRuntime.Tags ("r_data").Read '连接数据库 Con="Provider=SQLOLEDB.1; Integrated Security =SSPI;Persist Security Info=False; Initial Catalog=testdata;Data Source=.\WINCC" Set conn=CreateObject("ADODB.Connection") conn.ConnectionString= Con conn.CursorLocation=3 conn.Open MsgBox "读取数据成功" '读取数据库 '下面语句为查询数据库SELECT语句 sSql="SELECT * FROM 个人信息表 WHERE number = '"&data7&"';" '标准的数据库操作属性和方法 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-2值到变量data4-6 data4=oRs.Fields(0).Value data5=oRs.Fields(1).Value data6=oRs.Fields(2).Value Set data1=HMIRuntime.Tags ("number") Set data2=HMIRuntime.Tags ("name") Set data3=HMIRuntime.Tags ("age") '下面为将data4-6值写入data1-3中。 data1.Read data1.Write data4 data2.Read data2.Write data5 data3.Read data3.Write data6 '数据库操作完的结束语句，为标准格式语句。 Set oRs=Nothing conn.Close Set conn=Nothing