如何用標(biāo)準(zhǔn)的odbcsql接口訪問wincc歸檔數(shù)據(jù)庫文檔

1、WINCC作為一個工控軟件，有著工控軟件的一系列特征：能顯示實時數(shù)據(jù)，歷史數(shù)據(jù)，生成實時數(shù)據(jù)曲線與歷史數(shù)據(jù)曲線，并能生成報表。然而WINCC與其它的工控軟件包有不同的地方：它的數(shù)據(jù)是保存在標(biāo)準(zhǔn)的及功能強(qiáng)大的SybaseSQLAnywhere數(shù)據(jù)庫中，所以,我們可以像訪問一般的數(shù)據(jù)庫一樣，通過ODBC直接訪問WINCC的歷史數(shù)據(jù)庫。一、通過SybaseCentral4.0訪問顯示數(shù)據(jù)Wincc在安裝日就把Sysbase數(shù)據(jù)引擎與SybaseCentral4.0一同安裝到系統(tǒng)中，你可以在ProgramFilesSybaseShared中找到SybaseCentral4.0，你可在在其目錄下Java

2、中發(fā)現(xiàn)scjview.exe,該程序功能相當(dāng)于SQLServer的企業(yè)管理器。你可以通過其查看你在WinCC中的歸檔數(shù)據(jù)。使用方法：1）運(yùn)行WINCC,這時WINCC會在ODBC中添加兩條數(shù)據(jù)源：CC_FY_02-10-16_10:40:18CC_FY_02-10-16_10:40:18R其中CC_FY_02-10-16_10:40:18R是可以通過SybaseCentral4.0及別的一些工具不用用戶名與密碼讀取的。這就是我們WinCC的歷史數(shù)據(jù)庫。注意：這兩條ODBC名不是一成不變的，它是結(jié)構(gòu)如下CC_FY_02-10-16_10:40:18RCC:固有的，指明是WinCC生成的ODBC。

3、FY:項目名，這是我這個WinCC項目名稱02-10-16:最后一次修改的日期。10:40:18:最后一次修改的時間。R:表不是運(yùn)行庫。2）、運(yùn)行scjview.exe，點擊AdaptiveServerAnyWhere7按右鍵，選擇Connect。將會彈出Connect配置界面。在Identfication的頁面，選中ODBCSOURCENAME點BROWSE則會列出所有對Sybase數(shù)據(jù)引擎的ODBC名，選才iCC_FY_02-10-16_10:40:18R，點擊“OK”O(jiān)幽可。這時在AdaptiveServerAnyWhere7下面會出現(xiàn)你的計算機(jī)名，并已連通了你的WINCC歷史數(shù)據(jù)庫。好

4、了，我們現(xiàn)在可以查看WinCC的歷史數(shù)據(jù)了。展開：AdaptiveServerAnyWhere7(DBA)展開：TABLE我們現(xiàn)在可以看到數(shù)據(jù)庫的表名與表結(jié)構(gòu)了：表名：PDE#HQZ#GAS_PRE組成方式如下PDE:固有HQZ:歸檔名稱GAS_PRE:變量名。表結(jié)構(gòu)：有三個字段：T,V,FT:時間V:值F:標(biāo)志由于沒有可靠的資料可查，其F的名值表示的含義就不得而知，不過，在我的使用中，我將F值8392705作為一個合法值，在WINCC的處理中沒有出過錯，但別的FLAG值的含義，只能問西門子公司了。二、利用VB編寫程序訪問WINCC歷史數(shù)據(jù)庫。上面已明確描述了WINCC的歷史數(shù)據(jù)庫的結(jié)構(gòu)組成與

5、表結(jié)構(gòu)，那么我們就可以通過編程訪問WINCC的歷史數(shù)據(jù)庫。如其它通過ODBC訪問的數(shù)據(jù)一樣。如下面的小例子在VB中，先引用ADO組件。并聲明ADO變量。PrivatecnAsADODB.ConnectionPrivatersAsADODB.RecordsetConstdsn=CC_FY_02-10-16_10:40:18R”PrivatesubinsertData(nowValueasdouble)DimnowtimeasstringNowtime=nowcn.Opendsn,sqlstr=InsertintoPDE#HQZ#GAS_PRE(T,V,F)Values(,”+owtime+？，“

