oracle中REF Cursor用法

本文轉載自查看原文 2017-03-15 10:03 12107

from:http://www.111cn.net/database/Oracle/42873.htm

1，什么是 REF游標？
動態關聯結果集的臨時對象。即在運行的時候動態決定執行查詢。

2，REF 游標有什么作用？
實現在程序間傳遞結果集的功能，利用REF CURSOR也可以實現BULK SQL，從而提高SQL性能。

3，靜態游標和REF 游標的區別是什么？
①靜態游標是靜態定義，REF 游標是動態關聯；
②使用REF 游標需REF 游標變量。
③REF 游標能做為參數進行傳遞，而靜態游標是不可能的。

4，什么是REF 游標變量？
REF游標變量是一種引用 REF游標類型的變量，指向動態關聯的結果集。

5，怎么使用 REF游標？
①聲明REF 游標類型，確定REF 游標類型；
⑴強類型REF游標：指定retrun type，REF 游標變量的類型必須和return type一致。
語法：Type REF游標名 IS Ref Cursor Return 結果集返回記錄類型；
⑵弱類型REF游標：不指定return type，能和任何類型的CURSOR變量匹配，用於獲取任何結果集。
語法：Type REF游標名 IS Ref Cursor；

②聲明Ref 游標類型變量；
語法：變量名已聲明Ref 游標類型；

③打開REF游標，關聯結果集；
語法：Open   Ref 游標類型變量   For   查詢語句返回結果集；

④獲取記錄，操作記錄；
語法：Fatch    REF游標名 InTo   臨時記錄類型變量或屬性類型變量列表；

⑤關閉游標，完全釋放資源；
語法：Close   REF游標名；

例子：強類型REF游標

代碼如下

復制代碼

/*conn scott/tiger*/
Declare
Type MyRefCurA IS REF CURSOR RETURN emp%RowType;
Type MyRefCurB IS REF CURSOR RETURN emp.ename%Type;
vRefCurA MyRefCurA;
vRefCurB MyRefCurB;
vTempA vRefCurA%RowType;
vTempB vRefCurB.ename%Type;

Begin
Open vRefCurA For Select * from   emp   Where SAL > 2000;
Loop
   Fatch vRefCurA InTo vTempA;
   Exit When vRefCurA%NotFound;
   DBMS_OUTPUT.PUT_LINE(vRefCurA%RowCount||' '|| vTempA.eno||' '||vTempA.ename ||' '||vTempA.sal)
End Loop;
Close vRefCurA;

DBMS_OUTPUT.PUT_LINE('-------------------------------------------------------------------------------------------------------');

Open vRefCurB For Select ename from   emp   Where SAL > 2000;
Loop
   Fatch vRefCurB InTo vTempB;
   Exit When vRefCurB%NotFound;
   DBMS_OUTPUT.PUT_LINE(vRefCurB%RowCount||' '||vTempB)
End Loop;
Close vRefCurB;

DBMS_OUTPUT.PUT_LINE('-------------------------------------------------------------------------------------------------------');

Open vRefCurA For Select * from   emp   Where JOB = 'CLERK';
Loop
   Fatch vRefCurA InTo vTempA;
   Exit When vRefCurA%NotFound;
   DBMS_OUTPUT.PUT_LINE(vRefCurA%RowCount||' '|| vTempA.eno||' '||vTempA.ename ||' '||vTempA.sal)
End Loop;
Close vRefCurA;
End;

例子：弱類型REF游標

代碼如下

復制代碼

/*conn scott/tiger*/
Declare
Type MyRefCur IS Ref Cursor;
vRefCur MyRefCur;
vtemp vRefCur%RowType;
Begin
Case(&n)
   When 1 Then Open vRefCur For Select   *   from emp;
   When 2 Then Open vRefCur For Select   *   from dept;
   Else
    Open vRefCur For Select   eno, ename from emp Where JOB = 'CLERK';
End Case;
Close vRefCur;
End;

6，怎樣讓REF游標作為參數傳遞？

代碼如下

復制代碼

--作為函數返回值
create or replace function returnacursor return sys_refcursor
is
   v_csr sys_refcursor;
begin
    open v_csr for select a1 from test3;
    return v_csr;
end;
/

declare
c sys_refcursor;
a1 char(2);
begin
c:=returnacursor;
loop
    fetch c into a1;
    exit when c%notfound;
    dbms_output.put_line(a1);
