QTP中读取Access数据

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

s K \2a%le R0Option explicit
;u&V:hh a:DB0Dim Cnn ,strDb,Rst,strCnn,ilen  '//定义变量51Testing软件测试网EaC:iv$gA"d!y
strCnn="Provider=Microsoft.Jet.OLEDB.4.0;Ole DB Services=-4;Data Source=D:\test\calc.mdb" ' //将获得的连接字符串赋值到51Testing软件测试网,puVo
J5D&m\
Set Cnn=CreateObject("ADODB.Connection") '//生成数据库连接对象
8k6n:Alg-pM0Cnn.Open strCnn   '   //打开数据库
Uw_3Vc0Set Rst=CreateObject("ADODB.Recordset")  '//生成记录集对象 
'AS4maKX7@0Rst.Open "select * from calc" ,Cnn  
3Ml'` o&H0Do While Not  Rst.EOF 
Zy(}M(Dm+{UY\0   For iLen=1 to 3  '//我的表中只有3个字段,当然这种方法通用性不是很好
Y6DfQ@3qT~0    Select Case iLen
C O5l)Yl*M4Bj6G0      Case 1
4jOz&C3Bm v7_0              strDb=strDb&Rst.Fields.item(iLen)&" "
H%Mi|4kb-t0      Case 251Testing软件测试网f7dS:@'l1D.Dv
              strDb=strDb&"+ "&Rst.Fields.item(iLen)&" "
r7x4y|\1~#o0      Case 351Testing软件测试网4EC|?ub
              strDb=strDb&"= "&Rst.Fields.item(iLen)
m%xji6F1[0    End Select51Testing软件测试网HdW!~{2a2@4p6WE
   Next51Testing软件测试网 SeWf2]&^h
f
   strDb=strDb&chr(13)
i4R3a4k6S*[0   Rst.MoveNext51Testing软件测试网+a_1GK-z*X2V.o
 Loop51Testing软件测试网i&~y)?v5a
Rst.Close51Testing软件测试网"h-XvO_p"TY
cnn.close51Testing软件测试网@4~%\}U(td
msgbox strDb
Uf-j,S6\L:s-@0希望这对QTP新手找这方面资料时有点帮助.51Testing软件测试网-m6v!?x/c$A yZ