ORACLE升级11g以上之前版本的wm_concat()函数失效问题解决

oracle 11g版本和oracle10g版本有个区别，就是wm_concat()的返回值类型的不同，这个导致升级到11g后许多程序无法使用。

wmsys.wm_concat的作用是将多行合并为一行。

在10G中该方法返回值可直接转为String后使用，

但是在11G中返回值却是Clob类型，无法直接使用，必须将clob转为String 或其他类型后才可以使用。

导致原来的程序无法进行正确获取数据。

最近在项目中，进行oracle 10g升级到11g，原先使用的wm_concat()获取的数据，默认转为了LOB类型，导致进行前台使用时候，无法进行正确获取数据。下面有一解决方法：

下面有一解决方法：

先执行：

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 
      --终止聚集函数的处理,返回聚集函数处理的结果. 
) 

再执行：创建type具体

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 not self.sum_string is null then 
           self.sum_string := self.sum_string ||','|| value; 
           else 
           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 wm_concat(value Varchar2) return Varchar2 
      parallel_enable aggregate using string_sum_obj;

最后去执行WM_CONCAT()函数会发现，他的效果和以前一样一样！

作者：Peter Luo，

地址：https://www.cnblogs.com/Peter-Luo/articles/11738990.html

前面略有修改！