Oracle存储过程返回游标 [转载]

有俩种方法:
一种是声明系统游标,一种是声明自定义游标,然后后面操作一样,参数类型为
in out 或out

SYS_REFCURSOR 型游标，该游标是Oracle 以预先定义的游标，可作出参数进行传递 
(1)声明个人系统游标.(推荐)
create or replace p_temp_procedure
(
    cur_arg out sys_refcursor;     --方法1
)
begin
    open cur_arg for select * from tablename;
end
调用
declare
    cur_calling sys_refcursor;
begin
    p_temp_procedure(cur_calling);  --这样这个游标就有值了
    for rec_next in cur_calling loop
     ....
    end loop;
end;

(2)在包头中申明一个游表类型,然后调用者申明一个这个类型的游标变量,传给返回游标的存储过程 ,存储过程out这个结果集,这种方法很麻烦.游标类型不能像索引表一样使用create or replace type方法来创建,所以只能在包中申明,并且需要使用/来执行,后面的存储过程才认这个游标类型.(不推荐,但是建议要知道并且要会这种方式,毕竟它有它存在的道理)
--定义全局变量
create or replace package pkg_package
as
    type type_cursor is ref cursor;
    type type_record is record
    (
        test01 varchar2(32),
        test02 varchar2(32),
        test03 varchar2(32)
    );
end;
/
--创建返回游标的存储过程
create or replace procedure p_temp_procedure
(
    cur_out_arg out pkg_package.type_cursor
)
is
begin
    open cur_out_arg for select * from test;
end;
/
--调用
declare
    cur_out_arg pkg_package.type_cursor;
    rec_arg pkg_package.type_record;
begin
    p_temp_procedure(cur_out_arg);
    fetch cur_out_arg into rec_arg;
    dbms_output.put_line(rec_arg.test01);
    dbms_output.put_line(rec_arg.test02);
    dbms_output.put_line(rec_arg.test03);
end;

PLSQL中显示Cursor、隐示Cursor、动态Ref Cursor区别
今天简单的总结一下PL/SQL中cursor(光标/游标)的用法。

相信不少做开发或维护的DBA在找工作的时候，遇到过类似的面视问题：请简单的描述一下光标的类型，说一下普通光标和REF光标之间的区别，以及什么时候该正确应用哪一个?　

这个题目，我着实难住了不少人，其实他们在具体开发的时候，也还是比较能够把握正确的光标的使用的，但就是说不出来，当然了，这与大家自身的沟流交通能力是有关系的。有的人不善于说，但做的却很好。扯的扯就走远了，最后唠叨一下：做技术这条路，能干不能说，或者说会干不会包装，路是走不"远"的。




一、显式cursor

显式是相对与隐式cursor而言的，就是有一个明确的声明的cursor。显式游标的声明类似如下（详细的语法参加plsql ref doc ）：

cursor cursor_name (parameter list) is select ...

游标从declare、open、fetch、close是一个完整的生命旅程。当然了一个这样的游标是可以被多次open进行使用的，显式cursor是静态cursor，她的作用域是全局的，但也必须明白，静态cursor也只有pl/sql代码才可以使用她。下面看一个简单的静态显式cursor的示例：

declare
          cursor get_gsmno_cur (p_nettype in varchar2) is
             select gsmno
                from gsm_resource
                where nettype=p_nettype and status='0';
           v_gsmno gsm_resource.gsmno%type;
        begin
           open get_gsmno_cur('139');
           loop
                fetch get_gsmno_cur into v_gsmno;
                exit when get_gsmno_cur%notfound;       
                dbms_output.put_line(v_gsmno);
           end loop;
           close emp_cur;
          
           open get_gsmno_cur('138');
           loop
                fetch get_gsmno_cur into v_gsmno;
                exit when get_gsmno_cur%notfound;       
                dbms_output.put_line(v_gsmno);
           end loop;
           close get_gsmno_cur;
        end;
        /

上面这段匿名块用来实现选号的功能，我们显式的定义了一个get_gsmno_cur，然后根据不同的号段输出当前系统中该号短对应的可用手机号码。当然了，实际应用中没人这么用的，我只是用来说应一个显式cursor的用法。

二、隐式cursor

隐式cursor当然是相对于显式而言的，就是没有明确的cursor的declare。在Oracle的PL/SQL中，所有的DML操作都被Oracle内部解析为一个cursor名为SQL的隐式游标，只是对我们透明罢了。

另外，我们前面提到的一些循环操作中的指针for 循环，都是隐式cursor。　

隐式cursor示例一：

CREATE TABLE zrp (str VARCHAR2(10));
        insert into zrp values ('ABCDEFG');
        insert into zrp values ('ABCXEFG');
        insert into zrp values ('ABCYEFG');
        insert into zrp values ('ABCDEFG');
        insert into zrp values ('ABCZEFG');
        COMMIT;
       
        SQL> begin
          2    update zrp SET str = 'updateD' where str like '%D%';
          3    ifSQL%ROWCOUNT= 0 then
          4      insert into zrp values ('1111111');
          5    end if;
          6 end;
          7 /
       
        PL/SQL procedure successfully completed
       
        SQL> select * from zrp;
       
        STR
        ----------
        updateD
        ABCXEFG
        ABCYEFG
        updateD
        ABCZEFG
       
        SQL>
        SQL> begin
          2    update zrp SET str = 'updateD' where str like '%S%';
          3    ifSQL%ROWCOUNT= 0 THEN
          4      insert into zrp values ('0000000');
          5    end if;
          6 end;
          7 /
       
        PL/SQL procedure successfully completed
       
        SQL> select * from zrp;
       
        STR
        ----------
        updateD
        ABCXEFG
        ABCYEFG
        updateD
        ABCZEFG
        0000000
       6 rows selected
       
        SQL>

