我在数据中新建了一个watermsg表,字段inwater,我添加了按钮测试,可以写入数据库,但现在我想每隔5分钟周期性地写入数据库中,在全局动作中,在添加了一个触发器,为什么记录就写不进去?
Option Explicit
Function action
Dim objConnection
Dim strConnectionString
Dim lngValue
Dim strSQL
Dim objCommand
MsgBox( "0")
strConnectionString = "Provider=MSDASQL;DSN=WINCC;UID=;PWD=;"
'strConnectionString ="Driver={SQL Server};Server=WWW-8BED1D00196\WINCC;uid=;pass=;database=wincc"
lngValue = HMIRuntime.Tags("铺锦水闸外江水位1").Read
MsgBox( "1")
strSQL = "INSERT INTO watermsg (inwater) VALUES (" & lngValue & ");"
MsgBox( strSQL)
Set objCnnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
MsgBox( "2")
With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With
MsgBox( "3")
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
MsgBox( "good")
End Function
最佳答案
代码中只涉及到变量与数据库，因此，放在按钮中跟放在全局动作中，是一样的。
但现在按钮执行正常，全局动作不正常，说明全局动作的触发器有问题。检查一下吧。
提问者对于答案的评价：
谢谢,问题已解决
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc269220.html
微信扫一扫 
支付宝扫一扫 