WINCC向SQL数据库写数据

已锁定

看不到自己

  • 帖子

    80
  • 精华

    0
  • 被关注

    3

论坛等级:游士

注册时间:2009-07-16

普通 普通 如何晋级?

WINCC向SQL数据库写数据

1903

3

2018-09-28 20:37:13

 我正在做一个项目,外部模拟量采集后,计算一个小时的累积量,然后在存入用户归档,进行写入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

WINCC向SQL数据库写数据 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有30993条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。