用存儲過程重置序列
SQL> create sequence seq_1 increment by 1 start with 1 maxvalue 999999999;
序列已創(chuàng)建。
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;--讓序列一次遞增-N，實現(xiàn)歸0
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 /
過程已創(chuàng)建。
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>
這樣可以通過隨時調(diào)用此過程，來達到序列重置的目的。