返回列表 发帖

Rank: 9Rank: 9Rank: 9

QQ
1# 跳转到 » 倒序看帖
打印
tT
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")
复制代码
收藏 分享
欢迎光临：逐梦论坛

返回列表

Powered by Discuz! 7.2　　 论坛QQ群：逐梦论坛群

© 2001-2021 Comsenz Inc.　鲁公网安备 37120302000001号