请高手帮帮忙__多个ACTION使用数据库记录集问题

yulen36 · 发表于 2007-10-10 17:42:38

ACTION1

Public conn,rst,sql,genre,Cgenre
Const strconn="

rovider=MSDAORA.1

assword=ussdtest;User ID=ussdtest;Data Source=USSDTEST

ersist Security Info=True"
Set conn=createobject("Adodb.connection")
Set rst=createobject("Adodb.recordset")
sql="select * from JMBCASE"
conn.open strconn
rst.open sql,conn
rst.movefirst
'Environment.Value("Cgenre")=rst
genre=rst.fields("genre").value
Parameter("rst1")=rst
While not rst.eof
   Select Case genre
   Case 0
         Dialog("移动商务平台测试工具").Restore
         RunAction "话费查询USSD", oneIteration
         Case 1
         RunAction "银行话费查询", oneIteration
   End Select
rst.movenext
Wend
conn.close
Set rst=nothing
Set conn=nothing

话费查询USSD ACTION(这是一个Reusable action)

Dialog("移动商务平台测试工具").Restore
Dialog("移动商务平台测试工具").WinRadioButton("话费查询(USSD)").Set
Dialog("移动商务平台测试工具").WinEdit("手机号1").Set rst.fields("mobileno1").value
Dialog("移动商务平台测试工具").WinEdit("手机号2").Set rst.fields("mobileno2").value
Dialog("移动商务平台测试工具").WinEdit("支付密码").Set "123456"
Dialog("移动商务平台测试工具").WinEdit("业务代码").Set rst.fields("operation").value
Dialog("移动商务平台测试工具").WinEdit("SPID1").Set rst.fields("spid1").value
Dialog("移动商务平台测试工具").WinEdit("SPID2").Set rst.fields("spid2").value
Dialog("移动商务平台测试工具").WinEdit("SP密码").Set rst.fields("sppwd").value
Dialog("移动商务平台测试工具").WinEdit("渠道编号").Set rst.fields("channel").value
.
.
.

问题描述如下:
我要在话费查询USSD ACTION里使用ACTION1里的记录集RST,我试了把它设为全局变量,没得行,我也试了环境变量,说是不支持,我用参数传递RST(用的ANY类型),又报类型不符,我究竟要怎样才能在另一个ACTION中去使用第一个ACtion的记录集,使用Dialog("移动商务平台测试工具").WinEdit("业务代码").Set rst.fields("operation").value去操作.谢谢!