QTP连接Oracle数据库

QuickTest Professional(QTP): 连接Oracle数据库

(2011-01-11 15:39:30)


转载▼

标签： it qtp oracle connection

分类：技术探究

方法一：

适用于安装了Oracle Net Manager并且有权限创建TNS Service的用户。

步骤：

打开Oracle Net Manager并为目标Oracle Database Server创建TNSService。
Control Panel / Administrative Tools / Data Sources，基于创建的TNSService，创建User DSN。Driver选择Oracle in OraClient10g_home1。
创建空文件con.udl(Data Link Properties文件)，点击打开该文件。

在Provider Tab中选择Microsoft OLE DB Provider for ODBCDrivers；
进入Connection Tab，选中Use data sourcename单选按钮，从下拉列表中选择创建的DSN；填入User name和Password。
点击Test Connection。Test connection succeeded对话框弹出。关闭。
用Notepad打开con.udl。拷贝Everything after this line is an OLE DBinitstring的下一行并追加;Password=<yourpassword>。这样，就得到了Connection String。例如：

Provider=MSDASQL.1;PersistSecurity Info=False;User ID=UserID;Data Source=DNSName;Password=Password>

注意：最佳实践是把该串设置为Environment变量，然后通过Environment.Value(varName)引用。

下面的代码用于连接数据库并执行SQL：

Set dbConn =CreateObject("ADODB.Connection")
'createconnection object

dbConn.OpenEnvironment.Value("ConnectionString")
'openconnection

Set dbRs = dbConn.Execute(strSQL)'execute sql

'do something here

dbConn.Close 'close connection

Set dbConn = Nothing 'release

方法二：

适用于没有安装Oracle Net Manager或者没有权限创建TNS Service的用户。

步骤：(修改方法一中的连接串)

Provider=OraOLEDB.Oracle.1

(这相当于选择Provider:OracleProvider for OLE DB)

DataSource="(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=TargetDBServerIPAddress)(PORT=PortNumber)))(CONNECT_DATA=(SERVICE_NAME=ServiceName)))"

或者

DataSource="(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=TargetDBServerIPAddress)(PORT=PortNumber)))(CONNECT_DATA=(SID=SID)))"

这样，最终的ConnectionString就变成：

Provider=OraOLEDB.Oracle.1;Persist SecurityInfo=False;User ID=UserID;DataSource="(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=TargetDBServerIPAddress)(PORT=PortNumber)))(CONNECT_DATA=(SERVICE_NAME=ServiceName)))";Password=Password

代码和方法一的相同。

注：本文的方法在QTP10.0中通过测试。需要安装Oracle客户端。