直接用SQL查询语句就可以了:

Dim strc

Dim snam1

Dim ServerName1

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

ServerName1.Read

snam1=ServerName1.Value

strc = "Provider=SQLOLEDB.1;Password=3333;Persist Security Info=True;User ID=sa;Initial Catalog=dbuser;Data Source=" & snam1 & "\WINCC"

dim cc1

Set cc1=CreateObject("adodb.connection")

cc1.ConnectionString=strc

cc1.CursorLocation=3

cc1.open

Dim rst

Set rst=CreateObject("adodb.recordset")

dim ssql

ssql="ALARMVIEW:Select * from algviewcht WHERE DateTime >'2009-07-15 15:30:00' and DateTime 

ssql = "Tag:R,'Archive_3\I_DB1DBD0','2009-07-15 15:30:00' ,'2009-07-15 15:59:00' "  ''''查询归档数据

rst.Open ssql, cc1

回答者：

mugui

-

中级工程师&nbsp&nbsp第10级

2009-07-15 16:56:03

以下网友赞了您的问题：

功能

填写您的评论...

提问者对于答案的评价：

谢谢

暂无评论