(转)QTP中读取Access数据

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

Option explicit
R0q:J:B0NOGqq94129Dim Cnn ,strDb,Rst,strCnn,ilen  '//定义变量
n8k
eP.RYCk94129strCnn="Provider=Microsoft.Jet.OLEDB.4.0;Ole DB Services=-4;Data Source=D:\test\calc.mdb" ' //将获得的连接字符串赋值到
8f:AgdFH-K94129Set Cnn=CreateObject("ADODB.Connection") '//生成数据库连接对象
Z#cP2nBu1yw94129Cnn.Open strCnn   '   //打开数据库
K R9N
`IJ-j%[94129Set Rst=CreateObject("ADODB.Recordset")  '//生成记录集对象 51Testing软件测试网i
m9L#CT{:kJNS2p
Rst.Open "select * from calc" ,Cnn  
im*~1Nl1X8k94129Do While Not  Rst.EOF 51Testing软件测试网(s0},p p PZ,V
   For iLen=1 to 3  '//我的表中只有3个字段,当然这种方法通用性不是很好51Testing软件测试网y~I bdZ9Oe c
    Select Case iLen51Testing软件测试网)RQiI8a j]V{F}
      Case 151Testing软件测试网\mj8LsL
              strDb=strDb&Rst.Fields.item(iLen)&" "
{B [1z#_"M*|oT Z$V(U94129      Case 2
,J,pB c,ou94129              strDb=strDb&"+ "&Rst.Fields.item(iLen)&" "
({0D"|3G cG!V"x7}&Z94129      Case 3
a(N)c Vx9ul[(Vg94129              strDb=strDb&"= "&Rst.Fields.item(iLen)51Testing软件测试网#`PA wY9r |j"h&w
    End Select
9dO"S @7RK-F-Z5B%G1^94129   Next
zMOJ L94129   strDb=strDb&chr(13)
.V}
SQ%S,g94129   Rst.MoveNext
(u;t!y,o4]e5v$W J1}94129 Loop51Testing软件测试网_4h)~lSV ] G'Y
fzf
Rst.Close51Testing软件测试网|M4L/R~ {yO#K
cnn.close51Testing软件测试网K&x)B-t3kBt8lL
msgbox strDb51Testing软件测试网'^p)T5`:F ~o@hL
希望这对QTP新手找这方面资料时有点帮助.