Oracle的定制功能十分强大。前几天在碰到一个问题的时候,查询文档发现,oracle不但允许用户定制自己的函数,还可以定制自己的聚集函数和分析函数。
下面是我使用自定义聚集函数建立一个字符串“sum”的小例子。
SQL> CREATE OR REPLACE TYPE T_LINK AS OBJECT (
2 STR VARCHAR2(30000),
3 STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT T_LINK) RETURN NUMBER,
4 MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT T_LINK, VALUE IN VARCHAR2) RETURN NUMBER,
5 MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN T_LINK, RETURNVALUE OUT VARCHAR2, FLAGS IN NUMBE
R) RETURN NUMBER,
6 MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT T_LINK, CTX2 IN T_LINK) RETURN NUMBER
7 )
8 /
类型已创建。
SQL> CREATE OR REPLACE TYPE BODY T_LINK IS
2 STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT T_LINK) RETURN NUMBER IS
3 BEGIN
4 SCTX := T_LINK(NULL);
5 RETURN ODCICONST.SUCCESS;
6 END;
7
8 MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT T_LINK, VALUE IN VARCHAR2) RETURN NUMBER IS
9 BEGIN
10 SELF.STR := SELF.STR || VALUE;
11 RETURN ODCICONST.SUCCESS;
12 END;
13
14 MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN T_LINK, RETURNVALUE OUT VARCHAR2, FLAGS IN NUMBE
R) RETURN NUMBER IS
15 BEGIN
16 RETURNVALUE := SELF.STR;
17 RETURN ODCICONST.SUCCESS;
18 END;
19
20 MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT T_LINK, CTX2 IN T_LINK) RETURN NUMBER IS
21 BEGIN
22 NULL;
23 RETURN ODCICONST.SUCCESS;
24 END;
25 END;
26 /
类型主体已创建。
SQL> CREATE OR REPLACE FUNCTION F_LINK(P_STR VARCHAR2) RETURN VARCHAR2
2 AGGREGATE USING T_LINK;
3 /
函数已创建。
SQL> CREATE TABLE TEST (ID NUMBER, NAME VARCHAR2(20));
表已创建。
SQL> INSERT INTO TEST VALUES (1, 'AAA');
已创建 1 行。
SQL> INSERT INTO TEST VALUES (2, 'BBB');
已创建 1 行。
SQL> INSERT INTO TEST VALUES (1, 'ABC');
已创建 1 行。
SQL> INSERT INTO TEST VALUES (3, 'CCC');
已创建 1 行。
SQL> INSERT INTO TEST VALUES (2, 'DDD');
已创建 1 行。
SQL> COMMIT;
提交完成。
SQL> COL NAME FORMAT A60
SQL> SELECT ID, F_LINK(NAME) NAME FROM TEST GROUP BY ID;
---------- ------------------------------------------------------
1 AAAABC
2 BBBDDD
3 CCC
oracle自定义聚集函数接口简介
a. static function ODCIAggregateInitialize(sctx IN OUTstring_agg_type )
return number
自定义聚集函数初始化设置,从这儿开始一个聚集函数
b. member function ODCIAggregateIterate(self IN OUT string_agg_type ,value IN varchar2)
return number
自定义聚集函数,最主要的步骤,这个函数定义我们的聚集函数具体做什么操作,后面的例子,是取最大值,最小值,平均值,还是做连接操作.self 为当前聚集函数的指针,用来与前面的计算结果进行关联
c. member function ODCIAggregateMerge (self IN string_agg_type,returnValue OUT varchar2,flags IN number)
return number
用来合并两个聚集函数的两个不同的指针对应的结果,用户合并不同结果结的数据,特别是处理并行(parallel)查询聚集函数的时候.
d. member function OCDIAggregateTerminate(self IN string_agg_type,returnValue OUT varchar2,flags IN number)
终止聚集函数的处理,返回聚集函数处理的结果.
2. 实现的例子.
[code]
create type strcat_type as object (
cat_string varchar2(4000),
static function ODCIAggregateInitialize(cs_ctx In Out strcat_type) return number,
member function ODCIAggregateIterate(self In Out strcat_type,value in varchar2) return number,
member function ODCIAggregateMerge(self In Out strcat_type,ctx2 In Out strcat_type) return number,
member function ODCIAggregateTerminate(self In Out strcat_type,returnValue Out varchar2,flags in number) return number
)
/
create type body strcat_type is
static function ODCIAggregateInitialize(cs_ctx IN OUT strcat_type) return number
is
begin
cs_ctx := strcat_type( null );
return ODCIConst.Success;
end;
member function ODCIAggregateIterate(self IN OUT strcat_type,
value IN varchar2 )
return number
is
begin
self.cat_string := self.cat_string || ','|| value;
return ODCIConst.Success;
end;
member function ODCIAggregateTerminate(self IN Out strcat_type,
returnValue OUT varchar2,
flags IN number)
return number
is
begin
returnValue := ltrim(rtrim(self.cat_string,','),',');
return ODCIConst.Success;
end;
member function ODCIAggregateMerge(self IN OUT strcat_type,
ctx2 IN Out strcat_type)
return number
is
begin
self.cat_string := self.cat_string || ',' || ctx2.cat_string;
return ODCIConst.Success;
end;
end;
/
CREATE or replace
FUNCTION strcat(input varchar2 )
RETURN varchar2
PARALLEL_ENABLE AGGREGATE USING strcat_type;
/
[/code]
3. 具体应用,
[code]
15:16:52 SQL> select empno,ename,deptno,job from scott.emp;
EMPNO ENAME DEPTNO JOB
---------- ---------- ---------- ---------
7369 SMITH 20 CLERK
7499 ALLEN 30 SALESMAN
7521 WARD 30 SALESMAN
7566 JONES 20 MANAGER
7654 MARTIN 30 SALESMAN
7698 BLAKE 30 MANAGER
7782 CLARK 10 MANAGER
7788 SCOTT 20 ANALYST
7839 KING 10 PRESIDENT
7844 TURNER 30 SALESMAN
7876 ADAMS 20 CLERK
7900 JAMES 30 CLERK
7902 FORD 20 ANALYST
7934 MILLER 10 CLERK
14 rows selected.
Elapsed: 00:00:00.01
15:18:29 SQL> col dept_emplist format a60
15:18:41 SQL> select deptno,strcat(empno||'-'||ename) dept_emplist
15:19:01 2 from scott.emp group by deptno;
DEPTNO DEPT_EMPLIST
---------- ------------------------------------------------------------
10 7782-CLARK,7839-KING,7934-MILLER
20 7369-SMITH,7902-FORD,7876-ADAMS,7788-SCOTT,7566-JONES
30 7499-ALLEN,7698-BLAKE,7654-MARTIN,7844-TURNER,7900-JAMES,7521-WARD
Elapsed: 00:00:00.04
15:19:08 SQL> col job_emplist format a80
15:19:23 SQL> select job,strcat(empno||'-'||ename) job_emplist
15:19:43 2 from scott.emp group by job;
JOB JOB_EMPLIST
--------- --------------------------------------------------------------------------------
ANALYST 7788-SCOTT,7902-FORD
CLERK 7369-SMITH,7900-JAMES,7876-ADAMS,7934-MILLER
MANAGER 7566-JONES,7782-CLARK,7698-BLAKE
PRESIDENT 7839-KING
SALESMAN 7499-ALLEN,7521-WARD,7844-TURNER,7654-MARTIN
Elapsed: 00:00:00.03
15:19:50 SQL>
[/code]
发表于: 2006.07.01 00:33
分类: 技术探讨
出处: http://jackywood.itpub.net/post/1369/129288
---------------------------------------------------------------
在put上经常见到有人问"字符串连接"或是"一列多行数据怎么变为一列一行", 在此汇总我所知比较好的几种字符串聚合的方法, 供大家参考.
在这里生成测试数据, 后面详细介绍方法的时候需要用到.
create table tb_agg(
val varchar2(4),
gcol varchar2(4)
)
/
insert into tb_agg
select lpad(rownum,2,'0'), ceil(rownum/5) from dual connect by rownum<=20;
commit;
1. 通过 sys_connect_by_path
需要对数据进行树型构造, 在通过sys_connect_by_path完成字符串的的聚合.
这种方法便于对聚合元素排序, 但是元素与元素间必须要有分割符(如不需要分割符, 需要最后replace掉), 且聚合后的数据不能超过varchar2最大长度的限制.
示例: (该方法中需要用到分析函数来构造树型结构, 并用connect by进行查询)
SQL> with t as (
2 select val, gcol,
3 lag(val) over(partition by gcol order by val) as pval1
4 from tb_agg
5 )
6 select gcol, max(sys_connect_by_path(val, '/')) as aggr
7 from t
8 start with pval1 is null
9 connect by prior val=pval1
10 group by gcol
11 /
GCOL AGGR
-------- ----------------------------------------
1 /01/02/03/04/05
2 /06/07/08/09/10
3 /11/12/13/14/15
4 /16/17/18/19/20
2. 通过自定义聚合函数完成
需要用到oracle提供的自定义聚合函数的方法, 先定义聚合type, 然后定义函数, 来完成字符串的聚合.
这种方法可以任意指定分割符或无分割符, 聚合长度可以通过根据type中定义的不同, 返回varchar2或clob, 因此可以不受varchar2上限限制, 但是对聚合元素排序的话需要特殊处理.
由于自定义聚合函数较长, 请参见 http://www.itpub.net/477803.html
3. 通过自定义集合实现
需要自定义集合类型, 并定义集合聚合函数.
这种方法的特定和自定义聚合函数基本类似.
详细参见: 字符串聚合之自定义集合
-- 注意声明时的长度, 合适的长度最佳, 不要过长, 也不要过小
create or replace type vars is table of varchar2(1000)
/
-- 返回为varchar2, 有 varchar2 大小上限限制的
create or replace function sumvar (p_in in vars) return varchar2
is
v_out varchar2(4000);
begin
for i in 1..p_in.count loop
v_out := v_out || p_in(i);
end loop;
return v_out;
end;
/
-- 返回clob, 无varchar2上限限制
create or replace function sumvarc (p_in in vars) return clob
is
v_out clob;
begin
for i in 1..p_in.count loop
v_out := v_out || p_in(i);
end loop;
return v_out;
end;
/
函数的使用示例:
SQL> select gcol,
2 sumvar(cast(multiset(select '/'||val
3 from tb_agg
4 where a.gcol=gcol
5 order by val) as vars
6 )
7 ) as aggr
8 from tb_agg a
9 group by gcol
10 /
GCOL AGGR
-------- ----------------------------------------
1 /01/02/03/04/05
2 /06/07/08/09/10
3 /11/12/13/14/15
4 /16/17/18/19/20