Subget_wincc_data()
‘–GetDatabASeDSNname———————————-
SetDSNName=CreateObject("CCHMIRuntime.HMIRuntime")
sDsn=DSNName.Tags("@DatasourceNameRT").Read
‘–buildconnectionSTring——————————–
sPro="Provider=WinCCOLEDBProvider.1;"
sDsn="Catalog="&sDsn&";"
sSer="DataSource=J1YOORGD4LDJVTJ.\WinCC"
sCon=sPro&sDsn&sSer
Setconn=CreateObiect("ADODB.Command")
conn.ConnectionString=sCon
conn.CursorLocation=3
conn.Open
SetoRs=CreateObject("ADOB.Recordset")
SetoCom=CreateObject("ADOB.Command")
oCom.CommandType=1
SetoCom.ActiveConnection=conn
‘查询起止时间
sStart=Year(DTPicker1.Value)&"-"&Month(DTPicker1.Value)&"-"&Day(DTPicker1.Value)&"00:00:00"
sStop=Year(DTPicker1.Value)&"-"&Month(DTPicker1.Value)&"-"&Day(DTPicker1.Value)&"23:00:00"
‘转为UTC时间
sStart=DataAdd("h",-8,CDate(sStart))
sStop=DataAdd("h",-8,CDate(sStop))
‘读取1#泵电流
sSql="Tag:R,(‘ProcessValueArchive\1#分站1#泵_A相电流’),’"&sStart&"’,’"&sStop&"’orderbydatetime"
oCom.CommandText=sSql
SetoRs=oCom.Execute
If(oRs.EOF)Then
oRs.Close
Else
oRs.MoveFirst
i=0
DoWhileNotoRs.EOF
Sheet1.Cells(i+4,2)=oRs.Fields("RealValue").Value
i=i+1
Loop
oRs.Close
EndIf
PrivateSubDTPicker1_Chanfe()
get_wincc_data
EndSub
问题补充：
单改的第十行可以啦但是Dateadd那有报子程序和函数未定义
最佳答案
spro="Provider=WinCCOLEDBProvider.1;"
sdsn="Catalog=CC_upzjg_11_12_15_14_45_14R;"
sser="DataSource=.\WinCC"
scon=spro+sdsn+sser
ssql="Tag:R,(”test\testdata”),”2011-12-157:27:00”,”2011-12-158:27:00”"
MsgBox"openwith:"&vbCr&scon&vbCr&ssql&vbCr
Setconn=CreateObject("ADODB.Connection")
conn.ConnectionString=scon
conn.CursorLocation=3
conn.Open
Setors=CreateObject("ADODB.Recordset")
Setocom=CreateObject("ADODB.Command")
ocom.CommandType=1
Setocom.ActiveConnection=conn
ocom.CommandText=ssql
Setors=ocm.Execute
/////////////////////////
你的第十行的指令“Setconn=CreateObiect("ADODB.Command")”应该是“Setconn=CreateObject("ADODB.Connection")”
提问者对于答案的评价：
谢谢，脚本改好啦！
最佳答案作者回复:
sStart=DataAdd("h",-8,CDate(sStart))
sStop=DataAdd("h",-8,CDate(sStop))
这两个的data应该是date
http://www.52PLC.net/read.php?tid=4268
评论字数太少了，你看看这个，是我做的完整的脚本。
