QTP连接Oracle数据库，并查询数据 ConnectOracleDatabase

因为第一次弄，又不熟悉VBS，弄了半天，多谢网上的各位前辈提供的资料

实现效果：连接Oracle数据库，在里面查出数据，并逐行显示

最后的脚步，如下：

Dim Conn
Set Conn = CreateObject("ADODB.Connection")

'----------------------------------------------------------
'方法一： '利用*.udl文件，建立连接后，复制地址
'Conn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=jonathan;Persist Security Info=True;User ID=system;Data Source=jonathan;Server=192.168.1.25"
'      conn.open= "Provider=OraOLEDB.Oracle.1; Password=密码; Persist Security Info=True;User ID=用户名;Data Source=数据源服务名;Server=数据库服务器地址"         '利用*.udl文件
'-------------------------------------------------------------

'方法二： 添加数据库检查点，复制那个ConnectionString 
 Conn.ConnectionString =  "DSN=192.168.1.25;UID=SYSTEM;PWD=JONATHAN;DBQ=JONATHAN;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;"
Conn.Open

'查看是否连接成功，成功状态值为1
'msgbox Conn.state
If Conn.State = 0 Then
     msgbox  "连接数据库失败"
else
    msgbox   "连接数据库成功"
End If

''创建数据库记录集对象(也就是查询结果)
Set res = createobject("ADODB.Recordset") 

''打开以指定查询语句查询所得的记录集 
res.Open"select * from qtp",conn,2,2  

'从查询结果的指定字段取出值,循环输出

while(not Res.eof)

userid = res("userid")
username = res("name")
password = res("password")

msgbox userid
msgbox username
msgbox password
Res.MoveNext
wend

'msgbox res("userid")
'msgbox res("name")
'msgbox res("password")

res.close        '关闭记录集
Set res=nothing        '释放对象
conn.close        '关闭连接
Set conn=nothing        '释放对象

=============================================================

一、利用*.udl文件获得连接字符串的方法：

1、新建个空的文本文件，然后重命名为test.udl


2、双击打开test.udl，在Provider中选择Oracle Provider for OLE DB


3、点击Next或者上面的Connection标签，在DataSource中输入数据库服务器的网络名称(网址)，并输入登录数据库的用户名和密码，注意保存密码上打勾


4、点击 Test Connection，若测试通过，则点OK退出该udl文件

5、右键点击test.udl，选择用记事本打开，有没发现你要写的连接字符串已经乖乖躺在那里了~赶紧Ctrl+C,Ctrl+V吧~

二、利用插入数据库检查点的方法，获得连接字符串，就不说了

    Insert--->CheckPoint---->Database Checkpoint---->

其他：

有位仁兄说:odbc的文件数据源方式估计快淘汰了

看来要弄个更加通用的连接方法，继续摸索……