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

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

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

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

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

seq_Reset
 1Create 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 ' )

转载于:https://www.cnblogs.com/jaxu/archive/2009/03/05/1402761.html