请问QTP访问数据库（Oracle）， 可不可以用来比较两条记录的结果？

hsjzfling

抽了点时间写了个例子，希望能对你有帮助～

'创建连接数据库对象
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 编辑 ]