QTP连接Oracle

最近项目中需要连接到开发的数据库对数据进行修改，老大要过来开发那边的密码，给我们连上数据库，如下:

Dim DB_Conn,DB_Record,CONNECT_STRING
Set DB_Conn=CreateObject("adodb.connection")
Set DB_Record=CreateObject("adodb.recordset")
CONNECT_STRING=Connect_String 
DB_Conn.CommandTimeout=60
DB_Conn.ConnectionTimeout=60
DB_Conn.open CONNECT_STRING
If err.number<>0 Then
        err.clear
        DB_Conn.open  CONNECT_STRING
End If
DB_Record.Open sqlString,DB_Conn

其中Connect_String可以通过以下方式获取：

1 在本地ODBC添加上需连接的数据库

2 在QTP中插入一个DATABASE CHECKPOIN

灰条遮住的字符串就是我们需要的Connect_String.

记得关闭数据库哦!

Set DB_Record = Nothing
Set DB_Conn = Nothing