自己编写存储过程对Oracle中的序列进行重置

SQL Server和Oracle数据库在设置表的主键的时候有一个很重要的区别，SQL Server可以通过自带的自增数据类型设置一个表的主键，而Oracle则必须借助于数据库中的序列实现自增的数据类型，这两种方式有以下几种区别：

SQL Server	Oracle
自增列隶属于它所在的表对象。	序列和字段分别为不同的数据库对象，它们之间没有直接的联系。
自增列由DB自动管理，无需手动指定值。	通过[序列名称].nextval命令将序列的当前值递增。
每个表只能允许设置一个自增列。	同一个序列可以被多个表使用，但同一时刻序列的当前值只能被应用到一个表中。

同时 ，它们之间有一个共同的特点，那就是值只能向下递增，不能向上递减。不过，由于Oracle中的序列是独立于表字段而存在的数据库对象，所以，我们可以单独对它进行设置，如将它的当前值递减，或将值设置为初始状态。值得说明的是，在我们重置序列的值之前，需要确定该序列是否正在被数据库中的其它对象使用，否则会导致正在使用该序列的数据库对象的值混乱。

下面是用于重置Oracle序列的存储过程的代码：

Create or Replace Procedure seq_Reset(v_seqname vatchar2) As n number(10);

2tsql varchar2(100);

3Begin

4 tsql := 'Select ' || v_sqlname || '.nextval From dual';

5 Execute Immediate tsql into n;

6

7 --如果序列本身是初始状态则不进行数值计算

8 if n <> 1 then

9 n := -(n-1);

10 end if;

11

12 tsql := 'Alter Sequence ' || v_seqname || ' Increment By ' || n;

13 Execute Immediate tsql;

14 tsql := 'Select ' || v_seqname || '.nextval From dual';

15 Execute Immediate tsql into n;

16 tsql := 'Alter Sequence ' || v_seqname || ' Increment By 1';

17 Execute Immediate tsql;

18End seq_Reset;

19

20
例如你有一个名称为seq_Instance的序列，你可以直接调用该存储过程对这个序列进行重置：

Call seq_Reset('seq_Instance')