WINCC中使用VBS脚本读写SQLServer数据库文件.doc

Wincc读写SQLServer数据库一、在数据库中建立数据库文件，文件名为“读写数据库”，在数据库中建立新的表，命名为“个人信息”分别建立编号、姓名、年龄。二、数据库中建立表后，在wincc中建立与数据库中类型相同的变量，变量类型相同在读写数据时很重要。在图形编辑器中新建画面，并在画面中增加三个输入输出域，并连接变量。三、添加两个按钮控件，分别命名为写数据、读数据1、在写数据按钮中写入一下VBS脚本wincc变量写入数据库定义变量Dim sCon Dim sSql Dim oRs Dim conn Dim oComDim ConDim Data1, Data2, Data3读取wincc变量Data1=HMIRuntime.tags(编号).readData2=HMIRuntime.tags(姓名).readData3=HMIRuntime.tags(年龄).read连接数据库Con=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=读写数据库;Data Source=.WINCCSet conn = CreateObject(ADODB.Connection) conn.ConnectionString = Conconn.CursorLocation = 3 conn.Open写入数据库 sSql=insert into个人信息VALUES( & 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在实际项目中需要修改的只有定义变量时增加或减少数据data的个数，Data1=HMIRuntime.tags(编号).read中的变量名，数据库的名字，以及数据库的表名2、在读数据按钮中写入一下VBS脚本读取数据库变量到wincc变量定义变量Dim sCon Dim sSql Dim oRs Dim conn Dim oComDim ConDim Data1Dim Data2Dim Data3Dim data4Dim data5Dim data6Dim data7data7=HMIRuntime.tags(编号).read Con=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=读写数据库;Data Source=.WINCCSet conn = CreateObject(ADODB.Connection) conn.ConnectionString = Conconn.CursorLocation = 3 conn.Open sSql=SELECT * FROM 个人信息 WHERE 编号=&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 Set oRs = Nothingdata4=oRs.Fields(0).Valuedata5=oRs.Fields(1).Valuedata6=oRs.Fields(2).Value data1.write data4 Set data1=HMIRuntime.Tags(编号) Set data2=HMIRuntime.Tags(姓名) Set data3=HMIRuntime.Tags(年龄) data1.Read data1.Write data4 data2.Read data2.Write data5 data3.Read data3.Write data6Set oRs = Not