/*创建表A*/
create table A_ybl (
y INTEGER not null,
b VARCHAR(30) not null,
l VARCHAR(20) not null
);
/*创建表A的备份表*/
create table A_ybl2 (
y INTEGER not null,
b VARCHAR(30) not null,
l VARCHAR(20) not null
);
create or replace trigger test
after insert or update or delete on A_ybl for each row
declare
error_exception exception,
errno integer,
errmsg char(20),
dummy integer,
found boolean;
begin
if inserting then
insert into A_ybl2 values(:NEW.y,:NEW.B,:NEW.l);
elsif updating then
update A_ybl2 set y=:NEW.y,
b=:NEW.b,
l=:NEW.l
where id:=:OLD.y;
elsif deleting then
delete from A_ybl2 where y=:old.id;
end if;
exception
when error_exception then
raise_application_error(errno,errmsg);
end;