[zt] sys_refcursor實現procedure直接返回結果集不必通過package

通過sys_refcursor可以實現procedure直接返回結果集不必通過package

SQL> create table ttt(id int , name varchar2(10));

表已建立。

SQL> insert into ttt values(1,'a');

已建立 1 行。

SQL> insert into ttt values(2,'b');

已建立 1 行。

SQL> commit;

提交完成。

SQL>create or replace procedure getmult(result out sys_refcursor)
2 is
3 begin
4 open result for select * from ttt;
5* end;
SQL> /

過程已建立。

SQL> variable a refcursor
SQL> exec getmult(:a);

PL/SQL 過程已成功完成。

SQL> print :a;

ID NAME
---------- ----------
1 a
2 b

--定義sys_refcursor型別的變數也可以直接返回結果集

sys_refcursor就是系統事先定義好的一個ref cursor型別的資料型別

SQL> select * into :a from ttt;

ID NAME
---------- ----------
1 a
2 b

--利用cursor express可以直接返回結果集

SQL> select cursor(select * from ttt) from dual;

CURSOR(SELECT*FROMTT
--------------------
CURSOR STATEMENT : 1

CURSOR STATEMENT : 1

ID NAME
---------- ----------
1 a
2 b

http://warehouse.itpub.net/post/777/449133  

--------------------------------------------------------------------------------------------------------------------------  

 

CREATE OR REPLACE PROCEDURE DFMS.sp_assy_load_relation (
   i_system_sn      IN       VARCHAR2,
   i_work_group     IN       VARCHAR2,
   o_is_failed      OUT      INTEGER,
   o_res            OUT      VARCHAR2,
   o_relation_set   OUT      sys_refcursor
)
IS
   v_eor_key        VARCHAR2 (50);
   v_record_count   INTEGER;
   v_work_order     VARCHAR2 (25);
   v_plant_code     VARCHAR2 (20);
   v_parent_wo      VARCHAR2 (25);
   v_wo_type        VARCHAR2 (15);
   v_route_code     NUMBER;
   v_model_name     VARCHAR2 (35);
   v_model_ver      VARCHAR2 (10);
   v_gmid           VARCHAR2 (50);
   v_flag           INTEGER       := 1;
   ex               EXCEPTION;
BEGIN
   v_eor_key := '-1';
   sp_assy_generate_relation (i_system_sn, v_flag, o_res);

   IF o_res <> 'OK'
   THEN
      RAISE ex;
   END IF;

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/35489/viewspace-605648/，如需轉載，請註明出處，否則將追究法律責任。