qtp连接oralce 10g

要从QTP链接Oracle，前提是已安装好Oracle客户端。然后在 Oracle Net Configuration Assistant 中完成配置：

1.    监听程序配置，默认即可。

2.    命名方法配置：本地。

3.    本地Net服务名配置-添加-选择<Oracle8i或更高版本数据库或服务>-DBName(可以写成你要链接的数据库名，也可以自己定义，但是要记住，因为这个名字会在QTP数据库链接设置<TNS Service Name>中用到)-选择协议<TCP>（根据实际情况）-设置主机名：192.168.6.245（数据库所在电脑的IP 或是机器名），并根据实际情况设置段口号，默认为1521-进行测试，提示成功就说明在 Oracle客户端建立数据库链接成功了。恭喜你。

4.    QTP端设置：Insert-CheckPoint（也可以是Output Value）-DataBase CheckPoint-Specify SQL statement manually-Create-机器数据源-新建-用户数据源（或是系统数据源）-选择<Oracle in OraHome92>-下一步-完成-（真正的数据库链接来了）-Data Source Name <DBName>（数据库名）-Descrīption，可以随便填息-TNS Service Name <DBName>(这里的设置要和第4步中的DBName一致，这个就是QTP和Oracle管理的地方)-User ID <loginDBName>（登陆数据库的用户名）-测试连通：Test Connection-Password(用户登陆数据库的密码)－ok-        如果连通了，说明设置成功了。


代码：
Dim rs,sq,pkey
set conn=createobject("adodb.connection")
set rs=createobject("adodb.recordset")

' 需要安装Oracle客户端
conn.open  "DSN=192.168.0.2:orcl;UID=ermis_dts;PWD=fhdadmin;DBQ=FHD02;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;"
sql="select * from rm_risks"
rs.open sql,conn
rs.MoveFirst
i = 0
Do While rs.Eof<>true
    i = i +1
reporter.ReportEvent micDone, rs.Fields(5), rs.Fields(7)
rs.MoveNext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing