oracle在触发器中调用函数,Oracle中通过：触发器，存储过程，Function调用实现解析Clob字段...

摘要：最近项目中用到了存储过程，触发器，Function，由于以前没怎么用过，所以查资料，请教同事，最后总算是把问题解决了，问题是这样的，数据库中有三张表一张是存放从远程服务器获取数据的MBINMSGS表，这个表里面有个Clob字段，里面存放的是xml式的字符串

摘要：最近项目中用到了存储过程，触发器，Function，由于以前没怎么用过，所以查资料，请教同事，最后总算是把问题解决了，问题是这样的，数据库中有三张表一张是存放从远程服务器获取数据的MBINMSGS表，这个表里面有个Clob字段，里面存放的是xml格式的字符串，我们要把这个表里面的xml字符串通过Oracle解析出来，然后再把解析出来的数据插入对应的数据表：TB_CMS_FLGTINFO_A表和TB_CMS_FLGTINFO_D表，以上就是问题的描述，下面我把我的代码贴出了，以供大家参考：

一：数据表结构SQL

CREATE TABLE MIP.MBINMSGS

(

ID NUMBER(30) NOT NULL,

MBINMSGS_CLOB_MSG CLOB,

MBINMSGS_DATE_RECEIVED DATE,

MBINMSGS_DATE_PROCESSED DATE,

MBINMSGS_SUBSYSTEM_NAME VARCHAR2(100 BYTE),

MBINMSGS_SUBSYSTEM_DATE_SENT DATE,

SERVICENAME VARCHAR2(30 BYTE) NOT NULL

)

CREATE TABLE MIP.TB_CMS_FLGTINFO_A

(

ID NUMBER(10) NOT NULL,

ABNS VARCHAR2(64 BYTE),

ACFT VARCHAR2(64 BYTE),

AIRLINE VARCHAR2(64 BYTE),

ALAP VARCHAR2(64 BYTE),

BETM VARCHAR2(64 BYTE),

CHDT VARCHAR2(64 BYTE),

EIBT VARCHAR2(64 BYTE),

FATA VARCHAR2(64 BYTE),

FETA VARCHAR2(64 BYTE),

FFID VARCHAR2(64 BYTE),

FSTA VARCHAR2(64 BYTE),

LMDT VARCHAR2(64 BYTE),

LMUR VARCHAR2(64 BYTE),

PSTM VARCHAR2(64 BYTE),

RENO VARCHAR2(64 BYTE),

RWAY VARCHAR2(64 BYTE),

SPOT VARCHAR2(64 BYTE),

STND VARCHAR2(64 BYTE)

)

CREATE TABLE MIP.TB_CMS_FLGTINFO_D

(

ID NUMBER(10) NOT NULL,

A_TOBT VARCHAR2(64 BYTE),

A_WEATHER VARCHAR2(64 BYTE),

ABNS VARCHAR2(64 BYTE),

ACFT VARCHAR2(64 BYTE),

AIRLINE VARCHAR2(64 BYTE),

ASAT VARCHAR2(64 BYTE),

BCTM VARCHAR2(64 BYTE),

BOTM VARCHAR2(64 BYTE),

BSTM VARCHAR2(64 BYTE),

C_TOBT VARCHAR2(64 BYTE),

COBT VARCHAR2(64 BYTE),

CTOT VARCHAR2(64 BYTE),

DINT VARCHAR2(64 BYTE),

DLAB VARCHAR2(64 BYTE),

DNAP VARCHAR2(64 BYTE),

DOUT VARCHAR2(64 BYTE),

EDDI VARCHAR2(64 BYTE),

EOBT VARCHAR2(64 BYTE),

EPGT VARCHAR2(64 BYTE),

EPOT VARCHAR2(64 BYTE),

FATD VARCHAR2(64 BYTE),

FFID VARCHAR2(64 BYTE),

FSTD VARCHAR2(64 BYTE),

LMDT VARCHAR2(64 BYTE),

LMUR VARCHAR2(64 BYTE),

OFTM VARCHAR2(64 BYTE),

RENO VARCHAR2(64 BYTE),

RWAY VARCHAR2(64 BYTE),

STDI VARCHAR2(64 BYTE),

STND VARCHAR2(64 BYTE),

TSAT VARCHAR2(64 BYTE)

)

二：Function.SQL

CREATE OR REPLACE FUNCTION MIP.GetXmlNodeValue (xmlStr CLOB, nodeName VARCHAR2)

RETURN VARCHAR2

IS

--创建xml解析器实例xmlparser.Parser

xmlPar xmlparser.Parser := xmlparser.newParser;

