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