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

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

方法一：
适用于安装了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客户端。