直接用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
-
中级工程师  第10级
2009-07-15 16:56:03
以下网友赞了您的问题:
功能
填写您的评论...
提问者对于答案的评价:
谢谢
暂无评论