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

1、Wincc讀寫SQLServer數(shù)據(jù)庫一、在數(shù)據(jù)庫中建立數(shù)據(jù)庫文件，文件名為“讀寫數(shù)據(jù)庫”，在數(shù)據(jù)庫中建立新的表，命名為“個人信息”分別建立編號、姓名、年齡。二、數(shù)據(jù)庫中建立表后，在wince中建立與數(shù)據(jù)庫中類型相同的變量，變量類型相同在讀寫數(shù)據(jù)時很重要。在圖形編輯器中新建畫面，并在畫面中增加三個輸入輸出域，并連接變量。三、添加兩個按鈕控件，分別命名為寫數(shù)據(jù)、讀數(shù)據(jù)1、在寫數(shù)據(jù)按鈕中寫入一下VBS腳本wincc變量寫入數(shù)據(jù)庫定義變量DimsConDimsSqlDimoRsDimconnDimoComDimConDimData1,Data2,Data3讀取wincc變量Data1=HMIRunt

2、ime.tags（”編號）.readData2=HMIRuntime.tags（姓名）.readData3=HMIRuntime.tags（年齡）.read連接數(shù)據(jù)庫Con=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=讀寫數(shù)據(jù)庫;DataSource=.WINCCSetconn=CreateObject（ADODB.Connection）conn.ConnectionString=Conconn.CursorLocation=3conn.Open寫入數(shù)據(jù)庫sSql=in

3、sertinto個人信息VALUES”&Data1&,&Data2&,&Data3&）;SetoRs=CreateObject（ADODB.Recordset）SetoCom=CreateObject（ADODB.Command）SetoCom.ActiveConnection=connoCom.CommandType=1oCom.CommandText=sSqlSetoRs=oCom.ExecuteSetoRs=Nothingconn.CloseSetconn=Nothing在實(shí)際項(xiàng)目中需要修改的只有定義變量時增加或減少數(shù)據(jù)data的個數(shù)，Data1=HMIRuntime.tags（編號”）

4、.read中的變量名，數(shù)據(jù)庫的名字，以及數(shù)據(jù)庫的表名2、在讀數(shù)據(jù)按鈕中寫入一下VBS腳本讀取數(shù)據(jù)庫變量到wince變量定義變量DimsConDimsSqlDimoRsDimconnDimoComDimConDimData1DimData2DimData3Dimdata4Dimdata5Dimdata6Dimdata7data7=HMIRuntime.tags(”編號).readInfo=False;InitialCon=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityCatalog=讀寫數(shù)據(jù)庫;DataSource=.WIN

5、CCSetconn=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.ExecuteSetoRs=Nothingdata4=oRs.Fields(0).Valuedata5=oRs.Fields(1).Valuedata6=oRs.Fields(2).Valuedata1.writedata4Setdatal=HMIRuntime.Tags(”編號)Setdata2=HMIRuntime.Tags(姓名)Setdata3=HMIRuntime.Tags(年齡)data1.Readdata1.Writedata4data2.Readdata2.Writedata5data3.Readdata3.Writedata6SetoRs=Nothi