wincc中使用vbs脚本读写sqlserver数据库文件

《wincc中使用vbs脚本读写sqlserver数据库文件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、完美WORD格式例程：Wincc读写SQLServer数据库一、在数据库中建立数据库文件，文件名为“读写数据库”，在数据库中建立新的表，命名为“个人信息”分别建立编号、姓名、年龄。二、数据库中建立表后，在wincc中建立与数据库中类型相同的变量，变量类型相同在读写数据时很重要。在图形编辑器中新建画面，并在画面中增加三个输入输出域，并连接变量。三、添加两个按钮控件，分别命名为写数据、读数据1、在写数据按钮中写入一下VBS脚本wincc变量写入数据库定义变量DimsConDimsSqlDimoRsDi

2、mconnDimoComDimConDimData1,Data2,Data3‘读取wincc变量Data1=HMIRuntime.tags("编号").readData2=HMIRuntime.tags("姓名").readData3=HMIRuntime.tags("年龄").read‘连接数据库Con="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=读写数据库;DataS

3、ource=.WINCC"Setconn=CreateObject("ADODB.Connection")conn.ConnectionString=Conconn.CursorLocation=3conn.Open‘写入数据库sSql="insertinto个人信息VALUES('"&Data1&"','"&Data2&"','"&Data3&"');"SetoRs=CreateObject("ADODB.Recordset")SetoCom=CreateObject("ADODB.Comma

4、nd")SetoCom.ActiveConnection=connoCom.CommandType=1oCom.CommandText=sSqlSetoRs=oCom.ExecuteSetoRs=Nothingconn.CloseSetconn=Nothing专业整理知识分享完美WORD格式DimsConDimsSqlDimoRsDimconnDimoComDimConDimData1,Data2,Data3'读取wincc变量Data1=HMIRuntime.tags("编号").readDat

5、a2=HMIRuntime.tags("姓名").readData3=HMIRuntime.tags("年龄").read'连接数据库Con="Provider=SQLOLEDB.1;nitialCatalog=读写数据库;DataSource=panzhiyou;uid=sa;pwd=panzhiyou"Setconn=CreateObject("ADODB.Connection")conn.ConnectionString=Conconn.CursorLocation=3conn.Open'写

6、入数据库sSql="insertinto个人信息VALUES('"&Data1&"','"&Data2&"','"&Data3&"');"SetoRs=CreateObject("ADODB.Recordset")SetoCom=CreateObject("ADODB.Command")SetoCom.ActiveConnection=connoCom.CommandType=1oCom.CommandText=sSqlSetoRs=oCom.ExecuteSetoRs=Nothingconn.C

7、loseSetconn=Nothing在实际项目中需要修改的只有定义变量时增加或减少数据data的个数，Data1=HMIRuntime.tags("编号").read中的变量名，数据库的名字，以及数据库的表名2、在读数据按钮中写入一下VBS脚本读取数据库变量到wincc变量定义变量DimsConDimsSqlDimoRsDimconnDimoComDimCon专业整理知识分享完美WORD格式DimData1DimData2DimData3Dimdata4Dimdata5Dimdata6Dimda

8、ta7data7=HMIRuntime.tags("编号").readCon="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=读写数据库;DataSource=.WINCC"Setconn=CreateObject("ADODB.Connection")conn.ConnectionString=Conconn.CursorLocation=3conn.Op