隐式cursor示例二：

begin
          for rec in (select gsmno,status from gsm_resource) loop
              dbms_output.put_line(rec.gsmno||'--'||rec.status);
          end loop;
        end;
        /

三、REFcursor

Ref cursor属于动态cursor(直到运行时才知道这条查询)。

从技术上讲，在最基本的层次静态cursor和ref cursor是相同的。一个典型的PL/SQL光标按定义是静态的。Ref光标正好相反，可以动态地打开，或者利用一组SQL静态语句来打开，选择哪种方法由逻辑确定（一个IF/THEN/ELSE代码块将打开一个或其它的查询）。例如，下面的代码块显示一个典型的静态SQL光标，光标C。此外，还显示了如何通过使用动态SQL或静态SQL来用ref光标（在本例中为L_CURSOR）来打开一个查询：

Declare
      type rc is ref cursor;
      cursor c is select * from dual;
     
      l_cursor rc;
    begin
      if (to_char(sysdate,'dd') = 30) then
          -- ref cursor with dynamic sql
          open l_cursor for 'select * from emp';
      elsif (to_char(sysdate,'dd') = 29) then
          -- ref cursor with static sql
          open l_cursor for select * from dept;
      else
           -- with ref cursor with static sql
           open l_cursor for select * from dual;
      end if;
      -- the "normal" static cursor
      open c;
    end;
    /

在这段代码块中，可以看到了最显而易见的区别：无论运行多少次该代码块，光标C总是select * from dual。相反，ref光标可以是任何结果集，因为"select * from emp"字符串可以用实际上包含任何查询的变量来代替。

在上面的代码中，声明了一个弱类型的REF cursor，下面再看一个强类型（受限）的REF cursor，这种类型的REF cursor在实际的应用系统中用的也是比较多的。

create table gsm_resource
    (
      gsmno varchar2(11),
      status varchar2(1),
      price number(8,2),
      store_id varchar2(32)
    );
    insert into gsm_resource values('13905310001','0',200.00,'SD.JN.01');
    insert into gsm_resource values('13905312002','0',800.00,'SD.JN.02');
    insert into gsm_resource values('13905315005','1',500.00,'SD.JN.01');
    insert into gsm_resource values('13905316006','0',900.00,'SD.JN.03');
    commit;
   
    SQL> declare
      2     type gsm_rec is record(
      3          gsmno varchar2(11),
      4          status varchar2(1),
      5          price number(8,2));
      6
      7     type app_ref_cur_type is ref cursor return gsm_rec;
      8     my_cur app_ref_cur_type;
      9     my_rec gsm_rec;
     10
     11 begin
     12     open my_cur for select gsmno,status,price
     13          from gsm_resource
     14          where store_id='SD.JN.01';
     15     fetch my_cur into my_rec;
     16     while my_cur%found loop
     17           dbms_output.put_line(my_rec.gsmno||'#'||my_rec.status||'#'||my_rec.price);
     18           fetch my_cur into my_rec;
     19     end loop;
     20     close my_cur;
     21 end;
     22 /
   
    13905310001#0#200
    13905315005#1#500
   
    PL/SQL procedure successfully completed
   
    SQL>

普通cursor与REF cursor还有一些大家应该都熟悉的区别，我再浪费点唾沫。

1）PL/SQL静态光标不能返回到客户端，只有PL/SQL才能利用它。ref光标能够被返回到客户端，这就是从Oracle的存储过程返回结果集的方式。

2）PL/SQL静态光标可以是全局的，而ref光标则不是。 也就是说，不能在包说明或包体中的过程或函数之外定义ref光标。 只能在定义ref光标的过程中处理它，或返回到客户端应用程序。

3）ref光标可以从子例程传递到子例程，而光标则不能。 为了共享静态光标，必须在包说明或包体中把它定义为全局光标。 因为使用全局变量通常不是一种很好的编码习惯，因此可以用ref光标来共享PL/SQL中的光标，无需混合使用全局变量。

最后，使用静态光标--通过静态SQL（但不用ref光标）--比使用ref光标效率高，而ref光标的使用仅限于以下几种情况：

把结果集返回给客户端；
在多个子例程之间共享光标（实际上与上面提到的一点非常类似）；
没有其他有效的方法来达到你的目标时，则使用ref光标，正如必须用动态SQL时那样；

简言之，首先考虑使用静态SQL，只有绝对必须使用ref光标时才使用ref光标，也有人建议尽量使用隐式游标，避免编写附加的游标控制代码（声明，打开，获取，关闭），也不需要声明变量来保存从游标中获取的数据。这个就因人因具体的case大家去酌定吧。

四、游标属性

%FOUND： bool - TRUE if >1 row returned
%NOTFOUND：bool - TRUE if 0 rows returned
%ISOPEN： bool - TRUE if cursor still open
%ROWCOUNT：int - number of rows affected by last SQL statement

注：NO_DATA_FOUND和%NOTFOUND的用法是有区别的，小结如下：
1）SELECT . . . INTO 语句触发 NO_DATA_FOUND；
2）当一个显式光标的 where 子句未找到时触发 %NOTFOUND；
3）当UPDATE或DELETE 语句的where 子句未找到时触发 SQL%NOTFOUND；
4）在光标的提取(Fetch)循环中要用 %NOTFOUND 或%FOUND 来确定循环的退出条件，不要用NO_DATA_FOUND。

本小节就罗嗦这么多，更多进一步的资料，参考Oracle pl/sql开发手册吧。

From：http://tomszrp.itpub.net/post/11835/464914
http://tomszrp.itpub.net/post/11835/464915
http://www.cnblogs.com/yangfan/archive/2010/12/09/1901343.html