ORACLE数据库中为每个数据表建立序列字段插入值的触发器的SQL脚本

假设AUTOID是数据库中的序列，且每个表中的autoid字段用来存储序列值。下面的脚本会将数据库中含有字段AUTOID的表筛选出来并为其创建触发器。

declare tablename varchar2(36);
begin
  for tbl in (select table_name from user_tab_columns where column_name='AUTOID') loop
    begin
        tablename := tbl.table_name;
        execute immediate 'create or replace trigger trg_' || lower(tablename) || ' before insert on ' || 

                lower(tablename) || 'for each row ' || 'begin select autoid.nextval into :new.autoid from dual; end;';
    exception
      when others then
          null;
    end;
  end loop;
end;

将此脚本在PL/SQL DEVELOPER的command window中执行。。。。。。OK！屡试不爽！！