编写Oracle包、过程或者函数，返回结果集，并且编写另一个过程或函数接收这个结果集并且输出；谁能提供思

点击打开链接

-- 测试表数据。

select  *  from  test_main;

 

         ID VALUE

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

          1 ONE

          3 THREE

          2 TWO

 

 

 

-- 返回结果集的函数.

CREATE  OR  REPLACE  FUNCTION  Get_Test_Main_All

RETURN  SYS_REFCURSOR

IS

   return_cursor SYS_REFCURSOR;

BEGIN

   OPEN  return_cursor  FOR  'SELECT * FROM test_main' ;

   RETURN  return_cursor;

END ;

/

 

 

 

-- 普通的查询，来查看结果.

SELECT  Get_Test_Main_All()  FROM  dual;

 

GET_TEST_MAIN_ALL()

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

CURSOR  STATEMENT : 1

 

CURSOR  STATEMENT : 1

 

         ID VALUE

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

          1 ONE

          3 THREE

          2 TWO

 

 

-- 存储过程调用， 来获取结果.

DECLARE 

   -- 调用函数的返回值.

   testCursor SYS_REFCURSOR;

   -- 存储单行数据.

   testRec  test_main%ROWTYPE;

BEGIN

   -- 调用返回结果集的函数.

   testCursor := Get_Test_Main_All();

   -- 循环，遍历结果.

   LOOP

     -- 游标向前.

     FETCH  testCursor  INTO  testRec;

     -- 无数据的情况下，退出循环.

     EXIT  WHEN  testCursor%NOTFOUND;

     -- 输出调试信息.

     dbms_output.put_line( TO_CHAR(testRec.id) ||  ' '  || testRec.value);

   END  LOOP;

END ;

/

 

1 ONE

3 THREE

2 TWO

 

PL/SQL 过程已成功完成。