end loop;
close c;
end;
/

--作為參數
create or replace procedure proc_ref_cursor (rc in sys_refcursor) as
v_a number;
v_b varchar2(10);

begin
loop
    fetch rc into v_a, v_b;
    exit when rc%notfound;
    dbms_output.put_line(v_a || ' ' || v_b);
end loop;
end;
/

declare
v_rc sys_refcursor;
begin
open v_rc for
select a1,a2 from test3;
proc_ref_cursor(v_rc);
close v_rc;
end;
/

REF CURSOR 示例包括下列三個 Visual Basic 示例，演示如何使用 REF CURSOR。

示例說明
在 OracleDataReader 中檢索 REF CURSOR 參數
此示例執行一個 PL/SQL 存儲過程，返回 REF CURSOR 參數，並將值作為 OracleDataReader 讀取。

使用 OracleDataReader 從多個 REF CURSOR 檢索數據
此示例執行一個 PL/SQL 存儲過程，返回兩個 REF CURSOR 參數，並使用 OracleDataReader 讀取值。

使用一個或多個 REF CURSOR 填充 DataSet
此示例執行一個 PL/SQL 存儲過程，返回兩個 REF CURSOR 參數，並使用返回的行填充 DataSet。

要使用這些示例，可能需要創建 Oracle 表，並且必須創建 PL/SQL 包和包正文。

創建 Oracle 表
這些示例使用 Oracle Scott/Tiger 架構中定義的表。大多數 Oracle 安裝均包括 Oracle Scott/Tiger 架構。如果此架構不存在，可以使用 {OracleHome}rdbmsadminscott.sql 中的 SQL 命令文件創建供這些示例使用的表和索引。

創建 Oracle 包和包正文
這些示例要求服務器上存在以下 PL/SQL 包和包正文。在 Oracle 服務器上創建以下 Oracle 包

代碼如下

復制代碼

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，通過該功能可以實現在程序間傳遞結果集的功能，利用REF CURSOR也可以實現BULK SQL，從而提高SQL性能。

使用scott用戶的emp表實現以下測試案例：

代碼如下

復制代碼

SQL> desc emp
Name Null? Type
----------------------------------------- -------- ----------------------------
EMPNO NOT NULL NUMBER(4)
ENAME VARCHAR2(10)
JOB VARCHAR2(9)
MGR NUMBER(4)
HIREDATE DATE
SAL NUMBER(7,2)
COMM NUMBER(7,2)
DEPTNO NUMBER(2)

使用ref cursor獲得結果集輸出：

SQL> set serveroutput on
SQL> DECLARE
2 TYPE mytable IS TABLE OF emp%ROWTYPE;
3 l_data mytable;
4 l_refc sys_refcursor;
5 BEGIN
6 OPEN l_refc FOR
7 SELECT empno, ename, job, mgr, hiredate, sal, comm, deptno FROM emp;
8
9 FETCH l_refc BULK COLLECT INTO l_data;
10
11 CLOSE l_refc;
12
13 FOR i IN 1 .. l_data.COUNT
14 LOOP
15 DBMS_OUTPUT.put_line ( l_data (i).ename
16 || ' was hired since '
17 || l_data (i).hiredate
18 );
19 END LOOP;
20 END;
21 /
SMITH was hired since 17-DEC-80
ALLEN was hired since 20-FEB-81
WARD was hired since 22-FEB-81
JONES was hired since 02-APR-81
MARTIN was hired since 28-SEP-81
BLAKE was hired since 01-MAY-81
CLARK was hired since 09-JUN-81
SCOTT was hired since 19-APR-87
KING was hired since 17-NOV-81
TURNER was hired since 08-SEP-81
ADAMS was hired since 23-MAY-87
JAMES was hired since 03-DEC-81
FORD was hired since 03-DEC-81
MILLER was hired since 23-JAN-82

PL/SQL procedure successfully completed.

-The End-

免責聲明！

本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。

猜您在找 oracle中REF Cursor用法 Oracle REF Cursor 用法（轉帖） oracle sys_refcursor用法和ref cursor區別 Oracle 游標Cursor 的基本用法 Oracle Cursor用法總結 Oracle ref cursor和sys_refcursor Oracle ref cursor和sys_refcursor vue中ref的用法 vue中ref的用法 Oracle中Cursor介紹和使用