yidao8808 发表于 2011-8-22 13:54:48

qtp连接数据库，将数据导入到datatable

本帖最后由 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 WhileNot 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，

夏日摸摸茶 发表于 2011-8-22 15:43:37

学习了

阳光下的橙子 发表于 2011-8-22 15:59:11

这个脚本有个弱点，只能操作类似Select * From XXX这种对物理表查询的结果
如果是一个存储过程返回的结果就无法获得了

yidao8808 发表于 2011-8-23 14:33:55

回复 3# 阳光下的橙子


    嗯。，正在学习QTP，好多东西还没搞懂懂呵呵。。

yidao8808 发表于 2011-8-23 14:34:10

回复 2# 夏日摸摸茶


    相互学习。，呵呵

450683057 发表于 2012-7-17 16:59:01

提示： The set DataTable.Value operation failed. The <QQ_ID> column does not exist. 如何解决

betty7zhang 发表于 2012-8-13 11:34:48

这个貌似只能导入一列数据。如果想把查询数据表中的所有数据导入到datatable中要如何改进呢？

lintongyan 发表于 2012-8-21 15:53:07

正在学习
页: [1]
查看完整版本: qtp连接数据库，将数据导入到datatable