oracle数据库 序列值修改,oracle数据库修改序列的当前值

在oracle数据库刷库过程中我们有时候需要修改某一个表主键所引用序列的当前值以便能够兼容一些原始数据或者灾备等等吧。

自己写了一个修改数据库当前值的存储过程给大家分享一下。

CREATE OR REPLACE PROCEDURE modify_seq(SEQUENCENAME IN VARCHAR2,

TALENAME IN VARCHAR2,

PKEY IN VARCHAR2,

S_RESULT OUT VARCHAR2) AS

IN_SQL VARCHAR2(4000);

SEQ_SQL VARCHAR2(4000);

LastValue VARCHAR2(10);

Next_num VARCHAR2(200);

Max_num VARCHAR2(200);

TYPE C_1 is ref CURSOR;

CUR_RESULT1 C_1;

TYPE C_2 is ref CURSOR;

CUR_RESULT2 C_2;

BEGIN

IN_SQL:='select max('||PKEY||') from '||TALENAME;

OPEN CUR_RESULT1 FOR IN_SQL;

SEQ_SQL:='select '||sequenceName||'.nextval from dual';

OPEN CUR_RESULT2 FOR SEQ_SQL;

LOOP

FETCH CUR_RESULT1 INTO Max_num;

Next_num:=Max_num+1;

FETCH CUR_RESULT2 INTO LastValue;

EXIT WHEN LastValue >= Next_num - 1;

SEQ_SQL:='select '||sequenceName||'.nextval from dual';

execute immediate SEQ_SQL into LastValue;

END LOOP;

COMMIT;

S_RESULT := SYSDATE || ' OK!';

EXCEPTION

WHEN OTHERS THEN

S_RESULT := IN_SQL;

ROLLBACK;

END modify_seq;

下边的方法进行调用：

declare S_RESULT VARCHAR2(20);

begin

modify_seq('YOUR_SEQ','YOUR_T','P_KEY',S_RESULT);

end;

存储过程的逻辑是：获取到目标表的主键最大值，然后让序列循环到其最大值，最后跳出循环。