D盘

workspace
posts - 165, comments - 53, trackbacks - 0, articles - 0
  IT博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理

Oracle 存储过程和函数返回结果集[zz]

Posted on 2009-04-28 16:16 巴西木 阅读(1745) 评论(0)  编辑 收藏 引用 所属分类: Oracle
牛人还是很多地呀，这个问题一下就搜到完美答案了：

Oracle 存储过程返回结果集

关键字: 转载
Sql代码 复制代码
  1. Oracle 存储过程返回结果集   
  2.   
  3. 过程返回记录集：    
  4. CREATE OR REPLACE PACKAGE pkg_test    
  5. AS    
  6.     TYPE myrctype IS REF CURSOR;    
  7.      
  8.     PROCEDURE get (p_id NUMBER, p_rc OUT myrctype);    
  9. END pkg_test;    
  10. /    
  11.      
  12. CREATE OR REPLACE PACKAGE BODY pkg_test    
  13. AS    
  14.     PROCEDURE get (p_id NUMBER, p_rc OUT myrctype)    
  15.     IS    
  16.        sqlstr   VARCHAR2 (500);    
  17.     BEGIN    
  18.        IF p_id = 0 THEN    
  19.           OPEN p_rc FOR    
  20.              SELECT ID, NAME, sex, address, postcode, birthday    
  21.                FROM student;    
  22.        ELSE    
  23.           sqlstr :=    
  24.              'select id,name,sex,address,postcode,birthday    
  25.             from student where id=:w_id';    
  26.           OPEN p_rc FOR sqlstr USING p_id;    
  27.        END IF;    
  28.     END get;    
  29. END pkg_test;    
  30. /    
  31.      
  32. 函数返回记录集:    
  33. 建立带ref cursor定义的包和包体及函数：    
  34. CREATE OR REPLACE    
  35. package pkg_test as    
  36. /* 定义ref cursor类型    
  37.     不加return类型，为弱类型，允许动态sql查询，    
  38.     否则为强类型，无法使用动态sql查询;    
  39. */    
  40.    type myrctype is ref cursor;     
  41.       
  42. --函数申明    
  43.    function get(intID number) return myrctype;    
  44. end pkg_test;    
  45. /    
  46.       
  47. CREATE OR REPLACE    
  48. package body pkg_test as    
  49. --函数体    
  50.     function get(intID number) return myrctype is    
  51.       rc myrctype;  --定义ref cursor变量    
  52.       sqlstr varchar2(500);    
  53.     begin    
  54.       if intID=0 then    
  55.          --静态测试，直接用select语句直接返回结果    
  56.          open rc for select id,name,sex,address,postcode,birthday from student;    
  57.       else    
  58.          --动态sql赋值，用:w_id来申明该变量从外部获得    
  59.          sqlstr := 'select id,name,sex,address,postcode,birthday from student where id=:w_id';    
  60.          --动态测试，用sqlstr字符串返回结果，用using关键词传递参数    
  61.          open rc for sqlstr using intid;    
  62.       end if;    
  63.       
  64.       return rc;    
  65.     end get;    
  66.       
  67. end pkg_test;    
  68. /   
只有注册用户登录后才能发表评论。