求一个触发器代码

Question

有两个表a,bak,表a的记录在删除和编辑时,要把被删除前/被编辑前的记录写成一条insert语句存入bak表
如:
insert into bak (sql) values('insert into a(id,value) values(1,''test'')')
请问这样的触发器要如何写??

Answer 1

create or replace trigger tri_bak
before update or delete on a
for each row
declare
  sql_txt varchar2(1000);
begin
  sql_txt := 'insert into a (id,value) values ( '||to_char(:old.id)||',"'||:old.value||'")' ;
  insert into bak (sql) values(sql_txt); 
end;

Answer 2

那样只能每个表都写一个了
我原是想能不能跟据表结构遍历字段，再根据字段类型生成这样的SQL语句。