(转)QTP中读取Access数据
上一篇 /
下一篇 2007-05-24 13:40:03
/ 个人分类：QTP
以下是QTP脚本,目的是用来读取Access数据库中的数据,代码如下:
Option explicit
R0q:J:B0N OGqq94129Dim Cnn ,strDb,Rst,strCnn,ilen '//定义变量
n8keP.RYC[1]k94129strCnn="Provider=Microsoft.Jet.OLEDB.4.0;Ole DB Services=-4;Data Source=D:\test\calc.mdb" ' //将获得的连接字符串赋值到
8f:AgdFH-K94129Set Cnn=CreateObject("ADODB.Connection") '//生成数据库连接对象
Z#cP2n
Bu1yw94129Cnn.Open strCnn ' //打开数据库
K R9N`IJ-j%[94129Set Rst=CreateObject("ADODB.Recordset") '//生成记录集对象 51Testing软件测试网im9L#C
T{:kJNS2p
Rst.Open "select * from calc" ,Cnn
im*~1N‑l1X8k94129Do While Not Rst.EOF 51Testing软件测试网(s0},p p PZ,V
For iLen=1 to 3 '//我的表中只有3个字段,当然这种方法通用性不是很好51Testing软件测试网y~I b d[1]Z9Oe 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 Vx9u
l[(Vg94129 strDb=strDb&"= "&Rst.Fields.item(iLen)51Testing软件测试网#`PA wY9r |j"h&w
End Select
9dO"S @7RK-F-Z5B%G1^94129 Next
z MOJ L94129 strDb=strDb&chr(13)
.V}S
Q%S,g94129 Rst.MoveNext
(u;t!y,o4]e5v$W J1}94129 Loop51Testing软件测试网_4h)~lSV ] G'Yfzf
Rst.Close51Testing软件测试网|M4L/R
~ {yO#K
cnn.close51Testing软件测试网K&x)B-t3kB
t8lL
msgbox strDb51Testing软件测试网'^p)T5`:F ~o@hL
希望这对QTP新手找这方面资料时有点帮助.
收藏
举报
TAG:
QTP
