一般来讲,序列在实际开发过程中是经常用到的一种对象,通过它来生成主键是非常方便的,但是有些时候我们需要将其重新置零,通常采用的方式就是删除后重新创建。
下面我们来看一下另外一种方式:
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>
这样可以通过随时调用此过程,来达到序列重置的目的。
此存储过程写的比较仓促,还可以进一步完善,在此就不再进一步讲述。
