半原创之：聚合求积函数！顺便解决BOM的问题

lypch

CONNECT_BY_ISLEAF 这个是10才有的特性。

原帖由 zhangweicai74 于 2008-7-14 08:39 发表

咱9I的用不了这个函数:CONNECT_BY_ISLEAF

grubbyoo

有谁 知道11 的sql有什么新特性？

nirvanv

第一种方法比较简单先记下了

alfah

顺便问一下
有没有聚合and、or、xor函数

乐山一虫

原帖由 lypch 于 2008-7-13 21:23 发表
都是高手啊，不知道什么时候才可以到你们的水平。

看着发晕

newkid

聚合位操作可以类似实现。但有什么实际作用呢？

聚合AND操作：
create or replace type and_agg_type as object
(
   total NUMBER,

   static function
        ODCIAggregateInitialize(sctx IN OUT and_agg_type )
        return number,

   member function
        ODCIAggregateIterate(self IN OUT and_agg_type ,
                             value IN NUMBER )
        return number,

   member function
        ODCIAggregateTerminate(self IN and_agg_type,
                               returnValue OUT  NUMBER,
                               flags IN number)
        return number,

   member function
        ODCIAggregateMerge(self IN OUT and_agg_type,
                           ctx2 IN and_agg_type)
        return number
);
/

create or replace type body and_agg_type
is

static function ODCIAggregateInitialize(sctx IN OUT and_agg_type)
return number
is
begin
    sctx := and_agg_type( null );
    sctx.total :=1;
    return ODCIConst.Success;
end;

member function ODCIAggregateIterate(self IN OUT and_agg_type,
                                     value IN NUMBER )
return number
is
begin
    self.total := BITAND(self.total, value);
    return ODCIConst.Success;
end;

member function ODCIAggregateTerminate(self IN and_agg_type,
                                       returnValue OUT NUMBER,
                                       flags IN number)
return number
is
begin
    returnValue := self.total;
    return ODCIConst.Success;
end;

member function ODCIAggregateMerge(self IN OUT and_agg_type,
                                   ctx2 IN and_agg_type)
return number
is
begin
    self.total := BITAND(self.total, ctx2.total);
    return ODCIConst.Success;
end;


end;
/

CREATE or replace
FUNCTION and_agg(input NUMBER )
RETURN NUMBER
PARALLEL_ENABLE AGGREGATE USING and_agg_type;
/


聚合OR操作：
create or replace type or_agg_type as object
(
   total NUMBER,

   static function
        ODCIAggregateInitialize(sctx IN OUT or_agg_type )
        return number,

   member function
        ODCIAggregateIterate(self IN OUT or_agg_type ,
                             value IN NUMBER )
        return number,

   member function
        ODCIAggregateTerminate(self IN or_agg_type,
                               returnValue OUT  NUMBER,
                               flags IN number)
        return number,

   member function
        ODCIAggregateMerge(self IN OUT or_agg_type,
                           ctx2 IN or_agg_type)
        return number
);
/

create or replace type body or_agg_type
is

static function ODCIAggregateInitialize(sctx IN OUT or_agg_type)
return number
is
begin
    sctx := or_agg_type( null );
    sctx.total :=0;
    return ODCIConst.Success;
end;

member function ODCIAggregateIterate(self IN OUT or_agg_type,
                                     value IN NUMBER )
return number
is
begin
    self.total := self.total + value - BITAND(self.total, value);
    return ODCIConst.Success;
end;

member function ODCIAggregateTerminate(self IN or_agg_type,
                                       returnValue OUT NUMBER,
                                       flags IN number)
return number
is
begin
    returnValue := self.total;
    return ODCIConst.Success;
end;

member function ODCIAggregateMerge(self IN OUT or_agg_type,
                                   ctx2 IN or_agg_type)
return number
is
begin
    self.total := self.total + ctx2.total - BITAND(self.total, ctx2.total);
    return ODCIConst.Success;
end;


end;
/

CREATE or replace
FUNCTION or_agg(input NUMBER )
RETURN NUMBER
PARALLEL_ENABLE AGGREGATE USING or_agg_type;
/


聚合XOR操作：
create or replace type xor_agg_type as object
(
   total NUMBER,

   static function
        ODCIAggregateInitialize(sctx IN OUT xor_agg_type )
        return number,

   member function
        ODCIAggregateIterate(self IN OUT xor_agg_type ,
                             value IN NUMBER )
        return number,

   member function
        ODCIAggregateTerminate(self IN xor_agg_type,
                               returnValue OUT  NUMBER,
                               flags IN number)
        return number,

   member function
        ODCIAggregateMerge(self IN OUT xor_agg_type,
                           ctx2 IN xor_agg_type)
        return number
);
/

create or replace type body xor_agg_type
is

static function ODCIAggregateInitialize(sctx IN OUT xor_agg_type)
return number
is
begin
    sctx := xor_agg_type( null );
    sctx.total :=0;
    return ODCIConst.Success;
end;

member function ODCIAggregateIterate(self IN OUT xor_agg_type,
                                     value IN NUMBER )
return number
is
begin
    self.total := self.total + value - BITAND(self.total, value)*2;
    return ODCIConst.Success;
end;

member function ODCIAggregateTerminate(self IN xor_agg_type,
                                       returnValue OUT NUMBER,
                                       flags IN number)
return number
is
begin
    returnValue := self.total;
    return ODCIConst.Success;
end;

member function ODCIAggregateMerge(self IN OUT xor_agg_type,
                                   ctx2 IN xor_agg_type)
return number
is
begin
    self.total := self.total + ctx2.total - BITAND(self.total, ctx2.total)*2;
    return ODCIConst.Success;
end;


end;
/

CREATE or replace
FUNCTION xor_agg(input NUMBER )
RETURN NUMBER
PARALLEL_ENABLE AGGREGATE USING xor_agg_type;
/

nyfor

还是写自定义聚合函数来得容易.

〇〇

重要的是oracle支持这种自定义，为开发者留了一个途径

〇〇

我觉得oracle应该提供这个自定义聚合的文档，不知道在哪一本

newkid

原帖由 〇〇 于 2010-4-19 09:05 发表
我觉得oracle应该提供这个自定义聚合的文档，不知道在哪一本

文档：Oracle® Data Cartridge Developer's Guide

http://stanford.edu/dept/itss/do ... 10800/dciaggref.htm

这么老的帖子竟然被挖掘出来，我也不觉得这个方法有什么稀奇，不过还是谢谢老狐狸！