2022年wincc中使用VBS腳本讀寫SQLServer數(shù)據(jù)庫文件

1、word 格式整理版例程：Wincc 讀寫 SQLServer 數(shù)據(jù)庫一、在數(shù)據(jù)庫中建立數(shù)據(jù)庫文件,文件名為“ 讀寫數(shù)據(jù)庫”為“ 個人信息” 分別建立編號、姓名、年齡；,在數(shù)據(jù)庫中建立新的表,命名二、數(shù)據(jù)庫中建立表后,在 wincc 中建立與數(shù)據(jù)庫中類型相同的變量,變量類型相同在讀寫數(shù)據(jù)時很重要；在圖形編輯器中新建畫面,并在畫面中增加三個輸入輸出域,并連接變量；三、添加兩個按鈕控件,分別命名為寫數(shù)據(jù)、讀數(shù)據(jù) 1、在寫數(shù)據(jù)按鈕中寫入一下 VBS腳本 wincc 變量寫入數(shù)據(jù)庫 定義變量Dim sCon Dim sSql Dim oRs Dim conn Dim oCom Dim Con Dim

2、Data1, Data2, Data3讀取 wincc 變量Security=SSPI;Persist Security Data1=HMIRuntime.tags編號 .read Data2=HMIRuntime.tags姓名 .read Data3=HMIRuntime.tags年齡 .read 連接數(shù)據(jù)庫Con=Provider=SQLOLEDB.1;Integrated Info=False;Initial Catalog=讀寫數(shù)據(jù)庫 ;Data Source=.WINCC Set conn = CreateObjectADODB.Connection conn.ConnectionS

3、tring = Con conn.CursorLocation = 3 conn.Open 寫入數(shù)據(jù)庫 sSql=insert into 個人信息 VALUES & Data1 & , & Data2&,&Data3&; Set oRs = CreateObjectADODB.Recordset Set oCom = CreateObjectADODB.Command Set oCom.ActiveConnection = conn oCom.CommandType = 1 oCom.CommandText = sSql Set oRs = oCom.Execute Set oRs = Not

4、hing conn.Close Set conn = Nothing 范文范例 學(xué)習(xí)指導(dǎo)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 連接數(shù)據(jù)庫Con=Provider=SQLOLEDB.1;nitial Catalog=讀寫數(shù)據(jù)庫;Data Source=pan

5、zhiyou;uid=sa;pwd=panzhiyou Set conn = CreateObjectADODB.Connection conn.ConnectionString = Con conn.CursorLocation = 3 conn.Open 寫入數(shù)據(jù)庫 sSql=insert into 個人信息 VALUES & Data1 & , & Data2&,&Data3&; Set oRs = CreateObjectADODB.Recordset Set oCom = CreateObjectADODB.Command Set oCom.ActiveConnection = co

6、nn oCom.CommandType = 1 oCom.CommandText = sSql Set oRs = oCom.Execute Set oRs = Nothing conn.Close Set conn = Nothing 在 實 際 項 目 中 需 要 修 改 的 只 有 定 義 變 量 時 增 加 或 減 少 數(shù) 據(jù) data 的 個 數(shù) ,Data1=HMIRuntime.tags 編號 .read 中的變量名,數(shù)據(jù)庫的名字,以及數(shù)據(jù)庫的表名2、在讀數(shù)據(jù)按鈕中寫入一下 VBS腳本 讀取數(shù)據(jù)庫變量到 wincc 變量 定義變量 Dim sCon Dim sSql Dim oR

7、s Dim conn Dim oCom Dim Con 范文范例 學(xué)習(xí)指導(dǎo)word 格式整理版Dim Data1 Dim Data2 Dim Data3 Dim data4 Dim data5 Dim data6 Dim data7 data7=HMIRuntime.tags編號 .read Security=SSPI;Persist Security Con=Provider=SQLOLEDB.1;Integrated Info=False;Initial Catalog=讀寫數(shù)據(jù)庫 ;Data Source=.WINCC Set conn = CreateObjectADODB.Conne

8、ction conn.ConnectionString = Con conn.CursorLocation = 3 conn.Open sSql=SELECT * FROM 個人信息 WHERE 編號 =&data7&; Set oRs = CreateObjectADODB.Recordset Set oCom = CreateObjectADODB.Command Set oCom.ActiveConnection = conn oCom.CommandType = 1 oCom.CommandText = sSql Set oRs = oCom.Execute Set oRs = Not

9、hing data4=oRs.Fields0.Value data5=oRs.Fields1.Value data6=oRs.Fields2.Value data1.write data4 Set data1=HMIRuntime.Tags 編號 Set data2=HMIRuntime.Tags 姓名 Set data3=HMIRuntime.Tags 年齡 data1.Read data1.Write data4 data2.Read data2.Write data5 data3.Read data3.Write data6 范文范例 學(xué)習(xí)指導(dǎo)word 格式整理版Set oRs = No

