| 从事Oracle(大型网站数据库平台)数据库方面的工作已有一年有余了,我最喜欢的部分是PL/SQL。这是Oracle(大型网站数据库平台)的数据可编程语言,使用它可以将过程化代码与SQL代码结合在一起。
最令人喜欢的是我们可以使用它在一个地方开发整个应用。所有的数据选择和更新,所有与LDAP交互的HTTP和HTML输出,以及其它所有事情都可以使用一种语言在一个地方完成。
但是其缺点是应用程序十分复杂。因为PL/SQL代码中的一个特定过程或函数可能要完成上面诸多任务中的任何一个,这样当出现问题时,调试查找错误变得十分困难。
这是数据库的问题,还是使用LDAP时HTTP的问题?问题在哪里?在每个PL/SQL项目中我喜欢使用一种简单的错误日志记录机制,这样当出现问题时,我有一个可以查看的简单数据表来跟踪所有错误。
我通过构建一个日志数据表开始介绍:
CREATE TABLE ERRORLOG ( IDNUMBERNOT NULL, TIMEDATENOT NULL, CODEVARCHAR2(9 BYTE)NOT NULL, MESSAGEVARCHAR2(2000 BYTE)NOT NULL, PACKAGE_NAMEVARCHAR2(100 BYTE), PROCEDURE_NAMEVARCHAR2(100 BYTE)NOT NULL, LOCATIONNUMBER, PARAMETERSVARCHAR2(4000 BYTE) );
与其它大多数数据库不同,Oracle(大型网站数据库平台)中没有内置的用于对ID自动增加的字段域。所以,我们需要创建一个序列,然后添加某些机制实现在一个新值插入时赋予一个序列值。下面是我们的序列:
CREATE SEQUENCE ERRORLOG_ID_SEQ MINVALUE 1 MAXVALUE 999999999999999999999999999 INCREMENT BY 1 START WITH 1 CACHE 20 NOORDER NOCYCLE ;
我们可以使用触发器插入时间戳,我们稍后会在提供日志接口的包中实现。该触发器完成的操作是利用我们上面创建的序列递增ID域。
CREATE OR REPLACE TRIGGER T_ERRORLOG_BI BEFORE INSERT ON ERRORLOG REFERENCING OLD AS OLD NEW AS NEW FOR 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;
|