Dim objconnection
Dim connstr
Dim strsql
Dim record
Dim tvalue
connstr="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=jh;Data Source=.\WINCC"
Set objconnection=CreateObject("adodb.connection")
objconnection.ConnectionString=connstr
objconnection.open
strsql ="select B from Table_1 where A='asd';"
record =CreateObject("ADODB.Recordset")
Set record = objconnection.execute(strsql)
record.Movefirst
tvalue = record.Fields(0).Value
HMIRuntime.Tags("Database1").Write tvalue
HMIRuntime.Tags("Database1").read
objconnection.close
Set Record = Nothing
Set objConnection = Nothing
说明：
在界面上放了一个按钮，脚本作为单击动作。
Database1是定义的16位nchar内部变量，数据库B字段也为16位nchar类型。
在面板放了一个I/O域用来显示Database1，运行后单击按钮，没有放应，不知道为什么？
再者，怎样看到运行脚本时变量的值，象在VB或者C编程环境一样方便？
问题补充：
wincc 怎样在调试C或者VB脚本时，监控变量的值？
最佳答案
在VB脚本中可以用msgbox来调试程序，比如 msgbox record.Fields(0).Value,脚本执行到这行时回弹出变量的值。用这个办法也可以测试脚本执行到哪里。
提问者对于答案的评价：
可以参考
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc265954.html
微信扫一扫 
支付宝扫一扫 