--定义DOM文档

xDoc xmldom.DOMDocument;

--定义item子节点数目变量

lenItme INTEGER;

--定义节点列表，存放item节点们

itemNodes xmldom.DOMNodeList;

--定义节点，存放单个item节点

itemNode xmldom.DOMNode;

ValueReturn VARCHAR2 (100);

BEGIN

--解析xmlStr中xml字符串，并存放到xmlPar中

xmlparser.parseClob (xmlPar, xmlStr);

--将xmlPar中的数据转存到dom文档中

xDoc := xmlparser.getDocument (xmlPar);

xmlparser.freeParser (xmlPar); --释放解析器实例

--获取所有item节点

itemNodes := xmldom.getElementsByTagName (xDoc, nodeName);

--获取item节点的个数

lenItme := xmldom.getLength (itemNodes);

IF lenItme = 0

THEN

RETURN '';

END IF;

--获取节点列表中的第1个item节点

itemNode := xmldom.item (itemNodes, 0);

--获取所有子节点的值

ValueReturn := xmldom.getNodeValue (xmldom.getFirstChild (itemNode));

RETURN ValueReturn;

END GetXmlNodeValue;

/

三：存储过程.SQL

CREATE OR REPLACE PROCEDURE MIP.MIP_PARSE (xmlStr IN CLOB)

IS

RENO VARCHAR2 (100);

AIRLINE VARCHAR2 (100);

FFID VARCHAR2 (100);

FFID_A VARCHAR2 (100);

FFID_D VARCHAR2 (100);

ABNS VARCHAR2 (100);

ACFT VARCHAR2 (100);

CHDT VARCHAR2 (100);

EIBT VARCHAR2 (100);

FATA VARCHAR2 (100);

FETA VARCHAR2 (100);

--FFID VARCHAR2 (100);

FSTA VARCHAR2 (100);

LMDT VARCHAR2 (100);

LMUR VARCHAR2 (100);

PSTM VARCHAR2 (100);

RWAY VARCHAR2 (100);

SPOT VARCHAR2 (100);

STND VARCHAR2 (100);

A_TOBT VARCHAR2 (100);

A_WEATHER VARCHAR2 (100);

--ABNS VARCHAR2 (100);

--ACFT VARCHAR2 (100);

ASAT VARCHAR2 (100);

BCTM VARCHAR2 (100);

BOTM VARCHAR2 (100);

BSTM VARCHAR2 (100);

C_TOBT VARCHAR2 (100);

COBT VARCHAR2 (100);

CTOT VARCHAR2 (100);

DINT VARCHAR2 (100);

DLAB VARCHAR2 (100);

DOUT VARCHAR2 (100);

EDDI VARCHAR2 (100);

EOBT VARCHAR2 (100);

EPGT VARCHAR2 (100);

EPOT VARCHAR2 (100);

FATD VARCHAR2 (100);

--FFID VARCHAR2 (100);

FSTD VARCHAR2 (100);

--LMDT VARCHAR2 (100);

--LMUR VARCHAR2 (100);

OFTM VARCHAR2 (100);

--RENO VARCHAR2 (100);

--RWAY VARCHAR2 (100);

STDI VARCHAR2 (100);

--STND VARCHAR2 (100);

TSAT VARCHAR2 (100);

BEGIN

RENO := GetXmlNodeValue (xmlStr, 'RENO');

AIRLINE := GetXmlNodeValue (xmlStr, 'AIRLINE');

FFID := GetXmlNodeValue (xmlStr, 'FFID');

ABNS := GetXmlNodeValue (xmlStr, 'ABNS');

ACFT := GetXmlNodeValue (xmlStr, 'ACFT');

CHDT := GetXmlNodeValue (xmlStr, 'CHDT');

EIBT := GetXmlNodeValue (xmlStr, 'EIBT');

FATA := GetXmlNodeValue (xmlStr, 'FATA');

FETA := GetXmlNodeValue (xmlStr, 'FETA');

FFID := GetXmlNodeValue (xmlStr, 'FFID');

FSTA := GetXmlNodeValue (xmlStr, 'FSTA');

LMDT := GetXmlNodeValue (xmlStr, 'LMDT');

LMUR := GetXmlNodeValue (xmlStr, 'LMUR');

PSTM := GetXmlNodeValue (xmlStr, 'PSTM');

RWAY := GetXmlNodeValue (xmlStr, 'RWAY');

SPOT := GetXmlNodeValue (xmlStr, 'SPOT');

STND := GetXmlNodeValue (xmlStr, 'STND');

A_TOBT := GetXmlNodeValue (xmlStr, 'A_TOBT');

