wincc中使用VBS脚本读写SQLServer数据库文件

例程：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=.\WINCC"Set 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 = NothingDim 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;nitial Catalog=读写数据库;Data Source=panzhiyou;uid=sa;pwd=panzhiyou"Set 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 oR...