请问QTP访问数据库(Oracle), 可不可以用来比较两条记录的结果?
我在数据库中, 有一个模板记录, 新建立的记录, 想和数据库中的模板进行比较, 如果比较完全相同, 返回True, 如果有不相同的字段, 返回False, 并显示不相同的字段值。 不知道可能做到?QTP对数据库操作, 我不清楚, 查看了帮助, 也是一知半解, 网上这方面的资料很少, 不知道哪位大哥, 能给小弟一点,这方面的资料。多谢了! sdlkfj2 楼主是想比较纪录的值还是想比较表的字段啊? 我是想比较记录的值, 不知到怎么做, 能给点意见吗? 哪位大哥, 帮忙看一下? 给我点这方面的资料,也可以。 期待中。。。:) 抽了点时间写了个例子,希望能对你有帮助~
'创建连接数据库对象
Set conn = createobject("ADODB.Connection")
'连接Oracle数据库,注意选择好对应的Provider,其值还可为MSDAORA.1等等;填入连接数据库的用户名和密码以及数据源地址
conn.Open"Provider=OraOLEDB.Oracle.1;Password=mercury;Persist Security Info=True;User ID=admin;Data Source=newtours.mercuryinteractive.com"
'其中"Provider=OraOLEDB.Oracle.1;Password=mercury;Persist Security Info=True;User ID=admin;Data Source=newtours.mercuryinteractive.com"语句
'可以通过创建一个.udl文件,双击后设置正确的连接信息,测试连接成功后就可用记事本再打开该文件得到
'创建数据库记录集对象(也就是查询结果)
Set res = createobject("ADODB.Recordset")
'打开以指定查询语句查询所得的记录集
res.Open"select * from user where username=kevin",conn,2,2
'从查询结果的指定字段取出值
iDate = res("Date")
iValue = res("Value")
iAddress = res("Address")
iTelNo = res("TelNo")
res.close '关闭记录集
Set res=nothing '释放对象
conn.close '关闭连接
Set conn=nothing '释放对象
[ 本帖最后由 hsjzfling 于 2007-10-15 16:15 编辑 ] 多谢了, 问题解决了。 用的是5楼的方法。 太NB了~~~ 赞一个!
页:
[1]