----添加拼接函数 CREATE OR REPLACE TYPE BODY CONNSTRIMPL IS STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT CONNSTRIMPL) RETURN NUMBER IS BEGIN SCTX := CONNSTRIMPL('',','); RETURN ODCICONST.SUCCESS; END; MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT CONNSTRIMPL, VALUE IN VARCHAR2) RETURN NUMBER IS BEGIN IF SELF.CURRENTSTR IS NULL THEN SELF.CURRENTSTR := VALUE; ELSE IF LENGTHB(SELF.CURRENTSTR)+LENGTHB(CURRENTSEPRATOR)+LENGTHB(VALUE)<4000 THEN SELF.CURRENTSTR := SELF.CURRENTSTR ||CURRENTSEPRATOR || VALUE; END IF; END IF; RETURN ODCICONST.SUCCESS; END; MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN CONNSTRIMPL, RETURNVALUE OUT VARCHAR2, FLAGS IN NUMBER) RETURN NUMBER IS BEGIN RETURNVALUE := SELF.CURRENTSTR; RETURN ODCICONST.SUCCESS; END; MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT CONNSTRIMPL, CTX2 IN CONNSTRIMPL) RETURN NUMBER IS BEGIN IF CTX2.CURRENTSTR IS NULL THEN SELF.CURRENTSTR := SELF.CURRENTSTR; ELSIF SELF.CURRENTSTR IS NULL THEN SELF.CURRENTSTR := CTX2.CURRENTSTR; ELSE SELF.CURRENTSTR := SELF.CURRENTSTR || CURRENTSEPRATOR || CTX2.CURRENTSTR; END IF; RETURN ODCICONST.SUCCESS; END; END; CREATE OR REPLACE TYPE CONNSTRIMPL AS OBJECT ( CURRENTSTR VARCHAR2(4000), CURRENTSEPRATOR VARCHAR2(8), STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT CONNSTRIMPL) RETURN NUMBER, MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT CONNSTRIMPL,VALUE IN VARCHAR2) RETURN NUMBER, MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN CONNSTRIMPL,RETURNVALUE OUT VARCHAR2, FLAGS IN NUMBER) RETURN NUMBER, MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT CONNSTRIMPL,CTX2 IN CONNSTRIMPL) RETURN NUMBER ); CREATE OR REPLACE FUNCTION CONNSTR (INPUT VARCHAR2) RETURN VARCHAR2 PARALLEL_ENABLE AGGREGATE USING CONNSTRIMPL;
oracle的拼接,oracle添加拼接函数
最新推荐文章于 2024-06-14 15:21:56 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)