下面是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