欢迎来到西门子工业支持中心网站!
欢迎来到西门子工业支持中心网站!
悬赏:5西币 | 解决时间:2017-02-08 15:37
产品版区:
SIMATIC WinCC
菜鸟先飞早入林
通过VB读取归档变量,但是执行到conn.open是提示错误,显示未找到提供程序,该程序可能为正确安装。
程序如下
Set dsn=HMIRuntime.Tags("@DatasourceNameRT")
dsn.Read
sPro="Provider=WinCCOLDEBProvider.1;"
sDsn="Catalog="&dsn.value&";"
sSer="Data Source=.\wincc"
sCon=sPro & sDsn & sSer
Set conn=CreateObject("ADODB.Connection")
conn.ConnectionString = sCon
conn.CursorLocation = 3
conn.open
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActiveConnection = conn
sdate=Year(rili.Value)&"-"&Month(rili.Value)&"-"&Day(rili.Value)
sStart=sdate&" "&"00:00:00"
sStop=sdate&" "&"23:59:59"
sStart=DateAdd("h",-8,CDate(sStart))
sStop=DateAdd("h",-8,CDate(sStop))
sql="Tag:R,('ProcessValueArchive\反洗总管流量计实际值','ProcessValueArchive\膜池1流量计实际值值'),'"&sStart&"','"&sStop&"' order by datetime"
oCom.CommandText=sql
Set oRs=oCom.Execute
小程序:
最佳答案
42页 3.4 通过 OLE DB 提供者进行访问
回答者:
RENHQ
回答时间:2017-02-08 15:26
提问者对于答案的评价:
谢谢
专家置评
已阅,最佳答案正确。
置评专家:西门子人机界面产品支持 2017-02-09 17:02