REF CURSOR 範例
REF CURSOR 範例包括下列三個 Microsoft Visual Basic 範例,示範如何使用 REF CURSOR:
範例 | 描述 |
---|---|
OracleDataReader 中的 REF CURSOR 參數 | 此範例執行可傳回 REF CURSOR 參數的 PL/SQL 預存程序,並以 OracleDataReader 讀取值。 |
使用 OracleDataReader 從多個 REF CURSOR 擷取資料 | 此範例執行可傳回兩個 REF CURSOR 參數的 PL/SQL 預存程序,並使用 OracleDataReader 來讀取值。 |
使用一或多個 REF CURSOR 填入資料集 | 此範例執行可傳回兩個 REF CURSOR 參數的 PL/SQL 預存程序,並使用傳回的資料列填入 DataSet。 |
若要使用這些範例,您可能需要建立 Oracle 資料表,且必須建立 PL/SQL 封裝及封裝主體。
建立 Oracle 資料表
這些範例使用定義在 Oracle Scott/Tiger 結構描述中的資料表。 大多數 Oracle 安裝都包含 Oracle Scott/Tiger 結構描述。 如果此結構描述不存在,則可使用 {OracleHome}\rdbms\admin\scott.sql 中的 SQL 命令檔案,來建立這些範例所使用的資料表及索引。
建立 Oracle 封裝及封裝主體
這些範例需要伺服器上的下列 PL/SQL 封裝及封裝主體。 在 Oracle 伺服器上建立下列 Oracle 封裝。
CREATE OR REPLACE PACKAGE CURSPKG AS
TYPE T_CURSOR IS REF CURSOR;
PROCEDURE OPEN_ONE_CURSOR (N_EMPNO IN NUMBER,
IO_CURSOR IN OUT T_CURSOR);
PROCEDURE OPEN_TWO_CURSORS (EMPCURSOR OUT T_CURSOR,
DEPTCURSOR OUT T_CURSOR);
END CURSPKG;
/
在 Oracle 伺服器上建立下列 Oracle Package 內容。
CREATE OR REPLACE PACKAGE BODY CURSPKG AS
PROCEDURE OPEN_ONE_CURSOR (N_EMPNO IN NUMBER,
IO_CURSOR IN OUT T_CURSOR)
IS
V_CURSOR T_CURSOR;
BEGIN
IF N_EMPNO <> 0
THEN
OPEN V_CURSOR FOR
SELECT EMP.EMPNO, EMP.ENAME, DEPT.DEPTNO, DEPT.DNAME
FROM EMP, DEPT
WHERE EMP.DEPTNO = DEPT.DEPTNO
AND EMP.EMPNO = N_EMPNO;
ELSE
OPEN V_CURSOR FOR
SELECT EMP.EMPNO, EMP.ENAME, DEPT.DEPTNO, DEPT.DNAME
FROM EMP, DEPT
WHERE EMP.DEPTNO = DEPT.DEPTNO;
END IF;
IO_CURSOR := V_CURSOR;
END OPEN_ONE_CURSOR;
PROCEDURE OPEN_TWO_CURSORS (EMPCURSOR OUT T_CURSOR,
DEPTCURSOR OUT T_CURSOR)
IS
V_CURSOR1 T_CURSOR;
V_CURSOR2 T_CURSOR;
BEGIN
OPEN V_CURSOR1 FOR SELECT * FROM EMP;
OPEN V_CURSOR2 FOR SELECT * FROM DEPT;
EMPCURSOR := V_CURSOR1;
DEPTCURSOR := V_CURSOR2;
END OPEN_TWO_CURSORS;
END CURSPKG;
/
另請參閱
- Oracle REF CURSOR
- ADO.NET 概觀 \(部分機器翻譯\)