Option Explicit
Function action
Dim BS201
Dim BS202
Dim BS200
Dim RM_MASTER '判断是否执行全局脚本
Set RM_MASTER = HMIRuntime.Tags("A33")
RM_MASTER.Read
If RM_MASTER.Value = 1 Then
Set BS201 = HMIRuntime.Tags("ChannelOut1")
BS201.Read()
Set BS202 = HMIRuntime.Tags("ChannelOut4")
BS202.Read()
BS200 = BS201.Value + BS202.Value
'//DATABASE
Dim objAdoConn
Dim objRecordset
Dim objCommand
Dim strAdoConn
Dim strSQL
Dim retVal
Dim FrontstrSQL
Dim BackstrSQL
Dim BSstrSQL
Set objAdoConn= CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
Set strAdoConn = HMIRuntime.Tags("ADOConnectStr")
strAdoConn.Read()
objAdoConn.CommandTimeout=5
objAdoConn.connectionstring = strAdoConn.Value
objAdoConn.CursorLocation = 3'//important
objAdoConn.open
BSstrSQL ="insert into BSData(RecordTime,BS201,BS202,BS200,TimePointStr"&_
")values"&_
"('"&Now()&"','"&BS201.value&"','"&BS202.value&"','"&BS200&"',0,'00:00')"
objAdoConn.Execute FrontstrSQL
objAdoConn.Execute BackstrSQL
objAdoConn.Execute BSstrSQL
If Err.Number<>0 Then
MsgBox Err.Description
Err.Clear
End If
objRecordset.close
Set objRecordset = Nothing
Set objCommand = Nothing
objAdoConn.close
Set objConnection = Nothing
'RM_MASTER.Value = 0
Set M_MASTER.Value = HMIRuntime.Tags("A33")
'1#通道报警处理
'（LLA）
'If objtag2.Value < objtag60.Read Then
tag1.Value = 0
tag1.Write 'statements
End If
我用的是SQL2008R2，因是初次使用VBS脚本配合wincc，上面是我写的数据写入数据库脚本，可是SQL内部没有我写的数据，是不是缺少创建数据库脚本，有没有详细一点的操作步骤，SQL需不需要设置？
最佳答案
SQL本身不需要设置，但是做这个第一步是建立一个数据库并且建立数据库表，这个一般是手动在SQL里建立的，其次，你的脚本的SQL语句字符串必须要与相关的表一致，尤其是检查字段名，先确定是否连接成功，然后在数据库里测试好语句，最后两者结合，成功率就是100了。2606352062欢迎交流
提问者对于答案的评价：
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc358741.html
微信扫一扫 
支付宝扫一扫 