标题: [方法技巧] DataSet的妙用 [打印本页]

---

作者: shillan    时间: 2011-11-3 21:07     标题: 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")

复制代码

---

欢迎光临 逐梦论坛 (http://temp2023.zhumeng.org/)

Powered by Discuz! 7.2