刚接触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:Select * from algviewcht WHERE DateTime > '2017-11-30 00:00:00.000' "

Dim DBConnection

Dim DBCommand

Dim DBRecordset

' 2.1 Open connection

'HMIRuntime.Trace "before open connection" & vbNewLine

Set DBConnection = CreateObject("ADODB.Connection")

DBConnection.ConnectionString = ConnectionString

DBConnection.CursorLocation = 3

DBConnection.open

Set DBRecordset = CreateObject("ADODB.Recordset")

' 2.2 Execute command

'HMIRuntime.Trace "before execute command" & vbNewLine

Set DBCommand = CreateObject("ADODB.Command")

DBCommand.CommandType = 1

DBCommand.ActiveConnection = DBConnection

DBCommand.CommandText = CommandString

Set DBRecordset = DBCommand.Execute

Dim lngCount

Dim lngValue,aa

' 2.3 Record structure and first record data (test)

lngCount = DBRecordset.Fields.Count

aa = DBRecordset.RecordCount

HMIRuntime.Trace "RecordSet.Field.Count=" & lngCount & vbNewLine

HMIRuntime.Trace "RecordSet.RecordCount=" & aa & vbNewLine

If (aa>0) Then

DBRecordset.movefirst

Else

HMIRuntime.Trace "Selection returned no fields" & vbNewLine

End If

' 4.1 Clean up

DBRecordset.Close

Set DBRecordset = Nothing

Set DBCommand = Nothing

DBConnection.Close

Set DBConnection = Nothing

HMIRuntime.Trace "Connection closed again" & vbNewLine

问题补充：

数据库已经连接上，脚本调试输出如图，显示库中无数据。

图片说明：

悬赏西币:5 | 解决时间：2017-12-07 09:46:25 | 提问者： SHUREN2 - 新生&nbsp&nbsp第1级

问题ID：179378