oledb连接oracle demo,如何连接Oracle数据库8：QTP脚本示例-OLEDB连接方式（二）

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

'**********创建连接对象***************

Set con=createobject("adodb.connection")

'连接设置。等号后面的值可以通过以下方法获得：

'1.新建一个udl文件，双击打开“数据链接”窗口

''2.提供程序选择"Oracle Provicer for OLE DB  "。

'3.设置连接属性。关闭窗口

'4.以记事本打开文件，复制最后一行的内容，该内容即为连接设置。

conset="Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=cis;Password=ciis;Data Source=CIIS_192.168.1.27;"

'**************建立连接********************

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","OLEDB2")=rs("ID")

datatable.Value("NAME","OLEDB2")=rs("rolename")

rs.movenext

Next

'******************关闭连接********************

con.close

'****************释放Connection对象*******************

Set con=nothing