QTP连接oracle并操作数据库的方法

QTP连接oracle并操作数据库的方法这里以oracle  9i为例子，其他的数据库连接方法是相通的。
a.首先要在本机建议ODBC数据源，这个属于基本操作，这里不讲，跳过；
b.获取oracle的连接串的方法，在本地新建一个.txt文件，修改扩展名名*.udl，双击*.udl文件，打开数据库链接属性，定位到“提供程序”选显卡，选中 oracle的连接  oracle provider for OLE DB,点击下一步，输入数据源，数据库用户名以及密码，点击测试连接，然后用UE或记事本打开*.udl文件，oracle的连接串已经生成了，例如
Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=test;Data Source=192.168.13.19
以上就是udl文件生成的oracle连接串
现在我们需要手动添加一个oracle连接串的密码字段Password，插入到User ID后面，中间用分号隔开；
即 Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=test;;Password=test;Data Source=192.168.13.19
c.在qtp中来连接数据库
Dim Cnn  '定义一个数据库连接串
Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString ="Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=test;Password=test;Data Source=192.168.13.19 "
Cnn.Open   '打开数据库连接
If Cnn.State = 0 Then      '判断数据库连接是否成功
     Reporter.ReportEvent micFail, "testing", "连接数据库失败"
else
     Reporter.ReportEvent micPass, "testing",   "连接数据库成功"
End If
 
if Cnn.State<> 0  then
  
    Set Rs=CreateObject("ADODB.Recordset")    '生成记录集对象
 strsql ="Select  *    from t_sys_user"   '从数据库中查询t_sys_user的所有记录
        Rs.Open strsql ,Cnn,1,3   '执行sql语句，记录可以自由移动，单数记录处于只读模式
        ydl=Rs("USER_ID")         '取得字段为USER_ID的记录，游标定义在第一行，所以取得的是该字段所在行的第一行数据
 msgbox  ydl
    &nbs