如何连接Oracle数据库3:QTP脚本示例-ODBC连接方式(二)
上一篇 /
下一篇 2008-04-21 15:42:18
/ 个人分类:QTP学习
'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="DRIVER={Oracle in OraClient10g_home1};SERVER=CIIS_192.168.1.27;UID=cis;PWD=ciis;DBQ=CIIS_192.168.1.27;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;"
'*********************建立连接*********************
con.open conset
'查看连接是否已建立
If con.state=0 Then
msgbox"连接失败"
else
msgbox"连接成功"
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","ODBC2")=rs("ID")
datatable.Value("NAME","ODBC2")=rs("rolename")
rs.movenext
Next
'******************关闭连接********************
con.close
'****************释放Connection对象*******************
Set con=nothing
收藏
举报
TAG:
QTP学习