oracle中自增长列的生成方案

      最近遇到一个项目，将数据库sybase转换为oracle，其中一个问题就是原来数据库中使用了许多自增长列，现在一个目的就是只更换数据库而不修改现有代码。无奈之举，就吸能用序列+触发器的方式来代替原来的自增长列。因为项目中的表将近200个，有些表的记录，日增长量就有几万条，最近为了万无一失，决定为原有自增长列的表，分别建序列和触发器，这样自增长列也就没有跳号的情况。但工作量太大，最后决定用过程的方式来加以实现。

   1.序列过程。

CREATE OR REPLACE PROCEDURE p_createseq(tablename VARCHAR2)
 AS
   strsql VARCHAR2(500);
 BEGIN
   strsql:='create sequence '||tablename||'_SEQ MINVALUE 1 MAXVALUE 9999999999 START WITH 1 INCREMENT BY 1 CACHE 20 ORDER NOCYCLE';
   EXECUTE IMMEDIATE strsql;
 END;

 2.触发器过程。  

CREATE OR REPLACE PROCEDURE p_createtr(tablename VARCHAR2,prikeyname VARCHAR2)
 AS
   strsql VARCHAR2(1000);
 BEGIN
   strsql:='CREATE OR REPLACE TRIGGER '||tablename||'_TRG'||'
            BEFORE INSERT ON '||tablename||' FOR EACH ROW
            DECLARE
            next_id NUMBER;
            BEGIN
              SELECT '||tablename||'_SEQ.NEXTVAL INTO next_id FROM dual;
              :new.'||prikeyname||':=next_id;
            END;';
   EXECUTE IMMEDIATE strsql;
 END;

  接下来就可以在命令窗口下执行以下语句：

execute p_createseq('BS_CMP_CHECK');
execute p_createtr('BS_CMP_CHECK','CHECK_ID');
......

      这样的话就可以更快速的建立起多个序列和触发器。

      这时候同事提出这样一个想法，觉得这样还是很费时，要实现200张表的自增长列，工作量也很大。每次做系统初始化的时候，都要这样，真是件烦心事。最后为减少工作量，再写一过程（辛苦一个人，幸福一组人）：

CREATE OR REPLACE PROCEDURE p_createseqandtri
 AS
 BEGIN
    p_createseq('BS_CMP_CHECK');
    p_createtr('BS_CMP_CHECK','CHECK_ID');......
 EXCEPTION   
 WHEN OTHERS THEN   
    DBMS_OUTPUT.PUT_LINE('创建失败......');      
 END;

    这样一个过程就可以建完所有的序列和触发器，很爽吧！