软件测试中QTP是如何读取Aclearcase/" target="_blank" >ccess数据及qtp是什么
以下是我写的QTP脚本,目的是用来读取Access数据库中的数据,代码如下:
Option explicit
Dim Cnn ,strDb,Rst,strCnn,ilen '//定义变量
strCnn="Provider=Microsoft.Jet.OLEDB.4.0;Ole DB Services=-4;Data Source=D:\test\calc.mdb" ' //将获得的连接字符串赋值到
Set Cnn=CreateObject("ADODB.Connection") '//生成数据库连接对象
Cnn.Open strCnn ' //打开数据库
Set Rst=CreateObject("ADODB.Recordset") '//生成记录集对象
Rst.Open "select * from calc" ,Cnn
Do While Not Rst.EOF
For iLen=1 to 3 '//我的表中只有3个字段,当然这种方法通用性不是很好
Select Case iLen
Case 1
strDb=strDb&Rst.Fields.item(iLen)&" "
Case 2
strDb=strDb&"+ "&Rst.Fields.item(iLen)&" "
Case 3
strDb=strDb&"= "&Rst.Fields.item(iLen)
End Select
Next
strDb=strDb&chr(13)
Rst.MoveNext
Loop
Rst.Close
cnn.close
msgbox strDb
希望这对QTP新手找这方面资料时有点帮助.