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

最新推荐文章于 2021-12-31 10:00:37 发布

imlmy

最新推荐文章于 2021-12-31 10:00:37 发布

阅读量3k

点赞数 3

分类专栏： oracle ado 文章标签： vc ado oracle 存储过程记录集

本文链接：https://blog.csdn.net/imlmy/article/details/8894442

版权

ado 同时被 2 个专栏收录

6 篇文章 0 订阅

订阅专栏

oracle

4 篇文章 0 订阅

订阅专栏

最近在做一个项目，数据库是用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());
}