如何将datagird中的所有数据进行导出

shengyan

我现在写的测试脚本是一个查询操作。就是根据多个条件进行查询，查询结果集显示在datagrid中。
现在我已经写sql语句把基线数据查询出来了：
Sub dataBase_checkpoint()
        Set con=createobject("adodb.connection")
        con.open "DRIVER={Oracle in OraHome92};SERVER=CESHI;UID=CND_TEST;PWD=CND;DBQ=CESHI;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;"
        Set record=createobject("adodb.recordset")
        sql="select manualcode,babyname,sex,nativedetail,fathername,mothername from chr_bornregister  where fathername="&MyFather&""
        record.open
        sql.open
End Sub
那测试中的数据（即查询结果集显示在datagrid中的数据）怎么取出来呢？
我采用的方法是：
对datagrid设置insert output value，但问题是output type只有datatable 和enviroment两种。我看帮助里有三种的:
1。a test, action or component parameter.
2。the run-time Data Table.
3。an environment variable
我想应该是用a test, action or component parameter.这种输出类型吧。把数据集放到一个参数中，再与上面的sql进行比较
pass 或fail在report中进行输出
----------------------------------------------------
我是用这种方法的，不知道大家有什么好方法把测试中的数据（即查询结果集显示在datagrid中的数据）怎么取出来

[ 本帖最后由 shengyan 于 2005-11-18 15:35 编辑 ]

lovedemon

关注中

shengyan

啊，向版主求救

lovetest6

1. Sub GetCellData_Example()
   
2. 'The following example uses the GetCellData method to display the
   
3. 'contents of the cell located in cell 1, column 1 in a message box.
   
4. 
   
5. 
   
6. Set text = Browser("Mercury Tours").Page("Search Results").
   
7. WebTable("OutboundFlight").GetCellData(1, 1)
   
8.   MsgBox "text contains" & text
   
9. 
   
10. 
    
11. End Sub

复制代码

help里面的代码。或许对你有帮助。

lovetest6

如果是.net的控件，我就不清楚了哦。

shengyan

就是.net控件,但也可以用的
：）

[ 本帖最后由 shengyan 于 2005-11-21 14:23 编辑 ]

netsky_lt

研究中：根据多个字段进行查询
sql="select manualcode,babyname,sex,nativedetail,fathername,mothername from chr_bornregister  where fathername="&MyFather&""
然后把这些导出成为XLS或者XML文件；
那一位完成后请上传啊。