Question

oracle编写程序,格式化输出部门信息

Answer 1

-- 测试表数据。
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 过程已成功完成。