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

　?。?）從wincc中讀取歸檔數據

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

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

　　表 01

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

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

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

　　圖1

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

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

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

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

　　數據庫連接的腳本如下所示：

　　'定義數據庫連接變量

　　dim conn

　　set conn = createobject("")

　　'定義數據庫查詢(xún)腳本(可以根據需要自定義修改)

　　dim ssql

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

　　'通過(guò)調用自定義的數據庫連接函數，建立與數據庫的連接

　　dim ors

　　set ors= winccdatasourceaccess(conn,ssql)

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

　　function winccdatasourceaccess(connobj,psql)

　　'建立到數據庫的連接

　　on error resume next

　　'讀取本地的wincc運行數據庫名稱(chēng)

　　dim datasourcenamert,dataconnectionname

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

　　datasourcenamert.read

　　'定義數據庫連接字符串

　　dim spro, sdsn,sser

　　spro = "provider=winccoledbprovider.1;"

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

　　sser = "data source=.\wincc"

　　dataconnectionname = spro + sdsn + sser

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

　　dim ssql

　　ssql=psql

　　'建立連接

　　dim ors,ocom,conn

　　set conn = createobject("")

　　set conn=connobj

　　= dataconnectionname

　　conn.cursorlocation = 3

　　conn.open

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

　　set ors = createobject("adodb.recordset")

　　set ocom = createobject("")

　　= 1

　　set ocom.activeconnection = conn

　　'執行查詢(xún)

　　set ors = ocom.execute

　　'返回結果

　　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

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