wm_concat 行转列数据量大的解决方案

wmsys.wm_concat  这个函数存在缺陷,数据量大的时候,容易报ora-22813

    没办法只能通过重新定义一个行转列函数,copy了一下 http://www.savedba.com/?p=955  这个人写的函数

有点问题,自己又改了下。

drop type t_dj_concat;
drop function dj_concat;


create or replace type t_dj_concat  as object
(
  curr_str clob,
  static function odciaggregateinitialize(sctx in out t_dj_concat)
    return number,
  member function odciaggregateiterate(self in out t_dj_concat,
                                       p1   in varchar2) return number,
  member function odciaggregateterminate(self        in t_dj_concat,
                                         returnvalue out clob,
                                         flags       in number)
    return number,
  member function odciaggregatemerge(self  in out t_dj_concat,
                                     sctx2 in t_dj_concat) return number
);
/




create or replace type body t_dj_concat
is
  static function odciaggregateinitialize(sctx in out t_dj_concat)
  return number
  is
  begin
  sctx := t_dj_concat(null) ;
  return odciconst.success;
  end;
  member function odciaggregateiterate(self in out t_dj_concat,


  p1 in varchar2)
  return number
  is
  begin
  if(curr_str is not null) then
  curr_str := curr_str || ',' || p1;
  else
  curr_str := p1;
  end if;
  return odciconst.success;
  end;
  member function odciaggregateterminate(self in t_dj_concat,
  returnvalue out clob,
  flags in number)
  return number
  is
  begin
  returnvalue := curr_str ;
  return odciconst.success;
  end;
  member function odciaggregatemerge(self in out t_dj_concat,
  sctx2 in t_dj_concat)
  return number
  is
  begin
  if(sctx2.curr_str is not null) then
  self.curr_str := self.curr_str || ',' || sctx2.curr_str ;
  end if;
  return odciconst.success;
  end;
end;
/






create or replace function dj_concat(p1 varchar2)
return clob aggregate using t_dj_concat ;
/



阅读更多
个人分类: 数据库
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

wm_concat 行转列数据量大的解决方案

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