в то время как мой первый ответ работает, он будет сильно зависеть от столбцов таблиц, что не очень удобно, если нужно проверять много таблиц. На основе комментария @Sayan Malakshinov и связанной статьи StevenFeuerstein & CompoundTrigger . последний audit-l oop может вызвать проблемы с производительностью, если в одном обновлении обрабатывается много строк .... массовое обновление может быть перемещено в более оптимизированный триггер соединения-обновления, записывающий все строки обновления с одной единственной вставкой в tblaudit () выберите auditColumns из tblone, где id в (записанные идентификаторы) "
-- prepare test-scenario
CREATE TABLE TBLONE
(
ID NUMBER(19),
POSTALCODE VARCHAR2(20 CHAR),
STREET VARCHAR2(255 CHAR),
HOUSENUMBER VARCHAR2(25 CHAR),
CITY VARCHAR2(255 CHAR)
)
;
ALTER TABLE TBLONE ADD (
PRIMARY KEY
(ID)
USING INDEX);
insert into tblone values (1,'123123','street1','1a','DevVille1');
insert into tblone values (2,'345','street2','2b','DevVille2');
insert into tblone values (3,'678','street3','3c','DevVille3');
CREATE TABLE TBLAUDIT
(
ID NUMBER(19),
log_action VARCHAR2(10 CHAR),
log_user varchar(100 char),
log_data clob
)
;
-- ... timestamp of modification might be missing ...
CREATE OR REPLACE TRIGGER trg_audit_tblone
FOR UPDATE OR INSERT OR DELETE ON tblone
COMPOUND TRIGGER
TYPE id_rt IS RECORD (
id_column NUMBER(19) -- assuming all primary-keys are of same type ....
,log_action varchar(10)
);
TYPE row_level_info_t IS TABLE OF id_rt INDEX BY PLS_INTEGER;
g_row_level_info row_level_info_t;
AFTER EACH ROW IS
BEGIN
g_row_level_info (g_row_level_info.COUNT + 1).id_column := :NEW.id; -- store primary key only
-- remember the type of trigger-action
IF INSERTING THEN
g_row_level_info (g_row_level_info.COUNT).log_action := 'Insert';
ELSIF UPDATING THEN
g_row_level_info (g_row_level_info.COUNT).log_action := 'Update';
ELSIF DELETING THEN
g_row_level_info (g_row_level_info.COUNT).log_action := 'Delete';
end if;
END AFTER EACH ROW;
AFTER STATEMENT IS
l_rowdata clob;
BEGIN
-- for all row-actions recorded
FOR indx IN 1 .. g_row_level_info.COUNT
LOOP
if g_row_level_info (indx).log_action= 'Delete' then
-- no row selectable, direct insert to audit
insert into TBLAUDIT values(g_row_level_info(indx).id_column,sys_context('USERENV','SESSION_USER') , g_row_level_info (indx).log_action,null);
else
select xmltype(cursor(select * from tblone where id=g_row_level_info (indx).id_column)).getclobval() into l_rowdata from dual;
insert into TBLAUDIT values(g_row_level_info(indx).id_column,sys_context('USERENV','SESSION_USER') , g_row_level_info (indx).log_action,l_rowdata);
end if;
END LOOP;
END AFTER STATEMENT;
END trg_audit_tblone;
update tblone
set street='newStreet'
where id=1;
select id,log_action,log_user,dbms_lob.substr(log_data,200) from tblaudit;
update tblone
set street='newStreet';
select id,log_action,log_user,dbms_lob.substr(log_data,200) from tblaudit;
delete from tblone where id=2;
select id,log_action,log_user,dbms_lob.substr(log_data,200) from tblaudit;
В случае, если действительно необходимо учитывать обновление с множеством строк:
create TYPE type_audit_entry as object (
id_column NUMBER(19) -- assuming all primary-keys are of same type ....
,log_action varchar(10)
);
create type typeTable_audit as table of type_audit_entry;
CREATE OR REPLACE TRIGGER trg_audit_update_tblone
FOR UPDATE ON tblone
COMPOUND TRIGGER
g_row_level_info typeTable_audit := typeTable_audit();
BEFORE STATEMENT IS
BEGIN
g_row_level_info:=typeTable_audit();
END BEFORE STATEMENT;
AFTER EACH ROW IS
BEGIN
g_row_level_info.extend;
g_row_level_info (g_row_level_info.COUNT):=type_audit_entry(:NEW.id,null);
END AFTER EACH ROW;
AFTER STATEMENT IS
l_rowdata clob;
BEGIN
insert into TBLAUDIT(ID,log_action,log_user,log_time,log_data)
select stored_audit.id_column,'Update',sys_context('USERENV','SESSION_USER'),sysdate,xmltype(cursor(select * from tblone where id=stored_audit.id_column)).getclobval()
from TABLE(g_row_level_info) stored_audit;
END AFTER STATEMENT;
END trg_audit_update_tblone;
delete from tblaudit;
update tblone
set street='newStreet';
select id,log_action,log_time,log_user,dbms_lob.substr(log_data,200) from tblaudit;