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

Wincc 读写 SQLServer 数据库 一、在数据库中建立数据库文件，文件名为“读写数据库”，在数据库中建立新的表，命名为“个人信息”分别建立编号、姓名、年龄。 二、数据库中建立表后，在 wincc 中建立与数据库中类型相同的变量，变量类型相同在读写数据时很重要。在图形编辑器中新建画面，并在画面中增加三个输入输出域，并连接变量。 三、添加两个按钮控件，分别命名为写数据、读数据1、在写数据按钮中写入一下 VBS 脚本 wincc 变量写入数据库定义变量 Dim sCon Dim sSql Dim oRs Dim conn Dim oCom Dim Con Dim Data1, Data2, Data3 ?读取 wincc 变量Data1=HMIRuntime.tags( 编号).read Data2=HMIRuntime.tags( 姓名).read Data3=HMIRuntime.tags( 年龄).read ?连接数据库 Con=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catal读og写= 数据库;Data Source=.\WINCC Set conn = CreateObject(ADODB.Connection) conn.ConnectionString = Con conn.CursorLocation = 3 conn.Open ?写入数据库 sSql=insert in个to人信息 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 oCom Dim Con Dim Data1 Dim Data2 Dim Data3 Dim data4 Dim data5 Dim data6 Dim data7 data7=HMIRuntime.tags(编号).read Con=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Info=False;Initial Catal读og写= 数据库;Data Source=.\WINCC Set conn = CreateObject(ADODB.Connection) conn.ConnectionString = Con conn.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 = Nothing data4=oRs.Fields(0).Value data5=oRs.Fields(1).Value data6=oRs.Fields(2).Value data1.write data4 Set data1=HMIRuntime.Tags(编号) Security Set data2=HMIRuntime.Tags(姓名) Set data3=HMIRuntime.Tags(年龄) data1.Read data1.Write data4 data2.Read data2.Write data5 data3.Read data3.Write data6 Set oRs = Nothing conn.Close Set conn = Nothi