[方法技巧] DataSet的妙用 东西, 工作

DataSet对象是6.0SP3之后出来的新东西(不知道准确不，反正6.0SP1是没有)，可以用来在不同VBS之间传递数据。一开始以为只能传递数值，没想到还能传递对象，^_^。
在起始画面的OpenPicture事件中进行初始化工作：

1. Dim Conn,rs
   
2. Set Conn=CreateObject("ADODB.Connection")
   
3. Conn.Open "Test"
   
4. Set rs=CreateObject("ADODB.RecordSet")
   
5. HMIRuntime.DataSet.Add "Conn",Conn
   
6. HMIRuntime.DataSet.Add "rs",rs

复制代码

运行后Conn以及rs就成为了全局对象，在任意画面的VBS脚本都可以对它进行访问了。

1. Dim Conn,rs
   
2. Set Conn=HMIRuntime.DataSet("Conn").Value
   
3. Set rs=HMIRuntime.DataSet("rs").Value
   
4. On Error Resume Next
   
5. rs.close
   
6. rs.open "SELECT * FROM USERNAME",Conn,1,1
   
7. rs.MoveFirst
   
8. MsgBox rs("UserName")

复制代码