软件测试中QTP是如何读取Access数据

软件测试中QTP是如何读取Aclearcase/" target="_blank" >ccess数据及qtp是什么

以下是我写的QTP脚本,目的是用来读取Access数据库中的数据,代码如下:

Option explicit
Dim Cnn ,strDb,Rst,strCnn,ilen  '//定义变量
strCnn="Provider=Microsoft.Jet.OLEDB.4.0;Ole DB Services=-4;Data Source=D:\test\calc.mdb" ' //将获得的连接字符串赋值到
Set Cnn=CreateObject("ADODB.Connection") '//生成数据库连接对象
Cnn.Open strCnn   '   //打开数据库
Set Rst=CreateObject("ADODB.Recordset")  '//生成记录集对象
Rst.Open "select * from calc" ,Cnn
Do While Not  Rst.EOF
   For iLen=1 to 3  '//我的表中只有3个字段,当然这种方法通用性不是很好
    Select Case iLen
      Case 1
              strDb=strDb&Rst.Fields.item(iLen)&" "
      Case 2
              strDb=strDb&"+ "&Rst.Fields.item(iLen)&" "
      Case 3
              strDb=strDb&"= "&Rst.Fields.item(iLen)
    End Select
   Next
   strDb=strDb&chr(13)
   Rst.MoveNext
 Loop
Rst.Close
cnn.close
msgbox strDb
希望这对QTP新手找这方面资料时有点帮助.

原文转自：http://www.ltesting.net