QTP中读取Access数据

以下是我写的QTP脚本,目的是用来读取Access数据库中的数据,代码如下:51Testing软件测试网GU0i4u0D2O

Q's5`5s+X0Option explicit51Testing软件测试网 _}BVX.L(@s2N
Dim Cnn ,strDb,Rst,strCnn,ilen  '//定义变量
w iWv{ d*o&X0strCnn="Provider=Microsoft.Jet.OLEDB.4.0;Ole DB Services=-4;Data Source=D:\test\calc.mdb" ' //将获得的连接字符串赋值到51Testing软件测试网L/|%dZ tY/H
Set Cnn=CreateObject("ADODB.Connection") '//生成数据库连接对象
RtDX_0Cnn.Open strCnn   '   //打开数据库
9b1p8p$b%X
tn dA0Set Rst=CreateObject("ADODB.Recordset")  '//生成记录集对象 51Testing软件测试网!WAq|4MK+V+| {C
Rst.Open "select * from calc" ,Cnn  
zug3M;y fb0Do While Not  Rst.EOF 51Testing软件测试网_jO`#qM9G6Dsn @
   For iLen=1 to 3  '//我的表中只有3个字段,当然这种方法通用性不是很好51Testing软件测试网0b0Tw2_U,s:~2}
    Select Case iLen
O6tgd;^&Jy0      Case 151Testing软件测试网GM6l"{fB-S]p
              strDb=strDb&Rst.Fields.item(iLen)&" "
-yJ*`~f0ni0      Case 251Testing软件测试网)b.@#go,aJ8e*A&rp
              strDb=strDb&"+ "&Rst.Fields.item(iLen)&" "51Testing软件测试网+X9Udf)n6T/a$\)D
      Case 351Testing软件测试网'bj#^"@m Gl
              strDb=strDb&"= "&Rst.Fields.item(iLen)
J1x7KT:b0    End Select
W}yx7}@x N0   Next51Testing软件测试网uI*@+ne%yjrl%N+@
   strDb=strDb&chr(13)
oZ-X%Tx:df0   Rst.MoveNext
Ev${*DS"v-z@X0 Loop51Testing软件测试网kdPjqo~
Rst.Close
,y6b
@Ze wY_p0cnn.close51Testing软件测试网3`,s`[g$H!] NI
msgbox strDb51Testing软件测试网k*Na$?GVdV
希望这对QTP新手找这方面资料时有点帮助.51Testing软件测试网|+Zx;{dP3L