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

1、精選文檔Wincc讀寫(xiě)SQLServer數(shù)據(jù)庫(kù)一、在數(shù)據(jù)庫(kù)中建立數(shù)據(jù)庫(kù)文件，文件名為“讀寫(xiě)數(shù)據(jù)庫(kù)”，在數(shù)據(jù)庫(kù)中建立新的表，命名為“個(gè)人信息”分別建立編號(hào)、姓名、年齡。二、數(shù)據(jù)庫(kù)中建立表后，在wincc中建立與數(shù)據(jù)庫(kù)中類型相同的變量，變量類型相同在讀寫(xiě)數(shù)據(jù)時(shí)很重要。在圖形編輯器中新建畫(huà)面，并在畫(huà)面中增加三個(gè)輸入輸出域，并連接變量。三、添加兩個(gè)按鈕控件，分別命名為寫(xiě)數(shù)據(jù)、讀數(shù)據(jù)1、在寫(xiě)數(shù)據(jù)按鈕中寫(xiě)入一下VBS腳本wincc變量寫(xiě)入數(shù)據(jù)庫(kù)定義變量Dim sCon Dim sSql Dim oRs Dim conn Dim oComDim ConDim Data1, Data2, Data3讀取win

2、cc變量Data1=HMIRuntime.tags(編號(hào)).readData2=HMIRuntime.tags(姓名).readData3=HMIRuntime.tags(年齡).read連接數(shù)據(jù)庫(kù)Con=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=讀寫(xiě)數(shù)據(jù)庫(kù);Data Source=.WINCCSet conn = CreateObject(ADODB.Connection) conn.ConnectionString = Conconn.CursorLoca

3、tion = 3 conn.Open寫(xiě)入數(shù)據(jù)庫(kù) sSql=insert into個(gè)人信息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

4、 = Nothing在實(shí)際項(xiàng)目中需要修改的只有定義變量時(shí)增加或減少數(shù)據(jù)data的個(gè)數(shù)，Data1=HMIRuntime.tags(編號(hào)).read中的變量名，數(shù)據(jù)庫(kù)的名字，以及數(shù)據(jù)庫(kù)的表名2、在讀數(shù)據(jù)按鈕中寫(xiě)入一下VBS腳本讀取數(shù)據(jù)庫(kù)變量到wincc變量定義變量Dim sCon Dim sSql Dim oRs Dim conn Dim oComDim ConDim Data1Dim Data2Dim Data3Dim data4Dim data5Dim data6Dim data7data7=HMIRuntime.tags(編號(hào)).read Con=Provider=SQLOLEDB.1;I

5、ntegrated Security=SSPI;Persist Security Info=False;Initial Catalog=讀寫(xiě)數(shù)據(jù)庫(kù);Data Source=.WINCCSet conn = CreateObject(ADODB.Connection) conn.ConnectionString = Conconn.CursorLocation = 3 conn.Open sSql=SELECT * FROM 個(gè)人信息 WHERE 編號(hào)=&data7&; Set oRs = CreateObject(ADODB.Recordset) Set oCom = CreateObject

6、(ADODB.Command) Set oCom.ActiveConnection = conn oCom.CommandType = 1 oCom.CommandText = sSql Set oRs = oCom.Execute Set oRs = Nothingdata4=oRs.Fields(0).Valuedata5=oRs.Fields(1).Valuedata6=oRs.Fields(2).Value data1.write data4 Set data1=HMIRuntime.Tags(編號(hào)) Set data2=HMIRuntime.Tags(姓名) Set data3=HMIRuntime.Tags(年齡) data1.Read data1.Write data4 data2.Read data2.Write data5 data3.Read data3.Write data6Set oRs = Noth