如何连接Oracle数据库6：QTP脚本示例-ODBC连接方式（五）

'ODBC的系统DSN连接方式,数据源的驱动为“Oracle in OraClient10g_home1”

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

'连接设置。等号后面的值可以通过以下方法获得：
'1.选择菜单  Insert>Output Value>DataBaseOutPutValue，打开“Database Query Wizard”窗口
''2.Query definition选择“Specify SQL statement manually”，点击“下一步”到下一窗口。
'3.点击“Create”，选择文件数据源，回到前一窗口。（注：ODBC文件数据源必须预先设置好）
'4.复制Connection string框中的内容，该内容即为连接设置。
 conset="DSN=CIIS1;UID=cis;PWD=ciis;DBQ=CIIS_192.168.1.27;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;"
 
 '**************建立连接********************
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","ODBC5")=rs("ID")
 datatable.Value("NAME","ODBC5")=rs("rolename")
 rs.movenext
Next

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

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