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

2024-07-21 02:05:35

字体：大中小

来源：转载

供稿：网友

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

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

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>

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

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

上一篇：新旧系统切换中资料内码处理

下一篇：无规律自定义分段的分类汇总+交叉表处理