A_WEATHER := GetXmlNodeValue (xmlStr, 'A_WEATHER');

--ABNS := GetXmlNodeValue (xmlStr, 'ABNS');

--ACFT := GetXmlNodeValue (xmlStr, 'ACFT');

ASAT := GetXmlNodeValue (xmlStr, 'ASAT');

BCTM := GetXmlNodeValue (xmlStr, 'BCTM');

BOTM := GetXmlNodeValue (xmlStr, 'BOTM');

BSTM := GetXmlNodeValue (xmlStr, 'BSTM');

C_TOBT := GetXmlNodeValue (xmlStr, 'C_TOBT');

COBT := GetXmlNodeValue (xmlStr, 'COBT');

CTOT := GetXmlNodeValue (xmlStr, 'CTOT');

DINT := GetXmlNodeValue (xmlStr, 'DINT');

DLAB := GetXmlNodeValue (xmlStr, 'DLAB');

DOUT := GetXmlNodeValue (xmlStr, 'DOUT');

EDDI := GetXmlNodeValue (xmlStr, 'EDDI');

EOBT := GetXmlNodeValue (xmlStr, 'EOBT');

EPGT := GetXmlNodeValue (xmlStr, 'EPGT');

EPOT := GetXmlNodeValue (xmlStr, 'EPOT');

FATD := GetXmlNodeValue (xmlStr, 'FATD');

FSTD := GetXmlNodeValue (xmlStr, 'FSTD');

--LMDT := GetXmlNodeValue (xmlStr, 'LMDT');

--LMUR := GetXmlNodeValue (xmlStr, 'LMUR');

OFTM := GetXmlNodeValue (xmlStr, 'OFTM');

STDI := GetXmlNodeValue (xmlStr, 'STDI');

TSAT := GetXmlNodeValue (xmlStr, 'TSAT');

IF INSTR(FFID,'-D-') > 0 THEN

FFID_D := FFID;

INSERT INTO TB_CMS_FLGTINFO_D (ID,A_TOBT,A_WEATHER,ABNS,ACFT,AIRLINE,ASAT,BCTM,BOTM,BSTM,C_TOBT,COBT,CTOT,DINT,DLAB,DOUT,EDDI,EOBT,EPGT,EPOT,FATD,FFID,FSTD,LMDT,LMUR,OFTM,RENO,RWAY,STDI,STND,TSAT)

VALUES (FLGTINFO_D_SEQ.NEXTVAL,

A_TOBT,

A_WEATHER,

ABNS,

ACFT,

AIRLINE,

ASAT,

BCTM,

BOTM,

BSTM,

C_TOBT,

COBT,

CTOT,

DINT,

DLAB,

DOUT,

EDDI,

EOBT,

EPGT,

EPOT,

FATD,

FFID_D,

FSTD,

LMDT,

LMUR,

OFTM,

RENO,

RWAY,

STDI,

STND,

TSAT);

ELSE

FFID_A := FFID;

INSERT INTO TB_CMS_FLGTINFO_A (ID,ABNS,ACFT,AIRLINE,CHDT,FFID,RENO,EIBT,FATA,FETA,FSTA,LMDT,LMUR,PSTM,RWAY,SPOT,STND)

VALUES (FLGTINFO_A_SEQ.NEXTVAL,

ABNS,

ACFT,

AIRLINE,

CHDT,

FFID_A,

RENO,

EIBT,

FATA,

FETA,

FSTA,

LMDT,

LMUR,

PSTM,

RWAY,

SPOT,

STND);

END IF;

COMMIT;

EXCEPTION

WHEN OTHERS

THEN

DBMS_OUTPUT.PUT_LINE (SQLERRM);

END MIP_PARSE;

/

四：触发器.SQL

DROP TRIGGER MIP.COPY_MIPDATA_TRIGGER;

CREATE OR REPLACE TRIGGER MIP.COPY_MIPDATA_TRIGGER

AFTER INSERT

ON MIP.MBINMSGS FOR EACH ROW

DECLARE

-- LOCAL VARIABLES HERE

BEGIN

MIP_PARSE (:NEW.MBINMSGS_CLOB_MSG);

END COPY_MIPDATA_TRIGGER;

/

五：最后把所有的Function，存储过程，触发器都编译一下，就可以执行了，执行过程是：给表MBINMSGS中每插入一条数据，触发器就触发存储过程，存储过程再调用Function，最后把解析出来的xml字符串插入到对应的数据表中。 本条技术文章来源于互联网，如果无意侵犯您的权益请点击此处反馈版权投诉 本文系统来源：php中文网