我正在做一个项目,外部模拟量采集后,计算一个小时的累积量,然后在存入用户归档,进行写入SQL数据时。数据写不进去,也没报错,搞不清楚,希望哪位专家指点一下!
下面是代码
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim sCON,sSql,oRS,conn,oCom,Con
Dim sPro,sDsn,sSer
Dim Data1,Data2,Data3
Dim sDate
Data1 = HMIRuntime.Tags("TestTag01").Read
Data2 = HMIRuntime.Tags("TestTag02").Read
Data3 = HMIRuntime.Tags("TestTag03").Read
sDate = Now
sPro = "Provider = WinCCOLEDBProvider.1;"
sDsn = "Catalog = CC_test_18_09_25_21_21_37R;"
sSer = "Data Source =.\WinCC"
sCON = sPro+sDsn+sSer
Set conn = CreateObiect("ADODB.Connection")
conn.ConnectionString = sCON
conn.CursorLocation =3
conn.Open
sSql= "insert into UA#MBaoBiao(sDate,Data1,Data2,Data3)VALUES('"&sDate&"','"&Data1.Value&"','"&Data2.Value&"','"&Data3.Value&"')"
Set oRs= CreateObiect("ADODB.Recordset")
Set oCom= CreateObiect("ADODB.Command")
Set oCom.ActiveConnection=conn
oCom.CommandType=1
oCom.CommandText=sSql
Set oRs= oCom.Execute
Set oRs= Nothing
conn.Close
Set conn=Nothing
End Sub