6、nowValue+”，8392705)”cn.Executesqlstrcn.closeEndsub本程序中的子程序只處理了數(shù)據(jù)插入，其它讀出就更為簡單，與其它的ADO訪問是一模一樣的，這里就不多說了。三、結(jié)語能通過ODBC訪問WINCC的歷史數(shù)據(jù)，給我們提供了更多了解決辦法，特別是在企業(yè)信息化平臺上使用非實時數(shù)據(jù)方面，可以人為給WINCC添加正確的歷史數(shù)據(jù)，使WINCC的功能更為強(qiáng)大。由于ODBC名與項目的修改時間有關(guān)，所以在項目頻繁變化時，請不要使用這個功能。WinCC在啟動時自動添加ODBC名，在關(guān)閉時自動刪除，所以，在WINCC關(guān)閉后，不能再通過ODBC訪問ODBC。wincc數(shù)據(jù)庫的

7、連接方法來源：未知時間：2010-02-2319:14點擊：113次字體設(shè)置：大中小?WinCC中如何與本地數(shù)據(jù)庫(如SQLSERVERORACLE行數(shù)據(jù)交換？以下的測試將說明如連接遠(yuǎn)程的數(shù)據(jù)庫：TopicOne:ODBCTestingenvironment:PrimaryPCwithaWinCC,ThisPC,wenamedisServer.SecondaryPCwithaAccessDB,ThisPC,wenamedisClient.ServerPCandClientPCisconnectedbyEthernet.Teststep:1. TheServerPCandtheClientPCm

8、ustconfigtheDBserveroption.ThisisaveryimportantODBCconfigurationstep.ControlPanel-SIMATICWorkstation-WorkstationConfiguration-TCP/IPConfigurationforMultipleNodeSystems-selecttheDBserveroption.2. AttheserverPCnode,activetheWinCCprojectbutdonotrunningthisproject(ThisactionisonlyforthefirsttimeODBCconf

9、igurationattheclientPC).WinCCwillbuildtwoODBCdriverconnectionsautomatically,oneisforRTDatabaseandtheotherisforRCDatabase.Forexample:CC_u1_01-04-12_15:36:08R,CC_u1_01-04-12_15:36:08”.AllofthejobsisoverattheserverPCnode.3. AttheclientPCnode,openthecontolpanelfolderandselecttheSybaseSQLAnywhere5.0drive

10、rforconfigurationODBCDriver.DataSourceName:CC_u1_01-04-12_15:36:08R(benamedattheserverPCnode.)UserID:DBAPassword:SQLServerName:BJADLIJS_N(ServerPCNodecomputername)DatabaseName:CC_u1_01-04-12_15:36:08R(thesameasDataSourceName)(theWinCC50_Project_u1isDatabaseFile:BjadlijsWinCC50_Project_u1u1RT.dbashar

11、edirectorybyWinCCautomaticallyandtheu1RT.dbistheWinCCRTdatabasename.youdbettersearchtheu1RT.dbfileviatheBrowsebutton.)Atthistime,wecompletedtheODBCconfiguration.4. AttheserverPCnode,RunningtheWinCCproject(DontforgettoselecttheTagLoggingoptioninthestartuppage,atthesametimeyoucouldcreataformbyuserarch

12、iveonlyfortest.)5. AttheclientPCnode,youcouldopenanAccessandimportorlinkformsviaanODBCdriverthatisbuildedatthestepthree.?如何正確使用第三方軟件(如VB網(wǎng)WinCC的SYBAS瞰據(jù)庫進(jìn)行操作，應(yīng)注意什么細(xì)節(jié)？通過ODBC可以使用第三方軟件數(shù)據(jù)庫進(jìn)行操作(VB,VC,DELPHI)F面是分別使用DAO,RDO和ADO方法對WinCC的RT數(shù)據(jù)庫訪問的簡單例程，開發(fā)環(huán)境為VB6.0:PublicwsODBCAsWorkspacePubliccnODBCAsConnectionPu

13、blicrsODBCAsRecordsetDAOmethodPublicSubLoadODBCData()SetwsODBC=DBEngine.CreateWorkspace(ODBC_ws,Admin,dbUseODBC)SetcnODBC=wsODBC.OpenConnection(Connection1,_ODBC;UID=DBA;PWD=SQL;DSN=CC_416_01-04-17_00:54:00R)SetrsODBC=cnODBC.OpenRecordset(PDE#HD#TankValue_Arc#TankLevel2)PDE#HD#TankValue_Arc#TankLeve

14、l2isRTdatabasesampletableDBGrid1.Text=rsODBCT1.Text=rsODBC.Fields(T)T2.Text=rsODBC.Fields(V)rsODBC.ClosecnODBC.ClosewsODBC.CloseEndSubRDOmethodPublicSubRDOData()DimrsAsrdoResultsetDimcnAsNewrdoConnectionDimSQLAsStringSetcn=NewrdoConnectionWithcn.Connect=uid=DBA;pwd=SQL;DSN=demo1;demo1isamanullyeated

15、ODBCDSNofSybasedatabase.EstablishConnectionrdDriverNoPrompt,FalseEndWithSQL=select*fromcontactSetrs=cn.OpenResultset(SQL,rdOpenKeyset,_rdConcurReadOnly,rdAsyncEnable+rdExecDirect)T3.Text=rs!cityT4.Text=rs!idEndSubADOmethodPublicSubAdoData()DimrsAsADODB.RecordsetSetrs=NewADODB.Recordsetrs.Openselect*

16、fromcontactorderbyid,_uid=DBA;pwd=SQL;DSN=demo1;T5.Text=rs!idT6.Text=rs!cityEndSub值得注意的是內(nèi)容來自1.在OFFICE件中，不能使用RDO訪問ODBC數(shù)據(jù)庫，因為MICROSOFT對VBA提供RDO的庫函數(shù).2.ODBC的USERDSN是在工程啟動的過程中自動生成的，無需用戶干預(yù)3.有兩個數(shù)據(jù)庫，一個是CONFIG數(shù)據(jù)庫，里面存放的是組態(tài)信息，另一個是實時(RT激據(jù)庫,里面存放的是過程的數(shù)據(jù)，包括歷史和報警等信息，用戶更多的將是對RT庫的操作；如果不清除數(shù)據(jù)庫的具體結(jié)構(gòu)，可以使用WINCC安裝目錄(例如c:si

17、emenscommonsqlanyscview.exe)下的scview.exe查看具體的TABLEM段，還可以用其目錄下的isql.exe工具用SQL語句查詢具體的記錄?WinCC怎樣作為數(shù)據(jù)提供者向外提供數(shù)據(jù)(怎么開放其內(nèi)部數(shù)據(jù))？主要有以下幾種方法：1。 .通過ODBC進(jìn)彳flocal/remote方式的數(shù)據(jù)庫的連接(上面已經(jīng)敘述)；2。 .通過OPC進(jìn)彳tlocal/remote方式的過程數(shù)據(jù)的連接，包括WINCC之間的連接和與WINAC之間的OPC通訊，以及其他支持OPC的第三方軟件和用戶自行開放的OPCSERVER/CLIEN軟件通訊；3。通過DDE與本機(jī)交換過程數(shù)據(jù)，通過NETD

18、DE向遠(yuǎn)方PC提供數(shù)據(jù)；4。.通過OLE與EXCEL訊，在EXCEL中使用VBA,創(chuàng)建WINCC對象，使用其內(nèi)容來自電氣自動化技術(shù)網(wǎng)GetValue和SetValue方法可以與WINCC交換數(shù)據(jù)。(具體見WINCC電子文檔CONFIG2_C.PD或件)。下面是EXCE葉白VBA例程：PrivateSubCommandButton1_Click()DimmcpAsObjectDimvarAsStringDimvalueAsVariantDimcellAsVariantDimiAsIntegerSetmcp=CreateObject(WinCC-Runtime-Project)cell=C3i=1DoWhileNotRange(cell)=var=Range(cell)value=mcp.GetValue(var)Range(D&2+i).value=valuecell=c&i+3i=i+1LoopEndSubPrivateSubCommandButton2_Click()DimmcpAsObjectDimvarAsStringDimvalueAsVaria