转载_Oracle中过程/函数返回结果集

Oracle中函数/过程返回结果集的几种方式:
以函数return为例,存储过程只需改为out参数即可,在oracle 10g测试通过.

1 返回游标

return 的类型为: SYS_REFCURSOR , 之后在IS里面定义变量: curr SYS_REFCURSOR; 最后在函数体中写:

open cur for
select ......;
return cur; 

示例

CREATE
OR REPLACE FUNCTION A_TEST (ORTYPE VARCHAR2) RETURN SYS_REFCURSOR IS TYPE_CUR SYS_REFCURSOR;
BEGIN OPEN TYPE_CUR FOR
SELECT
    COL1,
    COL2,
    COL3
FROM
    TESTTABLE;
RETURN TYPE_CUR;
END;

2 返回table类型的结果集

首先定义一个行类型:

CREATE OR REPLACE TYPE "SPLIT_ARR" AS OBJECT (NOWSTR VARCHAR2 (18));

其次以此行类型定义一个表类型:

CREATE OR REPLACE TYPE "SPLIT_TAB" AS TABLE OF SPLIT_ARR;

定义函数(此函数完成字符串拆分功能):

CREATE OR REPLACE FUNCTION GetSubStr(str       in varchar2, --待分割的字符串
                                        splitchar in varchar2 --分割标志
                                        ) return split_tab IS
    restStr  varchar2(2000) default GetSubStr.str; --剩余的字符串
    thisStr  varchar2(18); --取得的当前字符串
    indexStr int; --临时存放分隔符在字符串中的位置
    v        split_tab := split_tab(); --返回结果
begin
    dbms_output.put_line(restStr);
    while length(restStr) != 0 LOOP
    indexStr := instr(restStr, splitchar); --从子串中取分隔符的第一个位置
    if indexStr = 0 and length(restStr) != 0 then
        --在剩余的串中找不到分隔符
        begin
        v.extend;
        v(v.count) := split_arr(Reststr);
        return v;
        end;
    end if;
    if indexStr = 1 then
        ---第一个字符便为分隔符,此时去掉分隔符
        begin
        restStr := substr(restStr, 2);
        goto top;
        end;
    end if;
    if length(restStr) = 0 or restStr is null then
        return v;
    end if;
    v.extend;
    thisStr := substr(restStr, 1, indexStr - 1); --取得当前的字符串
    restStr := substr(restStr, indexStr + 1); ---取剩余的字符串
    v(v.count) := split_arr(thisStr);
    END LOOP;
    return v;
end;

在PL/SQL developer中可以直接调用

cursor strcur is select nowStr from Table(GetSubStr('111,222,333,,,',','));

3 以管道形式输出

create type row_type as object
(
    a varchar2(10),
    v varchar2(10)
)
; --定义行对象
create type table_type as table of row_type; --定义表对象
create or replace function test_fun(a in varchar2, b in varchar2)
return table_type pipelined is v row_type; --定义v为行对象类型
begin
    for thisrow in (select a, b from mytable where col1 = a and col2 = b) loop
        v := row_type(thisrow.a, thisrow.b);
        pipe row(v);
    end loop;
    return;
end;
select * from table(test_fun('', ''));

4 转载自

http://blog.csdn.net/feiliu010/article/details/1538822