oracle中自增长列的生成方案

伏3074

　　最近遇到一个项目，将数据库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;
　　这样一个过程就可以建完所有的序列和触发器，很爽吧！