找答案

悬赏: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

回答者： RENHQ 回答时间：2017-02-08 15:26

RENHQ - 元老  第16级 

评论

提问者对于答案的评价：
谢谢

已阅，最佳答案正确。

置评专家：西门子人机界面产品支持 2017-02-09 17:02

暂无回答