51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2822|回复: 7
打印 上一主题 下一主题

[原创] qtp连接数据库,将数据导入到datatable

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2011-8-22 13:54:48 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 yidao8808 于 2011-8-22 13:57 编辑

Dim Cnn
Dim Rst
Dim strCnn
Set Cnn = CreateObject("ADODB.Connection")
Set Rst =CreateObject("ADODB.Recordset")
strCnn="provider=OraOLEDB.Oracle.1;Data Source=192.168.10.8/aurora;password=xxx;User ID=xxx; Security Info=True;"
Cnn.Open strCnn
If Cnn.State=0 Then

Reporter.ReportEvent micFail,"testing","数据库连接失败"

else

Reporter.ReportEvent micPass, "testing","数据库连接成功"
End If
If Cnn.State<>0 Then
    strsql="select * from pets"

Rst.Open strsql,Cnn

i=1

  Do While  Not Rst.eof
           msg=Rst("name")
         '将pets表中的name列导入到datatable,Action1表的name列
          Datatable.GetSheet("Action1").GetParameter("name").ValueByRow(i) = msg

        '游标移动,指向下行记录


        Rst.MoveNext
        i=i+1


   Loop
   Rst.Close
   Cnn.Close
   Set Rst=nothing
   Set cnn=nothing
End If
运行完毕,查看results,

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2011-8-22 15:43:37 | 只看该作者
学习了
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2011-8-22 15:59:11 | 只看该作者
这个脚本有个弱点,只能操作类似Select * From XXX这种对物理表查询的结果
如果是一个存储过程返回的结果就无法获得了
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2011-8-23 14:33:55 | 只看该作者
回复 3# 阳光下的橙子


    嗯。,正在学习QTP,好多东西还没搞懂懂呵呵。。
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2011-8-23 14:34:10 | 只看该作者
回复 2# 夏日摸摸茶


    相互学习。,呵呵
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2016-1-29 13:51
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    6#
    发表于 2012-7-17 16:59:01 | 只看该作者
    提示: The set DataTable.Value operation failed. The <QQ_ID> column does not exist. 如何解决
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
    发表于 2012-8-13 11:34:48 | 只看该作者
    这个貌似只能导入一列数据。如果想把查询数据表中的所有数据导入到datatable中要如何改进呢?
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
    发表于 2012-8-21 15:53:07 | 只看该作者
    正在学习
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-24 03:57 , Processed in 0.085684 second(s), 29 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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