简化PLSQL调试的记录一致性错误日志

1、从事Oracle数据库方面的工作已有一年有余了，我最喜欢的部分是PL/SQL。这是Oracle的数据可编程语言，使用它可以将过程化代码与SQL代码结合在一起。最令人喜欢的是我们可以使用它在一个地方开发整个应用。所有的数据选择和更新，所有与LDAP交互的HTTP和HTML俞出，以及其它所有事情都可以使用一种语言在一个地方完成。但是其缺点是应用程序十分复杂。因为PL/SQL代码中的一个特定过程或函数可能要完成上面诸多任务中的任何一个，这样当出现问题时，调试查找错误变得十分困难。这是数据库的问题，还是使用LDAP寸HTTP的问题？问题在哪里 ？在每个PL/SQL项目中我喜欢使用一种简单的错误日志记录

2、机制，这样当出现问题时，我有一个可以查看的简单数据表来跟踪所有错误。我通过构建一个日志数据表开始介绍:CREATE TABLE ERRORLOGIDNUMBERNOT NULL,TIMEDATENOT NULL,CODEVARCHAR2(9 BYTE)NOT NULL,MESSAGEVARCHAR2(2000 BYTE)NOT NULL,P ACKAGE_NAMEVARCHAR2(100 BYTE),p rocedure_namevarchar2(100 byte)not null,LOCATIONNUMBER,P ARAMETERSVARCHAR2(4000 BYTE);与其它大多数数据库不

3、同，Oracle中没有内置的用于对ID自动增加的字段域。所以，我们需要创建一个序列，然后添加某些机制实现在一个新值插入时赋予一个序列值。下面是我们的序列:CREATE SEQUENCE ERRORLOG ID SEQMINVALUE 1MAXVALUE 999999999999999999999999999INCREMENT BY 1START WITH 1CACHE 20NOORDERNOCYCLE ;我们可以使用触发器插入时间戳，我们稍后会在提供日志接口的包中实现。该触发器完成的操作是利用我们上面创建的序列递增ID域。CREATE OR REP LACE TRIGGER T ERRORLO

4、G BlBEFORE INSERTON ERRORLOGREFERENCING OLD AS OLD NEW AS NEWFOR EACH ROW begin if :new.id is null then select errorlog_id_seq.nextval into :new.id from dual;end if;end t_errorlog_bi;在实际应用中对数据表提供一个主键是十分有益的。我知道我们可以在创建表格时设定主键，但是我喜欢以后单独完成这项工作。我不知道为什么，只是感觉这样做更清楚一些。ALTER TABLE ERRORLOG ADD (P RIMARY KEY

5、(ID);PL/SQL是基于古老的Ada程序设计语言的，因此在创建一个包时，需要提供两部分：规格说明（接口）部分和主体部分接口的真正实现。对于我们简单的错误日志记录包，规格说明部分只提供一个单一过程:CREATE OR REP LACE p ackage p kg_error is p rocedure log (p_error_code errorlog.code%t ype.p_error_message errorlog.message%t ype.p_p ackage errorlog .p ackage_name%t ype default null, p_p rocedure er

6、rorlog .p rocedure_name%t ype.p_location errorlog.location%t ype default null, p_p arameters errorlog .p arameters%t ype default null);end p kg_error;在主体部分，可以包含任意多个你想要的过程和函数。至少，它必须实现规格说明中的过程和函数。在本例中，包的主体部分只实现规格说明中的一个过程:CREATE OR REP LACE package body p kg_error is p rocedure log (p_error_code errorl

7、og.code%t ype.p error message errorlog.message%t ype.p_p ackage errorlog .p ackage_name%t ype default null, p_p rocedure errorlog .p rocedure_name%t ype.p_location errorlog.location%t ype default null, p_p arameters errorlog .p arameters%t ype default null) is p ragma autonomous_transaction;begin in

8、sert into errorlog (time, code, message, p ackage_name, p rocedure_name, location, p arameters) values (sysdate, p_error_code, p_error_message, p_p ackage, p_p rocedure, p_location, p_p arameters);commit;end log;end p kg_error;p ragma其中pragma autonomous_transaction部分是十分重要的，因为你保证log方法能够将日志数据提交到数据表中，否

9、则要提交过程中导致错误发生的任何相关信息。这就是段完成的功能。它告诉Oracle将该过程作为原子操作，不能影响早期调用堆栈中的任何信息。当然最后一步是将日志信息应用到代码中。例如，比如说你有一个简单的小函数，并且无论何时发生异常，你都希望能够记录它且还要避免再次发生错误。换句话说，记录错误并使应用能够继续运行。你可能需要做以下工作:RETURN VARCHAR2CREATE OR REP LACE FUNCTION hello worldISv_ p rocedure errorlog .p rocedure_name%T YPE default helloworld： v_ location

10、 errorlog.location%T YPE;BEGIN v_location := 1000;return (hello, world);EXCE PTION when others thenP kg_error.log(p_error_code = substr(sqlerrm,1,9).p_error_message = substr(sqlerrm,12), p_p ackage = FUNCTION, p_p rocedure = v_p rocedure, p_location = v_location);p_package参数替代我们此处使用的字符串常量。END;很明显，如果是在包内，你需要根据你创建的包的实际名称创建