Chinaunix首页 | 论坛 | 博客
  • 博客访问: 82740
  • 博文数量: 21
  • 博客积分: 1410
  • 博客等级: 上尉
  • 技术积分: 185
  • 用 户 组: 普通用户
  • 注册时间: 2008-05-30 17:02
文章分类

全部博文(21)

文章存档

2008年(21)

我的朋友

分类: Oracle

2008-08-29 22:11:24

--利用9i出来的sys_refcursor
create or REPLACE PROCEDURE proc_get(p_rc out sys_refcursor) as
BEGIN
open p_rc for select table_name,tablespace_name,status from user_table_t;
END;
/

VARIABLE p_rc refcursor;
EXEC proc_get(:p_rc);
print;

--9i之前是要定义游标变量的
CREATE OR REPLACE PACKAGE pkg_test
AS
    TYPE myrctype IS REF CURSOR;
    PROCEDURE get (p_rc OUT myrctype);
END pkg_test;
/
CREATE OR REPLACE PACKAGE BODY pkg_test
AS
    PROCEDURE get (p_rc OUT myrctype)
    IS
      sqlstr  VARCHAR2 (500);
    BEGIN
          OPEN p_rc FOR
            select table_name,tablespace_name,status from user_table_t;
    END get;
END pkg_test;
/

VARIABLE p_rc refcursor;
exec pkg_test.get(:p_rc);
print p_rc;

 

 

--利用游标循环输出

set serveroutput on
declare
type mytable is table of user_table_t%rowtype;
l_data mytable;
l_refc sys_refcursor;
BEGIN
open l_refc for select table_name,tablespace_name,status from user_table_t;
fetch l_refc BULK COLLECT into l_data;
CLOSE l_refc;
FOR i IN 1 .. l_data.COUNT
LOOP
DBMS_OUTPUT.put_line ( l_data (i).table_name||'`s TABLESPACE is '||l_data(i).tablespace_name);
END LOOP;
END;
/

阅读(1279) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~