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

yidao8808

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，

夏日摸摸茶

学习了

阳光下的橙子

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

yidao8808

回复 3# 阳光下的橙子


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

yidao8808

回复 2# 夏日摸摸茶


    相互学习。，呵呵

450683057

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

betty7zhang

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

lintongyan

正在学习