关于oracle中的字符串聚合函数

关于oracle中的字符串聚合函数
sql中的聚合函数可以应用于 float，int等类型的字段。
比如 select 客户名称,sum(金额) as 总金额 from t_计费表 group by 客户名称   -----算取每个客户的总金额 
或者 select 客户名称,avg(单价) as 均价 from t_计费表 group by 客户名称   -----算取每个客户的平均单价

同样，我们有些字符串型的也希望能够像聚合函数一样能把同类的字符拼接串联起来
比如我想看每一个仓库的货物都有哪些
select 仓库名称,ConnStrSum(货物名称) as 货物清单 from t_库存表 group by 仓库名称
这句SQL的初衷是把货物的名称按照仓库分类拼接起来。以往我们为了实现这个ConnStrSum(货物名称) as 货物清单往往需要用游标循环的方式来取得。那么实现这个ConnStrSum函数可以大大降低我们的统计量并简化sql语法。

下面脚本可在oracle PL/SQL的command window中运行，得到connstrsum函数

 

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
     --终止聚集函数的处理,返回聚集函数处理的结果.
)
/
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
          /* 连接 */
          dbms_output.put_line('sum_string='||self.sum_string);
          if (   (  self.sum_string not like '%'||value||'%' or self.sum_string is  null )
                   and value is not null) then
             self.sum_string := self.sum_string || value||';';
            
          end if;
          return ODCICONST.Success;
          /* 最大值 */
          if self.sum_string<value then
              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
          /* 连接 */
          self.sum_string := self.sum_string || v_next.sum_string;
          return ODCICONST.Success;
          /* 最大值 */
          if self.sum_string<v_next.sum_string then
              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;
/
create or replace function ConnStrSum(value Varchar2) return Varchar2
     parallel_enable aggregate using string_sum_obj;
/

[[i] 本帖最后由 sq3536 于 2009-6-1 10:43 编辑 [/i]]