(完整word版)wincc中使用VBS脚本读写SQLServer数据库文件

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

2、Data1=HMIRuntime.tags( 编号).readData2=HMIRuntime.tags(姓名).readData3=HMIRuntime.tags(年龄).read连接数据库Con=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog= 读写数据库；Data Source=.WINCCSet conn = CreateObject(ADODB.Connection) conn.ConnectionString = Conconn.CursorLocation

3、= 3conn.Open写入数据库sSql=insert into个人信息 VALUES。 & Data1 & , & Data2&,&Data3&);Set oRs = CreateObject(ADODB.Recordset)Set oCom = CreateObject(ADODB.Command)Set oCom.ActiveConnection = connoCom.CommandType = 1 oCom.CommandText = sSqlSet oRs = oCom.ExecuteSet oRs = Nothingconn.CloseSet conn = NothingDim

4、sCon Dim sSql Dim oRs Dim connDim oCom Dim ConDim Datal, Data2, Data3读取wincc变量Data1=HMIRuntime.tags（ 编号）.readData2=HMIRuntime.tags（姓名）.readData3=HMIRuntime.tags（年龄）.read连接数据库Con=Provider=SQLOLEDB.1;nitialCatalog= 读 写 数 据 库 ；DataSource=panzhiyou;uid=sa;pwd=panzhiyouSet conn = CreateObject（ADODB.Conne

5、ction） conn.ConnectionString = Conconn.CursorLocation = 3conn.Open 写入数据库sSql=insert into 个人信息 VALUES。 & Data1 & , & Data2&,&Data3&）;Set oRs = CreateObject（ADODB.Recordset）Set oCom = CreateObject（ADODB.Command）Set oCom.ActiveConnection = connoCom.CommandType = 1 oCom.CommandText = sSql Set oRs = oCom

6、.ExecuteSet oRs = Nothingconn.CloseSet conn = Nothing在实际项目中需要修改的只有定义变量时增加或减少数据data的个数，Data1=HMIRuntime.tags（ 编号）.read 中的变量名，数据库的名字，以及数据库的表名2、在读数据按钮中写入一下VBS脚本读取数据库变量到 wincc变量 定义变量Dim sConDim sSqlDim oRsDim connDim oComDim ConDim DatalDim Data2Dim Data3Dim data4Dim data5Dim data6Dim data7data7=HMIRunt

7、ime.tags(编号).readCon=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog=读写数据库；Data Source=.WINCCSet conn = CreateObject(ADODB.Connection)conn.ConnectionString = Conconn.CursorLocation = 3conn.Open sSql=SELECT * FROM 个人信息 WHERE编号=&data7&;Set oRs = CreateObject(ADODB

8、.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 datal.write data4Set data1=HMIRuntime.Tags(编号)Set data

9、2=HMIRuntime.Tags(姓名)Set data3=HMIRuntime.Tags(年龄) datal.Readdatal.Write data4data2.Readdata2.Write data5data3.Readdata3.Write data6Set oRs = Nothing conn.Close Set conn = NothingDim sConDim sSql Dim oRs Dim connDim oCom Dim ConDim DatalDim Data2 Dim Data3Dim data4Dim data5Dim data6Dim data7data7=HM

10、IRuntime.tags(编号).readCon=Provider=SQLOLEDB.1;nitialCatalog= 读 写 数 据 库 ；DataSource=panzhiyou;uid=sa;pwd=panzhiyou Set conn = CreateObject(ADODB.Connection) conn.ConnectionString = Conconn.CursorLocation = 3 conn.OpensSql=SELECT * FROM 个人信息 WHERE编号=&data7&; Set oRs = CreateObject(ADODB.Recordset)Set

11、oCom = CreateObject(ADODB.Command)Set oCom.ActiveConnection = connoCom.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).Valuedatal.write data4Set data1=HMIRuntime.Tags（编号）Set data2=HMIRuntime.Tags

12、（姓名）Set data3=HMIRuntime.Tags（年龄） datal.Readdatal.Write data4data2.Readdata2.Write data5data3.Readdata3.Write data6Set oRs = Nothingconn.CloseSet conn = Nothingwincc ,再编号输入读取数据时，按照编号读取数据，在实际中需要修改数据库语言。运行 输出域中输入编号，点击读数据按钮，得到需要的数据210216连退检查台 wincc画面显示钢卷信息的程序:前提条件：需要打开SQL2005添加SQL2000的服务器 添加情况如图:注：Auth

13、entication选项是选择验证模式的。和配置的服务器有关系。一般有两种验证模式。现场的SQL2000的服务器都是以上图示的验证方式。用户名 sa,密码123。而 WINCC 的SQL2005服务器都是另一种身份验证。不需要写用户名和密码。在画面上添加一个listview 控件，对象名称改为 listviewl ;设置其属性，代码可以，直接设置也可以。此例子为直接设置。设置的内容包括：1. view属性设为32. ColumnHeaders属性添加显示的列名字，设置列的宽度。注意列的个数要和你程序 里想显示的每一项的数据个数一致。而且列名也要和每一项的数据显示一致。此程序列名有：序号，上卷钢

14、卷号，钢带厚度，钢带宽度，焊缝距离。对应的数据库是：TuiHuo表是：上卷钢卷信息表。3.其余的listview属性的改变可视具体情况进行修改。对应代码：Sub OnClick(ByVal Item)Dim sPro,sDsn,sSer,sCon,sSql,oRS,conn,oCom,oItem,m,n,s,i,oList sPro=Provider=SQLOLEDB;sDsn=Initial Catalog=TuiHuo;sSer= Data Source=ZHAOLINA;uid=sa;pwd=123;sCon= sPro+sDsn+sSersSql=SELECT * FROM 上卷钢卷信

15、息表Set conn=CreateObject(ADODB.Connection)conn.ConnectionString=sConconn.CursorLocation=3conn.OpenSet oRs=CreateObject(ADODB.Record)Set oCom=CreateObject(ADODB.Command)oCom.CommandType=1Set oCom.ActiveConnection=connoCom.CommandText=sSqlSet oRs=oCom.Executen=oRs.RecordCountMsgBox(n)Set oList=ScreenIt

16、ems(listview1)oList.ListItems.ClearoList.View =3 oList.GridLines =True olist.ColumnHeaders.Clearolist.ColumnHeaders.Add ,CStr(oRs.Fields(0).Name),100olist.ColumnHeaders.Add ,CStr(oRs.Fields(1).Name),150olist.ColumnHeaders.Add ,CStr(oRs.Fields(9).Name),100olist.ColumnHeaders.Add ,CStr(oRs.Fields(10).Name),100olist.ColumnHeaders.Add ,CStr(oRs.Fields(11).Name),100If(n0) ThenoRs.MoveFirstEnd Ifm=0Do While Not oRs.EOFm=m+1Set oItem=oList.ListItems.Add()oItem.text=CStr(oRs.Fields(0).valu