假设tablename表中有field如下:
field1 varchar2(50)
field2 Varchar2(50)
field3 Varchar(50)
field4 varchar2(50)
field5 varchar2(20)
field6 float,
field7 float
1.定义游标
create or replace package RefCursor is
-- Author : Ricky
-- Created : 2003-9-1 14:08:45
-- Purpose :
-- Public type declarations
type t_RefCursor is ref cursor;
end RefCursor;
2.创建类型
创建的类型与tablename中表的fields一致,当然也要看你实际是否要统计所有的fields.
create or replace type TableType as object
(
-- Author : Ricky
-- Created : 2003-8-25 9:12:08
-- Purpose :
-- Attributes
field1 varchar2(50),
field2 Varchar2(50),
field3 Varchar(50),
field4 varchar2(50),
field5 varchar2(20),
field6 float,
field7 float
);
3.创建表类型
create or replace type TableTypeList as table of TableType;
4.在存储过程或者函数中使用,下面在函数中使用(存储过程中不能用return一个表结构,要用到临时表)
CREATE OR REPLACE FUNCTION "TEST" (
return TableTypeList pipelined as
begin
v_Cur RefCursor.t_Refcursor;
v_SQLStatement string(10000);
v_Table tablename%rowtype;
tmp1 tablename.field1%Type;
tmp2 tablename.field2%Type;
tmp3 tablename.field3%Type;
tmp4 tablename.field4%Type;
tmp5 tablename.field5%Type;
tmp6 tablename.field6%Type;
tmp7 tablename.field6%Type;
v_SQLStatement := 'Select * From tablename where field1='1' order by field1';
open v_Cur for v_SQLStatement;
loop
--这里是循环过程
fetch v_Cur into v_Comm;
exit when v_CommCur%notfound;
--这里是你要处理的统计过程,中间的过程我没有做统计,各位在实践中按需要自己添加。
field1 = v_Cur.field1;
field2 = v_Cur.field2;
field3 = v_Cur.field3;
field4 = v_Cur.field4;
field5 = v_Cur.field5;
field6 = v_Cur.field6;
field7 = v_Cur.field7;
v_Table = TableType(field1,
field2,
field3,
field4,
field5,
field6,
field7)
pipe row(v_Table);
end loop
end;