SQL> create sequence seq_1 increment by 1 start with 1 maxvalue 999999999; 序列已创建。 SQL> create or replace procedure seq_reset(v_seqname varchar2) as 2 n number(10); 3 tsql varchar2(100); 4 begin 5 execute immediate 'select '||v_seqname||'.nextval from dual' into n; 6 n:=-(n-1); 7 tsql:='alter sequence '||v_seqname||' increment by '|| n; 8 execute immediate tsql; 9 execute immediate 'select '||v_seqname||'.nextval from dual' into n; 10 tsql:='alter sequence '||v_seqname||' increment by 1'; 11 execute immediate tsql; 12 end seq_reset; 13 / 过程已创建。 SQL> select seq_1.nextval from dual; NEXTVAL --------- 2 SQL> / NEXTVAL --------- 3 SQL> / NEXTVAL --------- 4 SQL> / NEXTVAL --------- 5 SQL> exec seq_reset('seq_1'); PL/SQL 过程已成功完成。 SQL> select seq_1.currval from dual; CURRVAL --------- 1 SQL>
这样可以通过随时调用此过程，来达到序列重置的目的。 此存储过程写的比较仓促，还可以进一步完善，在此就不再进一步讲述 Oracle重置序列(不删除重建方式) Oracle中一般将自增sequence重置为初始1时，都是删除再重建，这种方式有很多弊端，依赖它的函数和存储过程将失效，需要重新编译。 不过还有种巧妙的方式，不用删除，利用步长参数，先查出sequence的nextval，记住，把递增改为负的这个值（反过来走），然后再改回来。 假设需要修改的序列名：seq_name 1、select seq_name.nextval from dual; //假设得到结果5656 2、alter sequence seq_name increment by -5655; //注意是-(n-1) 3、select seq_name.nextval from dual;//再查一遍，走一下,重置为1了 4、alter sequence seq_name increment by 1;//还原 可以写个存储过程，以下是完整的存储过程,然后调用传参即可:
复制代码 代码如下:
create or replace procedure seq_reset(v_seqname varchar2) as n number(10); tsql varchar2(100); begin execute immediate 'select '||v_seqname||'.nextval from dual' into n; n:=-(n-1); tsql:='alter sequence '||v_seqname||' increment by '|| n; execute immediate tsql; execute immediate 'select '||v_seqname||'.nextval from dual' into n; tsql:='alter sequence '||v_seqname||' increment by 1'; execute immediate tsql; end seq_reset;
