下面是wincc从servser中读数据的全局脚本，可怎么也做不出来，有哪位高手能给指点一下吗？谢谢
Dim strcn,cn，a
Dim is_SQL,rscom
a=HMIRuntime.Tags("bianliangming").read
Set cn=CreateObject("ADODB.Connection")
strcn="Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;InitialCatalog=baoming;Data Source=.\wincc"
cn.ConnectionString=strcn
Set rscom=CreateObject("ADODB.Recordset")
is_SQL ="select yilie from biaoming where erlie="&a&""
'意思是从表中查询erlie与HMIRuntime.Tags("biangliangming").read值相等的记录中的yilie这个字段
cn.open
cn.Execute is_SQL
rscom.CursorLocation = 2
rscom.Open is_SQL,cn,0,1,1
’取返回值
ScreenItems("静态文本1").Text=rscom("yilie")
'将chang的返回值赋予wincc中静态文本1的text属性显示
cn.close
最佳答案
别在全局脚本里做，换个按钮触发试试，或者再定义2个变量s.f,把ScreenItems("静态文本1").Text=rscom("yilie") 改成
set s= rscom("yilie")
f=s.value
hmiruntimes.tags（“变量”）.write f
即可
提问者对于答案的评价：
谢谢你的答案
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc272225.html
微信扫一扫 
支付宝扫一扫 