Możesz to zrobić w dwóch krokach:
- przyrost_o wartość o jedną mniejszą niż bieżąca wartość sekwencji.
- zresetuj increment_by z powrotem do 1.
Logika jest taka, że nie należy zmniejszać sekwencji z powrotem do zera , ponieważ minwartość chcesz to 1 , więc nextval nie może być mniejszy niż minval .
Na przykład
SQL> CREATE SEQUENCE s START WITH 20 MINVALUE 0 INCREMENT BY 1;
Sequence created.
SQL> SELECT s.nextval FROM dual;
NEXTVAL
----------
20
SQL> ALTER SEQUENCE s INCREMENT BY -19 MINVALUE 1;
Sequence altered.
SQL> SELECT s.nextval FROM dual;
NEXTVAL
----------
1
SQL> ALTER SEQUENCE s INCREMENT BY 1 MINVALUE 1;
Sequence altered.
SQL> SELECT s.nextval FROM dual;
NEXTVAL
----------
2
SQL> SELECT min_value, increment_by FROM user_sequences WHERE sequence_name='S';
MIN_VALUE INCREMENT_BY
---------- ------------
1 1
Tak więc wartość_min i increment_by jest teraz zresetowany do 1 odpowiednio. następna wartość może być 1 tylko raz, zanim zresetujesz increment_by do 1 ponownie.
Więc nie widzę żadnego praktycznego zastosowania tego, co chcesz osiągnąć. Można to jednak zrobić, jak pokazano powyżej.
Aby zaimplementować powyższą logikę w swojej procedurze, wykonaj następujące czynności:
Konfiguracja
SQL> DROP SEQUENCE S;
Sequence dropped.
SQL> CREATE SEQUENCE s START WITH 20 MINVALUE 0 INCREMENT BY 1;
Sequence created.
SQL> SELECT s.nextval FROM dual;
NEXTVAL
----------
20
Zmodyfikuj swoją procedurę jako:
SQL> CREATE OR REPLACE PROCEDURE reset_seq(
2 p_seq_name IN VARCHAR2 )
3 IS
4 l_val NUMBER;
5 BEGIN
6 EXECUTE IMMEDIATE 'select ' || p_seq_name || '.nextval from dual' INTO l_val;
7 l_val := l_val - 1;
8 dbms_output.put_line('l_val = '||l_val);
9 EXECUTE IMMEDIATE 'alter sequence ' ||
10 p_seq_name || ' increment by -' || l_val || ' minvalue 1';
11 EXECUTE IMMEDIATE 'select ' || p_seq_name || '.nextval from dual' INTO l_val;
12 dbms_output.put_line('1st Nextval is '||l_val);
13 EXECUTE IMMEDIATE 'alter sequence ' || p_seq_name ||
14 ' increment by 1 MINVALUE 1';
15 EXECUTE IMMEDIATE 'select ' || p_seq_name || '.nextval from dual' INTO l_val;
16 dbms_output.put_line('2nd Nextval is '||l_val);
17 END;
18 /
Procedure created.
SQL> SET serveroutput ON
SQL> EXEC reset_seq('S');
l_val = 20
1st Nextval is 1
2nd Nextval is 2
PL/SQL procedure successfully completed.
SQL>
SQL> SELECT min_value, increment_by FROM user_sequences where sequence_name='S';
MIN_VALUE INCREMENT_BY
---------- ------------
1 1
Jak już powiedziałem, nie widzę żadnego praktycznego zastosowania tego . Twój następny jest praktycznie użyteczny tylko od 2 . Kiedy jest to 1 , musisz wykonać ZMIANA SEKWENCJI jeszcze raz, aby zresetować increment_by powrót do 1 .
