连接Oracle数据库：OLEDB连接方式（一）

　　'OLEDB的字符连接方式，OLE DB 提供程序为"Microsoft OLE DB Provicer for Oracle"

        '**********创建连接对象***************
        Set con=createobject("adodb.connection")

        '连接设置。等号后面的值可以通过以下方法获得：
        '1.新建一个udl文件，双击打开“数据链接”窗口
        ''2.提供程序选择"Microsoft OLE DB Provicer for Oracle"。
        '3.设置连接属性。关闭窗口
        '4.以记事本打开文件，复制最后一行的内容，该内容即为连接设置。
         conset="Provider=MSDAORA.1;Password=ciis;User ID=cis;Data Source=CIIS_192.168.1.27;Persist Security Info=True;"

         '**************建立连接********************
        con.open conset
        '查看连接是否已建立
        If  con.state=0 Then
         msgbox"failed"
         else
         msgbox"pass"
        End If

        '***************建立空的记录集*************
        Set rs=createobject("adodb.recordset")

        '*************设置SQL语句******************
        sql="select * from sys_role"

        '**************

　　打开记录集，语法：

　　recordset.Open Source, ActiveConnection, CursorType, LockType, Options

　　*********************
        rs.open sql,con

        '将记录集中"rolename"列的0-6行数据Copy到QTP当前DataTable的"OK"列中
        For i=0 to 6
         datatable.SetCurrentRow(i+1)
         datatable.Value("ID","OLEDB1")=rs("ID")
         datatable.Value("NAME","OLEDB1")=rs("rolename")
         rs.movenext
        Next

        '******************关闭连接********************
        con.close

        '****************释放Connection对象*******************
        Set con=nothing