不通过删除重建方式重置序列值得简单方式。

欢欢2008 2011-04-02

展开全文

一般来讲，序列在实际开发过程中是经常用到的一种对象，通过它来生成主键是非常方便的，但是有些时候我们需要将其重新置零，通常采用的方式就是删除后重新创建。

下面我们来看一下另外一种方式：

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;