WINCC中使用ADO對(duì)象連接數(shù)據(jù)庫(kù) 例子 常用屬性 方法

1、在WINCC中連接數(shù)據(jù)庫(kù)可以使用ADO控件進(jìn)行連接數(shù)據(jù)庫(kù)，但是通常都不是用的ADO控件進(jìn)行連接數(shù)據(jù)庫(kù)，以下講講winccZ中使用ADO對(duì)象連接查詢(xún)數(shù)據(jù)庫(kù)。以下以報(bào)警記錄為例。一、了解ADO對(duì)象    1.1ADO對(duì)象操作數(shù)據(jù)庫(kù)是微軟提供的一種接口。    1.2對(duì)ADO對(duì)象的訪(fǎng)問(wèn)使用CreateObject函數(shù)（詳情請(qǐng)參看CreateObject函數(shù)資料）      ADO組件的前綴是ADODB,所以訪(fǎng)問(wèn)的時(shí)候必須為ADODB.XX(X代表對(duì)象） 

2、;     eg:         dim conn,oRs,oCom         Set conn = CreateObject("ADODB.Connection")   'Connection對(duì)象         

3、;Set oRs = CreateObject("ADODB.Recordset")     'ADODB.Recordset對(duì)象         Set oCom = CreateObject("ADODB.Command")      'ADODB.Command命令對(duì)象二、對(duì)象    2.1 Co

4、nnection 對(duì)象     2.1.1  open 方法      語(yǔ)法      connection.Open ConnectionString,UserID,Password,OpengOptions      說(shuō)明      ConnectionString:可選參數(shù)，字符串，

5、包含連接信息      UserID:可選參數(shù)，字符串，包含建立連接時(shí)候用的用戶(hù)名      Password:可選參數(shù)，字符串，包含建立連接時(shí)候用密碼      OpenOptions:可選參數(shù)，連接打開(kāi)方式   eg1：(連接數(shù)據(jù)庫(kù)代碼方法1，僅連接部分代碼）      Dim conn   &

6、#160;  Dim tagDSNName      Set tagDSNName = HMIRuntime.Tags("DatasourceNameRT")      Set conn = CreateObject("ADODB.Connection")      conn.ConnectionString = "Provider=WinCCOL

7、EDBProvider.1;Catalog="&tagDSNName.Read&"Data Source=.WinCC"      conn.CursorLocation = 3      conn.Open  eg2：（連接數(shù)據(jù)代碼方法2，連接部分代碼）      Dim conn      

8、;Dim tagDSNName      Set tagDSNName = HMIRuntime.Tags("DatasourceNameRT")      Set conn = CreateObject("ADODB.Connection")      conn.CursorLocation = 3      con

9、n.Open  "Provider=WinCCOLEDBProvider.1;Catalog="&tagDSNName.Read&"Data Source=.WinCC"      2.1.2  close方法     connection.close  eg:      Dim conn  

10、    Dim tagDSNName      Set tagDSNName = HMIRuntime.Tags("DatasourceNameRT")      Set conn = CreateObject("ADODB.Connection")      conn.CursorLocation = 3  

11、0;   conn.Open  "Provider=WinCCOLEDBProvider.1;Catalog="&tagDSNName.Read&"Data Source=.WinCC"     '這里寫(xiě)上對(duì)數(shù)據(jù)庫(kù)查詢(xún)，修改等操作      conn.close    2.1.3 execute方法   

12、   語(yǔ)法    Cn.Execute strCommand,IngRowsAffected,IngOptions     說(shuō)明     strCommand：可以是查詢(xún)語(yǔ)句、表名、存儲(chǔ)過(guò)程名等     IngRowsAffected:可選參數(shù)，返回Insert、Update 、Delete查詢(xún)語(yǔ)句后所影響的數(shù)目     Ing

13、Optiongs: 參數(shù)可以如下       adCmdUnkown:Command類(lèi)型未定，由數(shù)據(jù)源提供者去判斷Command語(yǔ)法       AdCmdFile:Command是和對(duì)象類(lèi)型相應(yīng)的文件名稱(chēng)       adCmdStoredProc:Command是存儲(chǔ)過(guò)程名稱(chēng)       adCmdTable:Co

14、mmand是能產(chǎn)生內(nèi)部SELECT*FROM TableName查詢(xún)的表名稱(chēng)       adCmdTableDirect:Command是能直接從表中獲取行內(nèi)容的表名稱(chēng)       adCmdText:Command是一條SQL語(yǔ)句   eg:      Dim conn,oCom,oRs      Dim

15、 tagDSNName      Set tagDSNName = HMIRuntime.Tags("DatasourceNameRT")      Set conn = CreateObject("ADODB.Connection")      conn.CursorLocation = 3      conn.Op

16、en  "Provider=WinCCOLEDBProvider.1;Catalog="&tagDSNName.Read&"Data Source=.WinCC"      Set oCom = CreateObject("ADODB.Command")      Set oRs = CreateObject("ADODB.Recordset") &#

17、160;    oCom.CommandType=1      Set oCom.ActiveConnection = conn      oCom.CommandText ="ALARMVIEW:Select * FROM AlgViewCHT "      Set oRs = oCom.Execute    

18、60; '以上4句還可以寫(xiě)成  Set oRs=conn.Execute("ALARMVIEW:Select * FROM AlgViewCHT ")             conn.close  2.2 Recordset對(duì)象     Recordset 常用屬性      &

19、#160; RecordsetCount：返回當(dāng)前記錄的數(shù)目        BOF:表示當(dāng)前記錄位于該對(duì)象第一個(gè)記錄之前        EOF:表示當(dāng)前記錄位于該對(duì)象最后一個(gè)記錄之后。        movefirst：移動(dòng)到第一條        movenext：移動(dòng)

20、到下一條        movelast:移動(dòng)到最后一條    eg:      Dim conn,oCom,oRs      Dim m      Dim tagDSNName      Set tagDSNName = HMIRunti

21、me.Tags("DatasourceNameRT")      Set conn = CreateObject("ADODB.Connection")      conn.CursorLocation = 3      conn.Open  "Provider=WinCCOLEDBProvider.1;Catalog="&tag

22、DSNName.Read&"Data Source=.WinCC"      Set oRs = CreateObject("ADODB.Recordset")      Set oRs=conn.Execute("ALARMVIEW:Select * FROM AlgViewCHT ")      m = oRs.RecordCount 

23、     msgbox "報(bào)警行數(shù)"&m      conn.close   2.2.1 Open方法      語(yǔ)法      recordset.Open Source,ActiveConnection,CursorType,LockType,Options    &

24、#160; 說(shuō)明      Source:可選參數(shù)，變體型，計(jì)算Command對(duì)象的變量名、SQL語(yǔ)句、表名、存儲(chǔ)過(guò)程調(diào)用或持久的                   Recordst文件名      ActiveConnection:可選參數(shù)，變體型，計(jì)算有效Connection對(duì)象變量

25、名或字符串，包含                          ConnectionString參數(shù)      CursorType:可選參數(shù)，用于確定數(shù)據(jù)提供者打開(kāi)Recordset時(shí)應(yīng)該使用游標(biāo)類(lèi)型，類(lèi)型如下      &

26、#160;      adOpenForwardOnly:打開(kāi)僅向前類(lèi)型游標(biāo)（默認(rèn)類(lèi)型）             adOpenKeyset:打開(kāi)鍵集類(lèi)型游標(biāo)             adOpenDynamic:打開(kāi)動(dòng)態(tài)類(lèi)型游標(biāo)    

27、60;        adOpenStatic:打開(kāi)靜態(tài)類(lèi)型游標(biāo)               注：具體解釋請(qǐng)參考百度結(jié)果，這里我們主要講解應(yīng)用方面的東西。       LockType:可選參數(shù)，確定數(shù)據(jù)提供者打開(kāi)Recordset時(shí)應(yīng)該使用的鎖定（并發(fā)）類(lèi)型的LockTypeEnum  

28、              值，類(lèi)型如下             adLockReadOnly:只讀，默認(rèn)值             adLockPessinistic:保守式鎖定，提供者完成確保成功

29、編輯記錄所需的工作，通常通過(guò)在編輯時(shí)                                候鎖定數(shù)據(jù)源的記錄來(lái)完成。             adLo

30、ckOptimistic:開(kāi)放式鎖定，提供者試用開(kāi)放式鎖定，只在調(diào)用Update方法時(shí)才鎖定記錄。             adLockBatchOptimistic:開(kāi)放式批更新，用于批更新模式       Optiongs:可選參數(shù)，長(zhǎng)整型，用于指示數(shù)據(jù)提供者如何計(jì)算Source參數(shù)，或從以前保存的Recordset       &#

31、160;         中恢復(fù)Recordset(以下省略參數(shù)類(lèi)型講解）   eg:         Dim conn,oRs,oCom         Dim m,i         Dim tagDSNN

32、ame         Set tagDSNName = HMIRuntime.Tags("DatasourceNameRT")         Set conn = CreateObject("ADODB.Connection")         conn.CursorLocation

33、= 3         conn.Open "Provider=WinCCOLEDBProvider.1;Catalog="&tagDSNName.Read&"Data Source=.WinCC"         Set oRs = CreateObject("ADODB.Recordset")    

34、;     oRs.open "ALARMVIEW:Select * FROM AlgViewCHT ",conn         m = oRs.RecordCount         MsgBox "報(bào)警行數(shù)"&m         oRs.Close         conn.Close   2.3 Command對(duì)象      2.3.1 對(duì)象屬性說(shuō)明         ActiveC