如何在QTP的多个Action中传递参数（参数为对象、数组）

tongdan617

先后尝试了多种方法，通过DataTable的globalsheet无法实现，通过环境变量也无法实现，通过input parameter和output parameter也不能实现。希望高手指点一下。

jifeng

经常用到的好像都是传递单个数据，对象、数组好像很难实现。

hsjzfling

在vbs文件中定义变量，加到Resources中。

tongdan617

楼上的能不能说的明白一点？
我目前这样实现
在Action1中Set records= CreateObject("ADODB.Recordset")
                      Environment.Value("yy") = records
在Action2中Set records= CreateObject("ADODB.Recordset")
                      records = Environment.Value("yy")
                      countnumber = records.RecordCount  ---这个语句运行的时候提示错误，对象不支持该方法

hsjzfling

已经说的很明白了。。。
举个例子吧：
1. 在Action1中写上
Set oWSH = CreateObject("Wscript.Shell")

2. 在Action2中写上
Set a = oWSH
a.PopUp  "Do you feel alright?", 3, "Answer This Question:", 4 + 32

3. 新建个vbs文件，写上
Dim oWSH
保存后将该文件加到File->Settings->Resources 中

4. Run

BTW，全局变量统一定义和管理，是测试框架中不可或缺的一部分

zte_boy

QTP本身的输入输出参数并不支持对象和数据，要进行这样的传递，一定要在vbs中定义全局变量

angek

恩，又学了一招

tongdan617

已经按照提供的方法解决问题，谢谢大家～

ziheng198688

原帖由 tongdan617 于 2009-5-7 15:36 发表
楼上的能不能说的明白一点？
我目前这样实现
在Action1中Set records= CreateObject("ADODB.Recordset")
                      Environment.Value("yy") = records
在Action2中Set records= CreateObject("ADOD ...

楼主请注意 并不是说通过环境变量不能在多个Action中传递 而是楼主的用法错误
records是一个对象 通过Environment.Value("yy") = records赋值是不正确的 左边是变量 右边是对象 这样赋值是不正确的
楼主可以尝试以下用法
在Action1中Set records= CreateObject("ADODB.Recordset")
                      Set Environment.Value("yy") = records
在Action2中Set records= CreateObject("ADODB.Recordset")
                      Set records = Environment.Value("yy")
                      countnumber = records.RecordCount

hihotb

学东西到手。。。哈

lvguobin

调用带有参数的操作

        如果所调用的操作已定义了输入和/或输出参数，您还可以提供输入参数的值以及输出参数的存储位置，作为 RunAction 语句的参数。输入参数列在输出参数之前。

        对于输入参数，可以指定一个固定值，也可以指定另一个已定义的参数（数据表参数、环境参数或调用操作的操作输入参数）的名称，输入参数将采用该已定义参数的值。

        对于输出参数，可以指定一个用于存储值的变量，或者是一个已定义参数（数据表参数、环境参数或调用操作的操作输出参数）的名称。

        带有参数的操作调用使用以下语法：

        RunAction ActionName,IterationQuantity,Parameters

        例如，假设从 Action1 调用 Action2，并且 Action2 有一个已定义的输入参数和一个已定义的输出参数。

        RunAction "Action2", oneIteration, "MyValue", MyVariable

        为输入参数提供 MyValue 的字符串值，并将输出参数生成的值存储在名为 MyVariable 的变量中。

        RunAction "Action2", oneIteration, Parameter(ìAxn1_In), DataTable("Column1_out", dtLocalSheet)

        使用为 Action1 的 Axn1_In 输入操作参数定义的值作为该输入参数的值，并将输出参数生成的值存储在 Action1 的数据表工作表中名为 Column1_out 的一列中。

liuliu022004

挺好的帖子. 学习了. 顶给需要的人看

xyan

学习了～

low1210

受教，解决问题鸟！！

hsjzfling

就记得很久以前回答过类似的问题，没想到就是当初那帖子……

af_wym

非常好的方法 谢谢

louqqson008

学习下

yong009003

5、9楼正解。