向自定义的数据库表写入数据

已锁定

sharkboon

  • 帖子

    20
  • 精华

    0
  • 被关注

    2

论坛等级:新手

注册时间:2013-09-12

普通 普通 如何晋级?

向自定义的数据库表写入数据

1294

5

2013-09-16 11:07:57

我打开wincc自带的SQL,在数据库“CC_AronBlow_13_09_13_10_20_16R”下新建了一个TABLE(不知道合不合理),然后想通过wincc组态达到内部变量与这个表中的数据交换的目的(读和写)
现在我建了11个内部变量,并分别与11个I/O与连接向内部变量写数据,然后通过一个按钮将变量内的数据写入这个TABLE下,但始终为把数据写入表中,请问大神问题出在哪?按钮代码如下:

Dim objConnection
Dim objCommand
Dim objRecordset
Dim strConnectionString
Dim strSQL
Dim STEELNAME,F1,T1,F2,T2,F3,T3,F4,T4,F5,T5

STEELNAME=HMIRuntime.Tags("钢种").Read
F1=HMIRuntime.Tags("流量1").Read
F2=HMIRuntime.Tags("流量2").Read
F3=HMIRuntime.Tags("流量3").Read
F4=HMIRuntime.Tags("流量4").Read
F5=HMIRuntime.Tags("流量5").Read
T1=HMIRuntime.Tags("时间1").Read
T2=HMIRuntime.Tags("时间2").Read
T3=HMIRuntime.Tags("时间3").Read
T4=HMIRuntime.Tags("时间4").Read
T5=HMIRuntime.Tags("时间5").Read

strConnectionString = "DRIVER={SQL server};SERVER=.\WinCC;DATABASE=CC_AronBlow_13_09_13_10_20_16R;UID=;PWD="
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open

Set objRecordset = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

strSQL = "insert into STEELSERIES (STEEL,F1,T1,F2,T2,F3,T3,F4,T4,F5,T5)values ('"&STEELNAME&"',"&F1&","&T1&","&F2&","&T2&","&F3&","&T3&","&F4&","&T4&","&F5&","&T5&");"
MsgBox(strSQL)
objCommand.CommandText = strSQL
objCommand.Execute

Set objCommand = Nothing
objConnection.Close
Set objRecordset = Nothing
Set objConnection = Nothing
向自定义的数据库表写入数据 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32773条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

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

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

  • 分享

  • 只看
    楼主

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