Question

wincc vb读取历史数据。连接不上。

Sub X6309X94AE1X0000E_OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y)
Dim sPro
Dim sDsn
Dim sSer
Dim sCon
Dim sSql
Dim conn
Dim oRs
Dim oCom
Dim oItem
Dim m,n,s
Dim ListView
Set ListView = ScreenItems ("ListView1")
With ListView
.fullrowselect=True
End With
sPro="Provider=WinCCOLEDBProvider.1;"
sDsn="Catalog=CC_SCP_Moni_11_06_30_14_45_14R"
sSer="Data Source=SCP-MONITOR\WINCC"
sCon=sPro+sDsn+sSer
sSql="TAG:R,'scp1\CD_Totaltime','2011-07-28 11:00:00.000','2011-07-28 13:00:00.000'"
MsgBox "1" & vbCr & "Open with:" & vbCr & sCON & vbCr & sSQL & vbCr
Set conn=CreateObject("ADODB.Connection")
conn.ConnectionString=sCon
conn.CursorLocation=3
conn.Open
MsgBox "2" & vbCr & "Open witH:" & vbCr & sCON & vbCr & sSQL & vbCr
Set oRs=CreateObject("ADODB.Recordset")
Set oCom=CreateObject("ADODB.Command")
oCom.CommandType=1
Set oCom.ActiveConnection=conn
oCom.CommandText=sSql
MsgBox "3" & vbCr & "Open With:" & vbCr & sCON & vbCr & sSQL & vbCr
Set oRs = oCom.Execute ''''''''''各位大侠帮我看看吧，我的程序总是运行到这一句就错了。弹出窗口只到第三个。
MsgBox "4" & vbCr & "Open With:" & vbCr & sCON & vbCr & sSQL & vbCr
m=oRs.Fields.Count
MsgBox "m"
Set oItem=ListView.ListItems.Add()
oItem.Text=CStr(m)
oItem.SubItems(1)="5011"
oItem.SubItems(2)="2011-8-21"
oItem.SubItems(3)="2011-8-22"
oItem.SubItems(4)="2011-8-23"
oItem.SubItems(5)="2011-8-25"

oRs.Close
Set oRs=Nothing
conn.Close
Set conn=Nothing
End Sub

Answer 1

sDsn="Catalog=CC_SCP_Moni_11_06_30_14_45_14R"
sSer="Data Source=SCP-MONITOR\WINCC"
你的这两句话，没有加分号，你添加上试试吧。