wincc通过vb如何读取mysql_wincc如何通过VB脚本读取报警数据库归档内容-工业支持中心-西门子中国...

刚接触wincc，下面脚本是根据帮助文档VB实例修改，但读取不到归档内容，系统内置报警控件中能读到数据，请大神指点。

' 1.1 Create connection string for ADO access

Dim ProviderName

Dim CatalogName

Dim DataSourceName

Dim ConnectionString

Dim CommandString

Dim snam1,Rtname

Dim ServerName1

Set ServerName1 = HMIRuntime.Tags("@ServerName")

ServerName1.Read

Dim DatasourceNameRT

Set DatasourceNameRT = HMIRuntime.Tags("@DatasourceNameRT")

DatasourceNameRT.Read

Rtname=DatasourceNameRT.Value

snam1=ServerName1.Value

ConnectionString = "provider=WinCCOLEDBProvider.1;catalog=" & Rtname & ";data source=" & snam1 & "\WinCC"

' 1.2 Define command string for access (relative time range, last 10 minutes)

CommandString = "ALARMVIEW: