通过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
最佳答案
sPro="Provider=WinCCOLDEBProvider.1;" 改成 Provider=WinCCOLEDBProvider.1;
你拼错了
参考：WinCC/连通性软件包 V7.4
https://support.industry.siemens.com/cs/cn/zh/view/109736226
42页 3.4 通过 OLE DB 提供者进行访问
提问者对于答案的评价：
谢谢
专家置评
已阅，最佳答案正确。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc152441.html
微信扫一扫 
支付宝扫一扫 