VC ado调用oracle执行存储过程获取记录集

最近在做一个项目，数据库是用SQL Server，不过最近突然来了个需求说要改用Oracle。之前对SQL Server ado访问层做了一些封装，想试试看能不能简单修改后兼容oracle。测试过程中发现执行sql语句没什么问题，但是执行存储过程就失败了。主要是oracle和SQL Server在存储过程上差异比较大。

在网上搜了一下，基本方法都是创建一个oracle存储过程，如果需要返回记录集，就再存储过程中定义引用游标输出参数，游标参数需要在所有参数的最前面。ado那层的执行方法就基本跟SQL Server，只需要输入记录集游标以外的其他参数。但是执行以后总是提示“wrong number or types of arguments in call to 'SP_GETROLE'”。后来发现是由于创建数据库连接的时候少了一个参数“PLSQLRSet=1;”。没有扩展属性无法获取存储过程游标输出参数。而网上很多调用oracle存储过程获取记录集的文章都没有提到这一点，还好同事帮忙找到了这个问题。

下面用一个简单的例子来说明。

首先是在oracle中创建存储过程

CREATE OR REPLACE PROCEDURE SP_GETROLE

(

a1 out SYS_REFCURSOR

)

AS

BEGIN

OPEN a1 FOR SELECT * from "PQRole";

END SP_GETROLE;

然后用ado连接oracle数据库，调用存储过程返回记录集。重点就是上面提到的连接字符串问题。

CoInitialize(NULL);

_ConnectionPtr m_pConnection;

_RecordsetPtr m_pRecordset;

_CommandPtr m_pCommand;

_bstr_t vUsername;

_ParameterPtr m_pParam1;

m_pConnection.CreateInstance(__uuidof(Connection));

m_pRecordset.CreateInstance(__uuidof(Recordset));

m_pCommand.CreateInstance(__uuidof(Command));

_bstr_t m_sConn="Provider=OraOLEDB.Oracle.1;User ID=system;Password=123456;OLEDB.Net=True;PLSQLRSet=1;\

Data Source=\"(DESCRIPTION =(ADDRESS_LIST =(ADDRESS = (PROTOCOL = TCP)(HOST = 127.0.0.1)(PORT = 1521)) ) \

(CONNECT_DATA = (SID = orcl)))\";Persist Security Info=True;";

try

{

m_pConnection->Open(m_sConn,"","",adModeUnknown);

m_pCommand->ActiveConnection = m_pConnection;

m_pCommand->CommandText = _bstr_t("SP_GETROLE");

m_pCommand->CommandType = adCmdStoredProc;

m_pRecordset = m_pCommand->Execute(NULL,NULL,adCmdStoredProc|adCmdUnspecified);

while(!m_pRecordset->adoEOF)

{

vUsername = m_pRecordset->Fields->GetItem("Name")->Value;

m_pRecordset->MoveNext();

}

}

catch (_com_error e)

{

wprintf(L"error: %d %s, %s\n", e.WCode(), e.ErrorMessage(), e.Description());

}