找答案

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脚本时，监控变量的值？

产品版区：SIMATIC WinCC 悬赏分:50 | 解决时间：2011-05-02 14:37:56 | 提问者： 混日子 - 学长  第2级

回答者： mugui - 中级工程师  第10级  2011-04-20 20:41:20

评论

提问者对于答案的评价：
可以参考

1、检查 I/O 区域数据格式是否组态为 string。
2、数据库中是否有符合查询条件的记录。

《在 WinCC RT 中，如何得到全局脚本诊断窗口中错误消息的描述？》
http://support.automation.siemens.com/CN/view/zh/12124767

回答者： 罗丹的侯.鸟 - 高级工程师  第11级
 2011-04-20 21:00:10