摘要 OLE DB是建立在ODBC成功基础上的一种开放规范,它为访问和操纵不同类型数据提供开放的标准。ADO是OLD DB的一个消费者，它提供了对OLE DB数据源应用级的访问功能。在应用程序中使用OLE DB和ADO，可以高效地调用返回记录集的Oracle存储过程。
关键字 OLE DB ADO 存储过程 记录集
1 前言
在基于Oracle数据库的ADO应用程序的开发过程中，为了提高执行速度和降低网络流量，往往要在应用程序中调用Oracle数据库服务器端的存储过程。有的存储过程需要返回多行的记录集。这种情况下，在应用程序中调用返回记录集的存储过程存在一定的难度。本文介绍如何使用OLE DB和ADO调用返回记录集的Oracle存储过程。
2 OLE DB和ADO的关系
2.1 OLE DB简介
OLE DB建立在ODBC成功基础上的开放的规范,它为访问和操纵不同类型数据提供开放的标准。OLE DB定义了一个COM接口集合，它封装了各种数据库管理系统服务。这些接口允许创建实现这些服务的软件组件。OLE DB组件包括数据提供者（存储和发布数据）、数据消费者（使用数据）和服务组件（处理和传输数据）。
OLE DB的设计是以消费者和提供者概念为中心。OLE DB消费者表示传统的客户方，提供者将数据以表格形式传递给消费者。OLE DB的Oracle提供者(OraOLEDB)可使OLE DB消费者高效地访问Oracle数据源。图1给出OLE DB的系统图示。OLE DB数据提供者将数据从数据源传递给消费者。在标准接口的基础上，OLE DB消费者能够访问来自提供者的数据。因为有COM组件，消费者可以用任何支持COM的编程语言访问数据。
2.2 ADO对象模在ADO对象模型中，Connection、Command和Recordset对象是三个主要的对象。Connection对象表示对远程数据的连接。Connection对象可与Command对象或Recordset对象关联。Command对象定义了对数据源执行的指定命令。Command对象可以用来执行命令和参数化的SQL语句，可以用于SQL语句和返回记录集的SQL查询。Command对象既可以使用一个活动的Connection对象，也可以创建它自己到目标数据源的连接。Command对象包含一个Parameters集合，在该集合中每一个Parameter对象表示Command对象使用的参数。Command对象执行参数化的SQL语句时，每一个Parameter对象表示SQL语句中的一个参数。Recordset对象表示的来自基本表或命令执行结果的记录全集。Recordset对象既可以使用一个活动的Connection对象，也可以创建它自己到目标数据源的连接。Recordset对象允许查询和修改数据。每一个Recordset包含一个Field对象集合，其中，每个Field对象表示Recordset中一个数据列。
2.3 ADO和OLE DB的关系
OLE DB是系统级编程接口，ADO是应用软件级编程接口。ADO是OLE DB的一个消费者，它提供了对OLE DB数据源应用级的访问功能。ADO为OLE DB提供了一个易于使用的应用级接口。ADO允许用户编写通过OLE DB提供者对数据库服务器中的数据进行访问和操作的应用程序。其主要的优点是易于使用、高速度、低内存和占用较少的磁盘空间。ADO和OLE DB的关系如图2所示：
3 Oracle中返回记录集的存储过程的定义
在Oracle存储过程中，通过定义类型为REF CURSOR（游标指针）的传出参数，可以返回记录集。OLE DB允许消费者执行带REF CURSOR类型参数的PL/SQL存储过程，或者执行返回REF CURSOR的存储函数。返回记录集的存储过程或函数必须定义在程序包里。包是Oracle数据库的一种对象，它可以将数据类型、存储过程、函数、变量和常量封装在一起。包在结构上分为包头和包体两部分，这两部分要分别建立。包头用来定义可被外部引用的元素；包体定义实际代码。使用程序包定义返回记录集的存储过程时，需要在包头中预定义自己的REF CURSOR类型。在程序包体中，存储过程或函数须使用预定义的游标类型。另外，在一个存储过程或函数中，可以定义多个REF CURSOR类型的参数以返回多个记录集。
以下以职工表emp为例，介绍如何定义返回记录集的Oracle存储过程，emp表的定义如下：
CREATE TABLE emp(
empno NUMBER(4) NOT NULL, --职工编号
ename VARCHAR2(10), --职工姓名
hiredate DATE, --雇佣日期
sal NUMBER(7,2), --工资
deptno NUMBER(2))； --所属部门编号
下面给出返回记录集的Oracle存储过程和存储函数的示例程序包头和包体，其中存储过程GetEmpRecords含有两个REF CURSOR类型的传出参数，返回两个记录集，存储函数GetDept的返回值类型为REF CURSOR，返回一个记录集。
--定义一个名为Employees的程序包头
CREATE OR REPLACE PACKAGE Employees AS
TYPE empcur IS REF CURSOR;
--empcur为自定义REF CURSOR类型
--声明一个存储过程GetEmpRecords
PROCEDURE GetEmpRecords(p_cursor OUT empcur,
q_cursor OUT empcur,
indeptno IN NUMBER,
p_errorcode OUT NUMBER);
--声明一个存储函数GetDept
FUNCTION GetDept(inempno IN NUMBER,
p_errorcode OUT NUMBER)
RETURN empcur;
END Employees; ---程序包头定义结束
--定义Employees的程序包体
--定义存储过程GetEmpRecords
CREATE OR REPLACE PACKAGE BODY Employees AS PROCEDURE GetEmpRecords(p_cursor OUT empcur, q_cursor OUT empcur,
indeptno IN NUMBER, p_errorcode OUT NUMBER) IS
BEGIN
p_errorcode := 0; -- p_errorcode为错误编号
--打开游标变量p_cursor，查询所属部门编号
--为indeptno的所有职工的信息
OPEN p_cursor FOR
SELECT * FROM emp
WHERE deptno = indeptno ORDER BY empno;
--打开游标变量q_cursor，查询所属部门编号
--为indeptno的所有职工的编号信息
OPEN q_cursor FOR
SELECT empno FROM emp
WHERE deptno = indeptno ORDER BY empno;
EXCEPTION --例外处理
WHEN OTHERS THEN
p_errorcode:= SQLCODE;
END GetEmpRecords; --存储过程GetEmpRecords定义结束
--定义存储函数GetDept
FUNCTION GetDept(inempno IN NUMBER,
p_errorcode OUT NUMBER)
RETURN empcur IS p_cursor empcur; --返回值
BEGIN
p_errorcode := 0;
--查询职工编号为inempno的职工的所属部门编号
OPEN p_cursor FOR
SELECT deptno FROM emp WHERE empno = inempno;
RETURN (p_cursor);
EXCEPTION
WHEN OTHERS THEN
p_errorcode:= SQLCODE;
END GetDept;
END Employees; --程序包体定义结束
4 利用ADO调用返回记录集的Oracle存储过程
使用OLE DB和ADO调用返回记录集的Oracle存储过程，在定义ADO对象和设置参数时，需要特定的设置。
