以下代码我在全局脚本或者通过按钮事件都无法将testa\testb两个变量的值写入baobiao1的new表格内.找不出原因......求助
Option Explicit
Function action
Dim TAG1
Dim TAG2
Dim str,cn
Set TAG1=HMIRuntime.Tags("testa").read
Set TAG2=HMIRuntime.Tags("testb").read
str="provider=SQLOLEDB.1.1;Integrated Security=SSPI;Persist Security Info=False;catalog=baobiao1;data source=.\wincc"
Set cn=CreateObject("ADODB.connection")
cn.connectionString=str
cn.Open
is_SQL="insert into new(yali,wendu) Values('"&TAG1.value&"','"&TAG2.value&"')"
cn.Execute is_SQL
cn.Refresh
cn.Close
End Function
最佳答案
在画面中加入调试画面，把每一步的返回信息打印出来。
我估计是数据库打开时候出错了，但是由于你没有打印调试信息，所以你看不到出错在哪儿了。
提问者对于答案的评价：
en
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc200470.html
微信扫一扫 
支付宝扫一扫