51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2810|回复: 4
打印 上一主题 下一主题

[原创] 如何从数据集中依次取出所有element(已解决)

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-8-26 09:20:09 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在QTP中查询数据库取得两个字段N行数据,那么如何将这个数据集对象中两个字段中每条数据都读出来呢?
程序如下:
'如何从数据集中读取第一个字段的每行数据?

Dim itemData,result
'将返回的数据集对象赋值给result
Set result = QueryDatabase(tablename,fieldname1,fieldname2,fieldname3,network)
'下面如何将result中的每行数据依次打印出来?


'被调用程序
public Function QueryDatabase(byref tablename,byref fieldname1,byref fieldname2,byref fieldname3,byref network)
  On error resume next
  Dim cnn,objrsa,sql
           Set cnn=createobject("adodb.connection")
        Set objrsa=createobject("adodb.recordset")
    cnn.open "rovider=OraOLEDB.Oracle.1assword=***ersist Security Info=True;User ID=***;Data Source=database"
        If cnn.State=0 then
                cnn.close
                Set cnn=nothing
                Call WriteMsg(logFileNow,"连接数据库失败")
        Else
                Call WriteMsg(logFileNow,"连接数据库成功")
        End If
'执行查询语句
    sql="select "&fieldname1&","&fieldname2&" from "&tablename&"  where "&fieldname3&" like '%"&network&"'"
    objrsa.open sql ,cnn,3,2
   '将结果集对象返回调用者
    Set QueryDatabase = objrsa
    If err<>0 Then
                cnn.close
                Set cnn=nothing
                Call WriteMsg(logFileNow,"获得数据库数据时发生异常")
        End If
                cnn.close
                Set cnn=nothing
End Function

[ 本帖最后由 centurystone 于 2008-8-26 11:29 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2008-8-26 10:30:13 | 只看该作者
问题太简单吗
怎么没人理啊
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2008-8-26 10:55:01 | 只看该作者
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2008-8-26 11:25:01 | 只看该作者

回复 3# 的帖子

呵呵,多谢陈。按你说的方法已经解决了
解决方法如下:
Dim itemData,result
Set result = QueryDatabase(tablename,fieldname1,fieldname2,fieldname3,network)
'指向第一条记录
result.MoveFirst   
While not result.eof
 msgbox(result.Fields(fieldname1).value&","&result.Fields(fieldname2).value)
 '移动到下一条记录
 result.Movenext
Wend
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2008-8-26 15:33:18 | 只看该作者
不用谢。
多谢你的花

推荐我写的书《QTP自动化测试实践》。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-15 01:03 , Processed in 0.089226 second(s), 32 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表