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

Wincc读写SQLServer数据库一、在数据库中建立数据库文件，文件名为“读写数据库”，在数据库中建立新的表，命名为“个人信息”分别建立编号、姓名、年龄。二、数据库中建立表后，在wincc中建立与数据库中类型相同的变量，变量类型相同在读写数据时很重要。在图形编辑器中新建画面，并在画面中增加三个输入输出域，并连接变量。三、添加两个按钮控件，分别命名为写数据、读数据1、在写数据按钮中写入一下VBS脚本wincc变量写入数据库定义变量DimsConDimsSqlDimoRsDimconnDimoComDimConDimData1,Data2,Data3‘读取wincc变量Data1=HMIRuntime.tags(编号).readData2=HMIRuntime.tags(姓名).readData3=HMIRuntime.tags(年龄).read‘连接数据库Con=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=读写数据库;DataSource=.\WINCCSetconn=CreateObject(ADODB.Connection)conn.ConnectionString=Conconn.CursorLocation=3conn.Open‘写入数据库sSql=insertinto个人信息VALUES('&Data1&','&Data2&','&Data3&');SetoRs=CreateObject(ADODB.Recordset)SetoCom=CreateObject(ADODB.Command)SetoCom.ActiveConnection=connoCom.CommandType=1oCom.CommandText=sSqlSetoRs=oCom.ExecuteSetoRs=Nothingconn.CloseSetconn=Nothing在实际项目中需要修改的只有定义变量时增加或减少数据data的个数，Data1=HMIRuntime.tags(编号).read中的变量名，数据库的名字，以及数据库的表名2、在读数据按钮中写入一下VBS脚本读取数据库变量到wincc变量定义变量DimsConDimsSqlDimoRsDimconnDimoComDimConDimData1DimData2DimData3Dimdata4Dimdata5Dimdata6Dimdata7data7=HMIRuntime.tags(编号).readCon=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=读写数据库;DataSource=.\WINCCSetconn=CreateObject(ADODB.Connection)conn.ConnectionString=Conconn.CursorLocation=3conn.OpensSql=SELECT*FROM个人信息WHERE编号='&data7&';SetoRs=CreateObject(ADODB.Recordset)SetoCom=CreateObject(ADODB.Command)SetoCom.ActiveConnection=connoCom.CommandType=1oCom.CommandText=sSqlSetoRs=oCom.Execute'SetoRs=Nothingdata4=oRs.Fields(0).Valuedata5=oRs.Fields(1).Valuedata6=oRs.Fields(2).Value'data1.writedata4Setdata1=HMIRuntime.Tags(编号)Setdata2=HMIRuntime.Tags(姓名)Setdata3=HMIRuntime.Tags(年龄)data1.Readdata1.Writedata4data2.Readdata2.Writedata5data3.Readdata3.Writedata6SetoRs=Nothingconn.CloseSetconn=Nothing读取数据时，按照编号读取数据，在实际中需要修改数据库语言。运行wincc，再编号输入输出域中输入编号，点击读数据按钮，得到需要的数据