编写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 过程已成功完成。