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

word 格式整理版 例程： 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 Catalog= 读写数据库 ;Data Source=.\WINCC Set conn = CreateObject(ADODB.Connection) conn.ConnectionString = Con conn.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 范文范例 学习指导 word 格式整理版 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;nitial Catalog= 读 写 数 据 库 ;Data Source=panzhiyou;uid=sa;pwd=panzhiyou Set conn = CreateObject(ADODB.Connection) conn.ConnectionString = Con conn.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