軟件測試中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.anti-gravitydesign.com