在實(shí)際應(yīng)用中，客戶對(duì)于wincc變量記錄的顯示需求各式各樣，比如在excel或者word中顯示變量記錄，以特定的表格顯示歷史數(shù)據(jù)等等。當(dāng)wincc集成的在線表格控件不能滿足客戶需要時(shí)，就需要通過(guò)自定義的方式來(lái)顯示變量歸檔。主要分為兩部分：

　?。?）從wincc中讀取歸檔數(shù)據(jù)

　?。?）將歸檔數(shù)據(jù)以特定的格式顯示出來(lái)

　　本文檔介紹從wincc讀取歸檔數(shù)據(jù)的通用方法，并以listview為例，介紹如何顯示歸檔數(shù)據(jù)。對(duì)于其它控件，客戶也可以參考本文檔的腳本和編程思路。

　　表 01

　　關(guān)于wincc連通性軟件包的使用，請(qǐng)參考下面的幫助文檔：37436159

　　2．實(shí)現(xiàn)方式總體思路介紹

　　本文檔通過(guò)調(diào)用wincc ole db數(shù)據(jù)庫(kù)接口驅(qū)動(dòng)（需要wincc連通性軟件包的授權(quán)）來(lái)訪問(wèn)wincc的變量歸檔，并在微軟的listview控件中顯示歸檔數(shù)據(jù)。程序結(jié)構(gòu)如下所示：

　　圖1

　　具體代碼見(jiàn)附件。

　　3．具體實(shí)現(xiàn)方法和代碼

　　3．1 創(chuàng)建到歸檔數(shù)據(jù)庫(kù)的連接

　　由于wincc的變量歸檔為壓縮數(shù)據(jù)，必須通過(guò)wincc ole db來(lái)讀取歸檔數(shù)據(jù)。對(duì)于已經(jīng)安裝wincc的計(jì)算機(jī)，不需要安裝wincc連通性軟件包。對(duì)于未安裝wincc的客戶端，必須安裝wincc連通性軟件包。該軟件包含在wincc v7.0的安裝光盤中。

　　數(shù)據(jù)庫(kù)連接的腳本如下所示：

　　'定義數(shù)據(jù)庫(kù)連接變量

　　dim conn

　　set conn = createobject("")

　　'定義數(shù)據(jù)庫(kù)查詢腳本(可以根據(jù)需要自定義修改)

　　dim ssql

　　ssql="tag:r,'processvaluearchive\tag1',':01:00.000',':00:00.000'"

　　'通過(guò)調(diào)用自定義的數(shù)據(jù)庫(kù)連接函數(shù)，建立與數(shù)據(jù)庫(kù)的連接

　　dim ors

　　set ors= winccdatasourceaccess(conn,ssql)

　　其中，自定義的數(shù)據(jù)庫(kù)連接函數(shù)winccdatasourceaccess（connobj,psql），參數(shù)connobj為連接對(duì)象()，參數(shù)psql為要執(zhí)行的sql查詢語(yǔ)句，具體代碼如下所示：

　　function winccdatasourceaccess(connobj,psql)

　　'建立到數(shù)據(jù)庫(kù)的連接

　　on error resume next

　　'讀取本地的wincc運(yùn)行數(shù)據(jù)庫(kù)名稱

　　dim datasourcenamert,dataconnectionname

　　set datasourcenamert = hmiruntime.tags("@datasourcenamert")

　　datasourcenamert.read

　　'定義數(shù)據(jù)庫(kù)連接字符串

　　dim spro, sdsn,sser

　　spro = "provider=winccoledbprovider.1;"

　　sdsn = "catalog=" & datasourcenamert.value & ";"

　　sser = "data source=.\wincc"

　　dataconnectionname = spro + sdsn + sser

　　' 定義查詢語(yǔ)句字符串

　　dim ssql

　　ssql=psql

　　'建立連接

　　dim ors,ocom,conn

　　set conn = createobject("")

　　set conn=connobj

　　= dataconnectionname

　　conn.cursorlocation = 3

　　conn.open

　　' 創(chuàng)建查詢的命令文本

　　set ors = createobject("adodb.recordset")

　　set ocom = createobject("")

　　= 1

　　set ocom.activeconnection = conn

　　'執(zhí)行查詢

　　set ors = ocom.execute

　　'返回結(jié)果

　　set winccdatasourceaccess=ors

　　if err.number 0 then

　　msgbox "error code" & err.number & "source:" & & "error deion" & err.deion

　　err.clear

　　end if

　　on error go to 0

　　end function

　　自定義函數(shù)的創(chuàng)建過(guò)程為:在wincc項(xiàng)目管理器中右鍵點(diǎn)擊全局腳本?打開(kāi)vbs全局腳本編輯器?項(xiàng)目函數(shù)?新建函數(shù)。具體如下圖所示：