quote:以下是引用城外之人在2010-12-16 22:36:57的发言：
Dim strSQL
Dim MyConn
Dim strDSN

strDSN = HMIRuntime.Tags("@DatasourceNameRT").Read

strSQL = "Provider=WinCCOLEDBProvider.1;Catalog=" & strDSN & ";Data Source=.\WinCC"
Set MyConn = CreateObject("ADODB.Connection")
With MyConn
.ConnectionString = strSQL
.CursorLocation = 3
.Open
End With

以上是数据库连接部分，查询语句，需要用特定格式的：TAG:R
请在本版区搜索相关代码。

---