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)ASBEGIN  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());}