資源描述：
《wincc中使用vbs腳本讀寫sqlserver數據庫文件》由會員上傳分享，免費在線閱讀，更多相關內容在工程資料-天天文庫。
1、WORD格式可編輯例程：Wincc讀寫SQLServer數據庫一、在數據庫中建立數據庫文件，文件名為“讀寫數據庫”，在數據庫中建立新的表，命名為“個人信息”分別建立編號、姓名、年齡。二、數據庫中建立表后，在wincc中建立與數據庫中類型相同的變量，變量類型相同在讀寫數據時很重要。在圖形編輯器中新建畫面，并在畫面中增加三個輸入輸出域，并連接變量。三、添加兩個按鈕控件，分別命名為寫數據、讀數據1、在寫數據按鈕中寫入一下VBS腳本wincc變量寫入數據庫定義變量DimsConDimsSqlDimoRsDimconnDimoComDimConDimData1,Data
2、2,Data3‘讀取wincc變量Data1=HMIRuntime.tags("編號").readData2=HMIRuntime.tags("姓名").readData3=HMIRuntime.tags("年齡").read‘連接數據庫Con="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=讀寫數據庫;DataSource=.WINCC"Setconn=CreateObject("ADODB.Connection")conn.Conn
3、ectionString=Conconn.CursorLocation=3conn.Open‘寫入數據庫sSql="insertinto個人信息VALUES('"&Data1&"','"&Data2&"','"&Data3&"');"SetoRs=CreateObject("ADODB.Recordset")SetoCom=CreateObject("ADODB.Command")SetoCom.ActiveConnection=connoCom.CommandType=1oCom.CommandText=sSqlSetoRs=oCom.ExecuteSeto
4、Rs=Nothingconn.CloseSetconn=Nothing專業(yè)知識整理分享WORD格式可編輯DimsConDimsSqlDimoRsDimconnDimoComDimConDimData1,Data2,Data3'讀取wincc變量Data1=HMIRuntime.tags("編號").readData2=HMIRuntime.tags("姓名").readData3=HMIRuntime.tags("年齡").read'連接數據庫Con="Provider=SQLOLEDB.1;nitialCatalog=讀寫數據庫;DataSource=pan
5、zhiyou;uid=sa;pwd=panzhiyou"Setconn=CreateObject("ADODB.Connection")conn.ConnectionString=Conconn.CursorLocation=3conn.Open'寫入數據庫sSql="insertinto個人信息VALUES('"&Data1&"','"&Data2&"','"&Data3&"');"SetoRs=CreateObject("ADODB.Recordset")SetoCom=CreateObject("ADODB.Command")SetoCom.Active
6、Connection=connoCom.CommandType=1oCom.CommandText=sSqlSetoRs=oCom.ExecuteSetoRs=Nothingconn.CloseSetconn=Nothing在實際項目中需要修改的只有定義變量時增加或減少數據data的個數，Data1=HMIRuntime.tags("編號").read中的變量名，數據庫的名字，以及數據庫的表名2、在讀數據按鈕中寫入一下VBS腳本讀取數據庫變量到wincc變量定義變量DimsConDimsSqlDimoRsDimconnDimoComDimCon專業(yè)知識整理分享
7、WORD格式可編輯DimData1DimData2DimData3Dimdata4Dimdata5Dimdata6Dimdata7data7=HMIRuntime.tags("編號").readCon="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=讀寫數據庫;DataSource=.WINCC"Setconn=CreateObject("ADODB.Connection")conn.ConnectionString=Conconn.C
8、ursorLocation=3conn
