通过ODBC,可以使用第三方软件对数据库进行操作(VB,VC,DELPHI).下面是分别使用DAO,RDO和ADO方法对WinCC的RT数据库访问的简单例程,开发环境为VB6.0: WWW_PLC※JS_COM－PmLC－技.术_网
Public wsODBC As Workspace WW.W_PLCJS_COM－PLC－技.术_网
Public cnODBC As Connection P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
Public rsODBC As Recordset WWcW_PLCJS_COM－PLC－技.术_网
WW.W_PLCJS_COM－PLC－技.术_网
‘DAO method P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
Public Sub LoadODBCData() WWW_PLC※JS_COM－PmLC－技.术_网
Set wsODBC = DBEngine.CreateWorkspace("ODBC_ws", "Admin", "", dbUseODBC) WWW_PLCJS@_COM%－PLC－技.术_网
Set cnODBC = wsODBC.OpenConnection("Connection1", , , _ WWW.PLCJS.COM——可编程控制器技术门户
"ODBC;UID=DBA;PWD=SQL;DSN=CC_416_01-04-17_00:54:00R") WWW.PLCJS.COM——可编程控制器技术门户
Set rsODBC = cnODBC.OpenRecordset("PDE#HD#TankValue_Arc#TankLevel2") WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
‘PDE#HD#TankValue_Arc#TankLevel2 is RT database sample table WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
'DBGrid1.Text = rsODBC WWW.PLCJS.COM——可编程控制器技术门户
T1.Text = rsODBC.Fields("T") WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
T2.Text = rsODBC.Fields("V") WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户)
rsODBC.Close ——可——编——程——控－制－器－技——术——门——户
cnODBC.Close WWW_P※LCJS_CO※M－PLC－技－.术_网
wsODBC.Close ——可——编——程——控－制－器－技——术——门——户
End Sub WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
’RDO method WWcW_PLCJS_COM－PLC－技.术_网
Public Sub RDOData() WWW.PLCJS.COM——可编程控制器技术门户
Dim rs As rdoResultset ——可——编——程——控－制－器－技——术——门——户
Dim cn As New rdoConnection P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
Dim SQL As String WWW_PL※CJS_COM－PLC－技.术_网
Set cn = New rdoConnection WWW_PLC※JS_COM－PmLC－技.术_网
With cn WWW_P※LCJS_CO※M－PLC－技－.术_网
.Connect = "uid=DBA;pwd=SQL;DSN=demo1;" WWW.PLCJS.COM——可编程控制器技术门户
‘demo1 is a manully created ODBC DSN of Sybase database WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
.EstablishConnection rdDriverNoPrompt, False WWW_P※LCJS_CO※M－PLC－技－.术_网
End With WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
SQL = "select * from contact" P.L.C.技.术.网——可编程控制器技术门户
Set rs = cn.OpenResultset(SQL, rdOpenKeyset, _ WW.W_PLC※JS_C,OM－PL,C－技.术_网
rdConcurReadOnly, rdAsyncEnable + rdExecDirect) WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
T3.Text = rs!city WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
T4.Text = rs!id WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户)
plcjs.技.术_网
End Sub P.L.C.技.术.网——可编程控制器技术门户
WWW_PLCJS@_COM%－PLC－技.术_网
‘ADO method WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
Public Sub AdoData() WWW.PLCJS.COM——可编程控制器技术门户
Dim rs As ADODB.Recordset WWW_P※LCJS_COM－PLC－)技.术_网
Set rs = New ADODB.Recordset P.L.C.技.术.网——可编程控制器技术门户
rs.Open "select * from contact order by id", _ WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
"uid=DBA;pwd=SQL;DSN=demo1;" WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
WW.W_PLC※JS_C,OM－PL,C－技.术_网
T5.Text = rs!id WWcW_PLCJS_COM－PLC－技.术_网
T6.Text = rs!city WWcW_PLCJS_COM－PLC－技.术_网
WWcW_PLCJS_COM－PLC－技.术_网
End Sub