oracle odciaggregateiterate,oracle sql 合并问题?

这个需要自己编写聚合函数，我写了一个字符聚合函数，然后可以如下调用

select connstrsum(type_id) from table1 group by id ,title, content

源代码如下

1 . 声明自定义类型头

CREATE OR REPLACE TYPE "STRING_SUM_OBJ" as object (

--聚合函数的实质就是一个对象

sum_string varchar2(4000),

static function ODCIAggregateInitialize(v_self in out string_sum_obj) return number,

--对象初始化

member function ODCIAggregateIterate(self in out string_sum_obj, value in varchar2) return number,

--聚合函数的迭代方法(这是最重要的方法)

member function ODCIAggregateMerge(self in out string_sum_obj, v_next in string_sum_obj) return number,

--当查询语句并行运行时,才会使用该方法,可将多个并行运行的查询结果聚合

member function ODCIAggregateTerminate(self in string_sum_obj, return_value out varchar2 ,v_flags in number) return number

--终止聚集函数的处理,返回聚集函数处理的结果.

)

2.声明自定义类型体

create or replace type body string_sum_obj is

static function ODCIAggregateInitialize(v_self in out string_sum_obj) return number is

begin

v_self := string_sum_obj(null);

return ODCICONST.Success;

end;

member function ODCIAggregateIterate(self in out string_sum_obj, value in varchar2) return number is

begin

/* 连接 */

if length(trim(value))>0 then --20101220

self.sum_string := self.sum_string || ',' || value;

end if ;--20101220

if substr(self.sum_string,1,1)=',' then

self.sum_string :=substr(self.sum_string,2);--20101220

end if ;--20101220

return ODCICONST.Success;

/* 最大值 */

if self.sum_string

self.sum_string:=value;

end if;

/* 最小值 */

if self.sum_string>value then

self.sum_string:=value;

end if;

return ODCICONST.Success;

end;

member function ODCIAggregateMerge(self in out string_sum_obj, v_next in string_sum_obj) return number is

begin

/* 连接 */

if length( trim(v_next.sum_string))>0 then --20101220

self.sum_string := self.sum_string || ',' || v_next.sum_string;

end if ; --20101220

if substr(self.sum_string,1,1)=',' then

self.sum_string :=substr(self.sum_string,2);--20101220

end if ;--20101220

return ODCICONST.Success;

/* 最大值 */

if self.sum_string

self.sum_string:=v_next.sum_string;

end if;

/* 最小值 */

if self.sum_string>v_next.sum_string then

self.sum_string:=v_next.sum_string;

end if;

return ODCICONST.Success;

end;

member function ODCIAggregateTerminate(self in string_sum_obj, return_value out varchar2 ,v_flags in number) return number is

begin

return_value:= self.sum_string;

return ODCICONST.Success;

end;

end;

3. 声明自定义函数

create or replace function ConnStrSum(value Varchar2) return Varchar2

parallel_enable aggregate using string_sum_obj;

4. 调用方法示例