QTP连接数据库小技巧

mao303mao

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 编辑 ]

xiaojiaofly

谢谢楼主。挺有用的

wyrf584

那个~~连接成功和失败的测试为什么不放在一个IF里。。。。。

mao303mao

是疏忽了。。。其实效果一样，改一下：
If conn.State = 0 Then

Reporter.ReportEvent micFail,"测试连接","数据库连接失败！"

conn.Close

Set conn = Nothing
Else
       Reporter.ReportEvent micPass,"测试连接","数据库连接成功！"
End If

再加上udl文件的截图：

FLY000

楼主 为什么我运行到 res.Open strSql,conn 这里 提示 数据类型不被支持

mao303mao

你能告诉我，提示信息吗；
你可以检查一下sql语句，还有，注意，结果集中数据的个数。

[ 本帖最后由 mao303mao 于 2010-8-2 20:27 编辑 ]