10、thing conn.Close Set conn = Nothing Dim sCon Dim sSql Dim oRs Dim conn Dim oCom Dim Con Dim Data1 Dim Data2 Dim Data3 Dim data4 Dim data5 Dim data6 Dim data7 data7=HMIRuntime.tags編號 .read Catalog=讀寫數(shù)據(jù)庫;Data Con=Provider=SQLOLEDB.1;nitial Source=panzhiyou;uid=sa;pwd=panzhiyou Set conn = CreateObjectA

11、DODB.Connection conn.ConnectionString = Con conn.CursorLocation = 3 conn.Open sSql=SELECT * FROM 個人信息 WHERE 編號 =&data7&; Set oRs = CreateObjectADODB.Recordset Set oCom = CreateObjectADODB.Command Set oCom.ActiveConnection = conn oCom.CommandType = 1 oCom.CommandText = sSql Set oRs = oCom.Execute Set

12、 oRs = Nothing data4=oRs.Fields0.Value data5=oRs.Fields1.Value data6=oRs.Fields2.Value data1.write data4 范文范例 學(xué)習(xí)指導(dǎo)word 格式整理版 Set data1=HMIRuntime.Tags 編號 Set data2=HMIRuntime.Tags 姓名 Set data3=HMIRuntime.Tags 年齡 data1.Read data1.Write data4 data2.Read data2.Write data5 data3.Read data3.Write data6 S

13、et oRs = Nothing conn.Close Set conn = Nothing 讀取數(shù)據(jù)時,依據(jù)編號讀取數(shù)據(jù),在實際中需要修改數(shù)據(jù)庫語言；運行 wincc ,再編號輸入輸出域中輸入編號,點擊讀數(shù)據(jù)按鈕,得到需要的數(shù)據(jù)210216 連退檢查臺 wincc 畫面顯示鋼卷信息的程序：范文范例 學(xué)習(xí)指導(dǎo)word 格式整理版前提條件：需要打開 SQL2022 添加 SQL2022的服務(wù)器 添加情形如圖：注： Authentication 選項是選擇驗證模式的；和配置的服務(wù)器有關(guān)系；一般有兩種驗證模式；現(xiàn)場的SQL2022的服務(wù)器都是以上圖示的驗證方式；用戶名sa,密碼 123；而 WINC

14、C的 SQL2022服務(wù)器都是另一種身份驗證；不需要寫用戶名和密碼；在畫面上添加一個listview控件,對象名稱改為listview1；設(shè)置其屬性,代碼可以,直接設(shè)置也可以；此例子為直接設(shè)置；設(shè)置的內(nèi)容包括：1. view 屬性設(shè)為 3 2. ColumnHeaders 屬性添加顯示的列名字,設(shè)置列的寬度；留意列的個數(shù)要和你程序里想顯示的每一項的數(shù)據(jù)個數(shù)一樣；而且列名也要和每一項的數(shù)據(jù)顯示一樣；此程序列名有：序號,上卷鋼卷號,鋼帶厚度,鋼帶寬度,焊縫距離；對應(yīng)的數(shù)據(jù)庫是 :TuiHuo 表是 : 上卷鋼卷信息表；范文范例 學(xué)習(xí)指導(dǎo)word 格式整理版3.其余的 listview屬性的轉(zhuǎn)變可視

15、具體情形進(jìn)行修改；對應(yīng)代碼：Sub OnClickByVal 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+sSer sSql=SELECT * FROM 上卷鋼卷信息表 Set conn=CreateObjectADODB.Connection conn.ConnectionStri

16、ng=sCon conn.CursorLocation=3 conn.Open Set oRs=CreateObjectADODB.Record Set oCom=CreateObjectADODB.Command oCom.CommandType=1 Set oCom.ActiveConnection=conn oCom.CommandText=sSql Set oRs=oCom.Execute n=oRs.RecordCount MsgBoxn Set oList=ScreenItemslistview1 oList.ListItems.Clear oList.View =3 oList.

17、GridLines =True olist.ColumnHeaders.Clear olist.ColumnHeaders.Add ,CStroRs.Fields0.Name,100 olist.ColumnHeaders.Add ,CStroRs.Fields1.Name,150 olist.ColumnHeaders.Add ,CStroRs.Fields9.Name,100 olist.ColumnHeaders.Add ,CStroRs.Fields10.Name,100 olist.ColumnHeaders.Add ,CStroRs.Fields11.Name,100 Ifn0 Then oRs.MoveFirst End If m=0 Do While Not oRs.EOF m=m+1 Set oItem=oList.ListItems.Add oItem.text=CStroRs.Fields0.value o