重設oracle序列從指定數字開始
複製代碼 代碼如下:declare
n number(10);
v_startnum number(10):=10000001;--從多少開始
v_step number(10):=1;--步進
tsql varchar2(200);
v_seqname varchar2(200):='MIP_JF_SEQUENCE';--序列名
begin
execute immediate 'select '||v_seqname||'.nextval from dual' into n;
n:=v_startnum-n-v_step;--從10000001開始
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 '||v_step;
execute immediate 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' 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;