oracle创建序列seq起始值为1_oracle 重置序列从指定数字开始的方法详解

重置oracle序列从指定数字开始

declarennumber(10);

v_startnumnumber(10):=10000001;--从多少开始

v_step number(10):=1;--步进

tsql varchar2(200);

v_seqnamevarchar2(200):='MIP_JF_SEQUENCE';--序列名

begin

execute immediate 'select'||v_seqname||'.nextval from dual' inton;

n:=v_startnum-n-v_step;--从10000001开始

tsql:='alter sequence'||v_seqname||'increment by'||n;executeimmediate tsql;execute immediate 'select'||v_seqname||'.nextval from dual' inton;

tsql:='alter sequence'||v_seqname||'increment by'||v_step;executeimmediate tsql;end;

不通过删除重建方式，重置序列值的简单方法

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

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' inton;6 n:=-(n-1);7 tsql:='alter sequence'||v_seqname||'increment by'||n;8 executeimmediate tsql;9 execute immediate 'select'||v_seqname||'.nextval from dual' inton;10 tsql:='alter sequence'||v_seqname||'increment by 1';11 executeimmediate tsql;12 endseq_reset;13 /过程已创建。

SQL> select seq_1.nextval fromdual;

NEXTVAL---------

2SQL> /NEXTVAL---------

3SQL> /NEXTVAL---------

4SQL> /NEXTVAL---------

5SQL> exec seq_reset('seq_1');

PL/SQL 过程已成功完成。

SQL> select seq_1.currval fromdual;

CURRVAL---------

1SQL>

这样可以通过随时调用此过程，来达到序列重置的目的。

此存储过程写的比较仓促，还可以进一步完善，在此就不再进一步讲述 。

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);

tsqlvarchar2(100);begin

execute immediate 'select'||v_seqname||'.nextval from dual' inton;

n:=-(n-1);

tsql:='alter sequence'||v_seqname||'increment by'||n;executeimmediate tsql;execute immediate 'select'||v_seqname||'.nextval from dual' inton;

tsql:='alter sequence'||v_seqname||'increment by 1';executeimmediate tsql;end seq_reset;