致力于软件自动化测试的研究和探索
QTP中读取Access数据
上一篇 /
下一篇 2007-05-15 15:36:16 / 天气: 晴朗
/ 心情: 平静
/ 精华(2)
/ 个人分类:蓝天测试
)Wi
?.x(f;Y0以下是我写的QTP脚本,目的是用来读取Access数据库中的数据,代码如下:
j\fK.f*j%h&e"|0t7XS'J)V"w9w0Option explicit51Testing软件测试网^ iMW"ga4J
Dim Cnn ,strDb,Rst,strCnn,ilen '//定义变量
l2\y-G9u0strCnn="Provider=Microsoft.Jet.OLEDB.4.0;Ole DB Services=-4;Data Source=D:\test\calc.mdb" ' //将获得的连接字符串赋值到
/{ d6j(r8j-Lw3fg n
U0Set Cnn=CreateObject("ADODB.Connection") '//生成数据库连接对象51Testing软件测试网+y%m7N1d R-P F@
Cnn.Open strCnn ' //打开数据库51Testing软件测试网
`m"OmAmr#iP`
Set Rst=CreateObject("ADODB.Recordset") '//生成记录集对象
[l.Q\P-y0Rst.Open "select * from calc" ,Cnn 51Testing软件测试网 \0l/R!t'H5R1S
Do While Not Rst.EOF 51Testing软件测试网 h&FE6d@aa
For iLen=1 to 3 '//我的表中只有3个字段,当然这种方法通用性不是很好51Testing软件测试网KR d*t'SAE&W
Select Case iLen51Testing软件测试网Bk)C[*@']({
Case 151Testing软件测试网5AN_}(^.l
U:\'\Sa
strDb=strDb&Rst.Fields.item(iLen)&" "
'^ gjk"bk
{8eL0 Case 2
#Lq:h%wT0?u7I-k {0 strDb=strDb&"+ "&Rst.Fields.item(iLen)&" "51Testing软件测试网;l#o-`n-Z
Case 3
$[:nZ0l3px:t&x0 strDb=strDb&"= "&Rst.Fields.item(iLen)51Testing软件测试网h~8IX6qI |w#zg
End Select51Testing软件测试网o%w%V3|OnG
v
Next51Testing软件测试网l5X$T4y.x*]6Q_2Y
strDb=strDb&chr(13)
Tu$B~
oky
D0 Rst.MoveNext51Testing软件测试网m9J2\sVU.mc
Loop51Testing软件测试网#Vy*I$Xnt(rM'i o
Rst.Close
jo
K5Oc0cnn.close51Testing软件测试网a"y#`"Mmn&Fa
msgbox strDb
$T,yQ??h c~&rk!I0希望这对QTP新手找这方面资料时有点帮助.
'Cm
JcJ0
相关阅读:
- [zt]解决AJAX写的控件不能录制方法 (sidneylover, 2007-4-30)
- HAHU讲义——QTP9.0笔记回放及发散 (hahu2001, 2007-5-01)
- 贺喜! (hahu2001, 2007-5-01)
- 终于按着教程走完了QTP基础功能 (hahu2001, 2007-5-06)
- [总结]QTP Timeout Settings (风过无息, 2007-5-08)
- QTP学习笔记(很简单的记录下,不足以做参考资料) (caicai1724, 2007-5-08)
- 将一个输入值作参数化后,运行时为什么只跑了一次,使用了第一个参数. (eramyang, 2007-5-10)
- 提高 SQL 性能的方法 (fishy, 2007-5-11)
- 最近在学习QTP,想到什么就写上去吧. (wuzhuayu, 2007-5-14)
- QTP中退出正在执行中的脚本的方法 (wuzhuayu, 2007-5-14)
收藏
举报
TAG:
QTP
数据库
关于测试
ACCESS