|
QTP连接数据库是一个比较重要步骤可以检查系统插入、删除、修改的数据有无在数据库中更新,对于一些动态生成的元素,也可通过查找数据库来取得,比如:有些id号是递增产生的,也可通过查找数据库中该字段的最大值来取值。
作为一个新手,在使用QTP的过程中遇到很多问题,通过上网搜寻资料,这里做了一下小结,知道的人就可以不看了,希望对不了解的人有所帮助。
这里主要以我工作的用到的DB2数据库为例,先要在本地安装DB2的客户端,建立数据链接;接下来就是:
先建立一个xx.udl的文件,打开后,编辑连接,测试连接,然后用记事本打开,检查有语句如:
###############################################################################
[oledb]
; Everything after this line is an OLE DB initstring(此行下都是OLE DB的初始化语句)
Provider=MSDASQL.1 Password=db2 Persist Security Info=True;User ID=db2admin; Data Source=LOANCS
###############################################################################
也就是说“Provider=MSDASQL.1 Password=db2 Persist Security Info=True;User ID=db2admin;Data Source=LOANCS”就是数据库连接语句了,也就是我们需要的ConnectionString了。
例子如下:
Dim conn,res,strSql'定义变量
Set conn = CreateObject("ADODB.Connection")'创建连接
conn.ConnectionString ="Provider=MSDASQL.1 Password=db2 Persist Security Info=True;User ID=db2admin;Data Source=LOANCS"
conn.Open'开启连接
If conn.State = 0 Then
Reporter.ReportEvent micFail,"测试连接","数据库连接失败!"
conn.Close
Set conn = Nothing
Else
Reporter.ReportEvent micPass,"测试连接","数据库连接成功!"
End If
Set res = CreateObject("ADODB.RecordSet")'创建一个记录集对象
strSql="select * from loan.xt_czydl" '查询语句
res.Open strSql,conn
res.MoveFirst
Do
Reporter.ReportEvent micDone,"数据为:",cstr(res(0))+"
"+cstr(res(1)) '取得数据结果表前两列
res.MoveNext
loop until res.EOF = TRUE
res.Close
Set res = Nothing
conn.Close
Set conn = Nothing
[ 本帖最后由 mao303mao 于 2010-7-27 19:35 编辑 ] |
|