Wie setze ich eine Sequenz in Oracle zurück?

169

In PostgreSQL kann ich so etwas tun:

ALTER SEQUENCE serial RESTART WITH 0;

Gibt es ein Oracle-Äquivalent?

Mauli
quelle
1
Schauen Sie sich hier "Sequence Resets" an .
Gerikson
3
WARNUNG: Der gesamte folgende Code gilt nur für Sequenzen, die ursprünglich mit "Inkrement um 1" erstellt wurden. Wenn die ursprüngliche Sequenz mit einem Inkrement erstellt wurde! = 1; Nach Anwendung eines der oben genannten Verfahren hat sich das Inkrement auf 1 geändert! Der richtige zu verwendende Inkrementwert kann in der Ansicht user_sequences abgerufen werden.
1
Lassen Sie

Antworten:

152

Hier ist ein gutes Verfahren zum Zurücksetzen einer Sequenz von Oracle-Guru Tom Kyte auf 0 . Tolle Diskussion über die Vor- und Nachteile auch in den unten stehenden Links.

tkyte@TKYTE901.US.ORACLE.COM> 
create or replace
procedure reset_seq( p_seq_name in varchar2 )
is
    l_val number;
begin
    execute immediate
    'select ' || p_seq_name || '.nextval from dual' INTO l_val;

    execute immediate
    'alter sequence ' || p_seq_name || ' increment by -' || l_val || 
                                                          ' minvalue 0';

    execute immediate
    'select ' || p_seq_name || '.nextval from dual' INTO l_val;

    execute immediate
    'alter sequence ' || p_seq_name || ' increment by 1 minvalue 0';
end;
/

Von dieser Seite: Dynamisches SQL zum Zurücksetzen des Sequenzwerts
Eine weitere gute Diskussion finden Sie auch hier: Wie werden Sequenzen zurückgesetzt?

Doug Porter
quelle
@Dougman: Hallo, ich bin Anfänger ... in der obigen Antwort, warum erwähnen Sie in der letzten Klausel, führen Sie stattdessen sofort 'select' || aus p_seq_name || '.nextval INTO l_val from dual';
Thiyagu ATR
@Thiyagu: In PL / SQL ist dies die Syntax, mit execute immediateder die Ausgabe einer Auswahl erfasst wird, die höchstens 1 Zeile zurückgibt . Hier ist die Dokumentation zur sofortigen Ausführung: docs.oracle.com/cd/B28359_01/appdev.111/b28370/…
Doug Porter
@matra Ich sehe kein Szenario, in dem man eine Sequenz zurücksetzen und sich in einer gleichzeitigen Umgebung mit anderen Benutzern derselben Sequenz befinden müsste.
Ekevoo
Warum müssen Sie die Sequenz auswählen, warum nicht einfach die letzte Zeile machen'alter sequence ' || p_seq_name || ' increment by 1 minvalue 0';
Goku
99

Ein echter Neustart ist AFAIK nicht möglich . (Bitte korrigiere mich wenn ich falsch liege!).

Wenn Sie es jedoch auf 0 setzen möchten, können Sie es einfach löschen und neu erstellen.

Wenn Sie einen bestimmten Wert festlegen möchten, können Sie INCREMENT auf einen negativen Wert setzen und den nächsten Wert abrufen.

Das heißt, wenn Ihre Sequenz bei 500 liegt, können Sie sie über auf 100 setzen

ALTER SEQUENCE serial INCREMENT BY -400;
SELECT serial.NEXTVAL FROM dual;
ALTER SEQUENCE serial INCREMENT BY 1;
Mo.
quelle
4
Nur eine Anmerkung für Leute in PLSQL. Stellen Sie sicher, dass Sie "Limit 1" hinzufügen. oder "rownum = 1" für die select-Anweisung, andernfalls können Sie nextVal ein paar Mal ausführen und jedoch -400 um -400 erhöhen.
user830914
1
Fehlerfolge .NEXTVAL unterschreitet MINVALUE und kann nicht instanziiert werden, wenn INCREMENT BY - << big_number >>
zloctb
47

Das ist mein Ansatz:

  1. Lass die Sequenz fallen
  2. erstelle es neu

Beispiel:

--Drop sequence

DROP SEQUENCE MY_SEQ;

-- Create sequence 

create sequence MY_SEQ
minvalue 1
maxvalue 999999999999999999999
start with 1
increment by 1
cache 20;
Gina
quelle
29
Beachten Sie jedoch, dass durch das Löschen alle Objekte ungültig werden, die von dieser Sequenz abhängen, und dass sie neu kompiliert werden müssen.
Doug Porter
22
Sie müssen auch alle gewährten Zuschüsse erneut gewähren, um sie aus der Sequenz auszuwählen.
GreenGiant
37
alter sequence serial restart start with 1;

Diese Funktion wurde offiziell in 18c hinzugefügt, ist jedoch in 12.1 inoffiziell verfügbar.

Es ist wohl sicher, diese undokumentierte Funktion in 12.1 zu verwenden. Obwohl die Syntax nicht in der offiziellen Dokumentation enthalten ist , wird sie vom Oracle-Paket DBMS_METADATA_DIFF generiert . Ich habe es mehrmals auf Produktionssystemen verwendet. Ich habe jedoch eine Oracle Service-Anfrage erstellt und sie haben überprüft, dass es sich nicht um einen Dokumentationsfehler handelt. Die Funktion wird wirklich nicht unterstützt.

In 18c wird die Funktion nicht in der SQL-Sprachsyntax angezeigt, sondern ist im Datenbankadministratorhandbuch enthalten .

Jon Heller
quelle
Hey @Jon, mir ist die undokumentierte Funktion bekannt, aber ich wusste nicht, dass sie im generierten Skript von DBMS_METADATA_DIFF angezeigt wird. Können Sie mir mitteilen, wie Sie das Skript erstellt haben, welche Prozedur usw.? Ich würde versuchen, es auch zu testen.
Lalit Kumar B
@LalitKumarB Ich bin bei der Beantwortung dieser Frage auf diese Funktion gestoßen .
Jon Heller
1
Aah, hab es jetzt verstanden. Danke :-)
Lalit Kumar B
Ich denke, dies wurde implementiert, um "alter table your_table modify (ID wird standardmäßig auf null generiert, wenn die Identität mit dem Grenzwert beginnt)" zu unterstützen. Gut zu wissen, dass es auch mit Standardsequenzen funktioniert!
Oliver
1
Für den Fall, dass der Minimalwert der Sequenz größer ist 0, schreiben Sie... RESTART START WITH 0 MINVALUE 0
conceptdeluxe
33

Mein Ansatz ist eine winzige Erweiterung von Dougmans Beispiel .

Erweiterungen sind ...

Übergeben Sie den Startwert als Parameter. Warum? Ich rufe das Ding gerne auf, indem ich die Sequenz auf die in einer Tabelle verwendete maximale ID zurücksetze . Am Ende rufe ich diesen Prozess von einem anderen Skript aus auf, das mehrere Aufrufe für eine ganze Reihe von Sequenzen ausführt, und setze nextval wieder auf eine Ebene zurück, die hoch genug ist, um keine Primärschlüsselverletzungen zu verursachen, wenn ich den Wert der Sequenz für eine eindeutige Kennung verwende.

Es wird auch der vorherige Mindestwert gewürdigt . Es kann tatsächlich den nächsten Wert immer höher drücken, wenn der gewünschte p_- Wert oder der vorhandene Min- Wert höher als der aktuelle oder berechnete nächste Wert sind.

Das Beste ist, dass es aufgerufen werden kann, um auf einen bestimmten Wert zurückgesetzt zu werden. Warten Sie einfach, bis Sie am Ende die Prozedur "Alle meine Sequenzen reparieren" des Wrappers sehen.

create or replace
procedure Reset_Sequence( p_seq_name in varchar2, p_val in number default 0)
is
  l_current number := 0;
  l_difference number := 0;
  l_minvalue user_sequences.min_value%type := 0;

begin

  select min_value
  into l_minvalue
  from user_sequences
  where sequence_name = p_seq_name;

  execute immediate
  'select ' || p_seq_name || '.nextval from dual' INTO l_current;

  if p_Val < l_minvalue then
    l_difference := l_minvalue - l_current;
  else
    l_difference := p_Val - l_current;
  end if;

  if l_difference = 0 then
    return;
  end if;

  execute immediate
    'alter sequence ' || p_seq_name || ' increment by ' || l_difference || 
       ' minvalue ' || l_minvalue;

  execute immediate
    'select ' || p_seq_name || '.nextval from dual' INTO l_difference;

  execute immediate
    'alter sequence ' || p_seq_name || ' increment by 1 minvalue ' || l_minvalue;
end Reset_Sequence;

Diese Prozedur ist für sich genommen nützlich, aber jetzt fügen wir eine weitere hinzu, die sie aufruft und alles programmgesteuert mit einer Sequenznamenskonvention spezifiziert und nach dem Maximalwert sucht, der in einer vorhandenen Tabelle / einem vorhandenen Feld verwendet wird ...

create or replace
procedure Reset_Sequence_to_Data(
  p_TableName varchar2,
  p_FieldName varchar2
)
is
  l_MaxUsed NUMBER;
BEGIN

  execute immediate
    'select coalesce(max(' || p_FieldName || '),0) from '|| p_TableName into l_MaxUsed;

  Reset_Sequence( p_TableName || '_' || p_Fieldname || '_SEQ', l_MaxUsed );

END Reset_Sequence_to_Data;

Jetzt kochen wir mit Gas!

Die obige Prozedur überprüft den Maximalwert eines Felds in einer Tabelle, erstellt einen Sequenznamen aus dem Tabellen- / Feldpaar und ruft "Reset_Sequence" mit diesem erfassten Maximalwert auf.

Das letzte Stück in diesem Puzzle und das i-Tüpfelchen kommt als nächstes ...

create or replace
procedure Reset_All_Sequences
is
BEGIN

  Reset_Sequence_to_Data( 'ACTIVITYLOG', 'LOGID' );
  Reset_Sequence_to_Data( 'JOBSTATE', 'JOBID' );
  Reset_Sequence_to_Data( 'BATCH', 'BATCHID' );

END Reset_All_Sequences;

In meiner aktuellen Datenbank werden ungefähr hundert andere Sequenzen über diesen Mechanismus zurückgesetzt, sodass in dieser obigen Prozedur 97 weitere Aufrufe von Reset_Sequence_to_Data erfolgen .

Liebe es? Hasse es? Gleichgültig?

Allbite
quelle
2
Ich liebe es. Ich würde eine Variable hinzufügen, um das Inkrement nach Wert aus der Tabelle user_sequences abzurufen und zu speichern. (Es könnte nicht 1 sein). Hinweis: Möglicherweise muss stattdessen die Tabelle all_sequences verwendet werden. In diesem Fall möchten Sie möglicherweise auch den sequence_owner übergeben.
Harv
1
Ich kann dich nicht genug bewerten. Dies ist ein ziemlich häufiges Problem, wenn Sie sich mit Datenmigration befassen, und dies ist der beste Ansatz von AFAIK, wenn Sie mit Sequenzen nicht weiterkommen.
Dominique Eav
1
Upvoted, weil dies ein ausgezeichneter Ansatz ist. Der einzige Nachteil ist, dass dies zu einem unvorhersehbaren Verhalten in einem RAC-System führen kann, bei dem l_currentes sich je nach dem Knoten, auf dem das Skript ausgeführt wird , um einen von verschiedenen Werten handeln kann. Das erneute Ausführen des Skripts kann zu unterschiedlichen Ergebnissen führen. Ich habe festgestellt, dass es sich, wenn ich es mehrmals ausgeführt habe, schließlich auf einen bestimmten Wert festgelegt hat.
Jeffrey Kemp
10

Das folgende Skript setzt die Sequenz auf einen gewünschten Wert:

Bei einer frisch erstellten Sequenz mit dem Namen PCS_PROJ_KEY_SEQ und der Tabelle PCS_PROJ:

BEGIN
   DECLARE
      PROJ_KEY_MAX       NUMBER := 0;
      PROJ_KEY_CURRVAL   NUMBER := 0;
   BEGIN

    SELECT MAX (PROJ_KEY) INTO PROJ_KEY_MAX FROM PCS_PROJ;
    EXECUTE IMMEDIATE 'ALTER SEQUENCE PCS_PROJ_KEY_SEQ INCREMENT BY ' || PROJ_KEY_MAX;
    SELECT PCS_PROJ_KEY_SEQ.NEXTVAL INTO PROJ_KEY_CURRVAL FROM DUAL;
    EXECUTE IMMEDIATE 'ALTER SEQUENCE PCS_PROJ_KEY_SEQ INCREMENT BY 1';

END;
END;
/
Navin
quelle
1
Sie haben das Minus in Ihrer ersten DDL-Anweisung vergessen (außerdem gibt es ein zusätzliches ENDSchlüsselwort).
Priidu Neemre
5

Diese gespeicherte Prozedur startet meine Sequenz neu:

Create or Replace Procedure Reset_Sequence  
  is
  SeqNbr Number;
begin
   /*  Reset Sequence 'seqXRef_RowID' to 0    */
   Execute Immediate 'Select seqXRef.nextval from dual ' Into SeqNbr;
   Execute Immediate 'Alter sequence  seqXRef increment by - ' || TO_CHAR(SeqNbr) ;
   Execute Immediate 'Select seqXRef.nextval from dual ' Into SeqNbr;
   Execute Immediate 'Alter sequence  seqXRef increment by 1';
END;

/.

Peter Mortensen
quelle
+1 - Sie können es auch so parametrisieren, dass es den Sequenznamen übergibt.
DCookie
4

Es gibt eine andere Möglichkeit, eine Sequenz in Oracle zurückzusetzen: Legen Sie die Eigenschaften maxvalueund fest cycle. Wenn die nextvalder Sequenz die trifft maxvalue, wenn die cycleEigenschaft gesetzt ist, beginnt sie erneut von der minvalueder Sequenz.

Der Vorteil dieser Methode gegenüber dem Setzen eines Negativs increment bybesteht darin, dass die Sequenz weiterhin verwendet werden kann, während der Rücksetzvorgang ausgeführt wird, wodurch die Wahrscheinlichkeit verringert wird, dass Sie einen Ausfall ausführen müssen, um das Zurücksetzen durchzuführen.

Der Wert für maxvaluemuss größer als der aktuelle Wert sein nextval, daher enthält die folgende Prozedur einen optionalen Parameter, der einen Puffer zulässt, falls zwischen der Auswahl nextvalder Prozedur in der Prozedur und dem Festlegen der cycleEigenschaft erneut auf die Sequenz zugegriffen wird .

create sequence s start with 1 increment by 1;

select s.nextval from dual
connect by level <= 20;

   NEXTVAL
----------
         1 
...
        20

create or replace procedure reset_sequence ( i_buffer in pls_integer default 0)
as
  maxval pls_integer;
begin

  maxval := s.nextval + greatest(i_buffer, 0); --ensure we don't go backwards!
  execute immediate 'alter sequence s cycle minvalue 0 maxvalue ' || maxval;
  maxval := s.nextval;
  execute immediate 'alter sequence s nocycle maxvalue 99999999999999';

end;
/
show errors

exec reset_sequence;

select s.nextval from dual;

   NEXTVAL
----------
         1 

Die derzeitige Prozedur bietet weiterhin die Möglichkeit, dass eine andere Sitzung den Wert 0 abruft, was für Sie möglicherweise ein Problem darstellt oder nicht. Wenn ja, könnten Sie immer:

  • In minvalue 1der ersten Änderung einstellen
  • Schließen Sie den zweiten nextvalAbruf aus
  • Verschieben Sie die Anweisung, um die nocycleEigenschaft in eine andere Prozedur zu setzen, die zu einem späteren Zeitpunkt ausgeführt werden soll (vorausgesetzt, Sie möchten dies tun).
Chris Saxon
quelle
3

Jezus, all diese Programmierung nur für einen Indexneustart ... Vielleicht bin ich ein Idiot, aber für Pre-Orakel 12 (das eine Neustartfunktion hat), was ist mit einem Simpel falsch:

drop sequence blah;
create sequence blah 

?

Lawrence
quelle
2
Das Hauptproblem beim Löschen einer Sequenz besteht darin, dass sie die dafür gewährten Berechtigungen verliert.
Jon Heller
1
Ok, selbstverständlich, Jon. Meistens kostet auch das Wiederherstellen dieser Dateien viel weniger Zeit als die gesamte Programmierung. Gute Datenbankadministratoren haben normalerweise Skripte, so dass dies kein Problem sein sollte :-)
Lawrence
2

1) Angenommen, Sie erstellen eine SEQUENZ wie unten gezeigt:

CREATE SEQUENCE TESTSEQ
INCREMENT BY 1
MINVALUE 1
MAXVALUE 500
NOCACHE
NOCYCLE
NOORDER

2) Jetzt rufen Sie Werte aus SEQUENCE ab. Nehmen wir an, ich habe vier Mal abgerufen, wie unten gezeigt.

SELECT TESTSEQ.NEXTVAL FROM dual
SELECT TESTSEQ.NEXTVAL FROM dual
SELECT TESTSEQ.NEXTVAL FROM dual
SELECT TESTSEQ.NEXTVAL FROM dual

3) Nach dem Ausführen der obigen vier Befehle beträgt der Wert der SEQUENCE 4. Nehmen wir nun an, ich habe den Wert der SEQUENCE wieder auf 1 zurückgesetzt. Befolgen Sie die folgenden Schritte. Befolgen Sie alle Schritte in derselben Reihenfolge wie unten gezeigt:

  1. ALTER SEQUENCE TESTSEQ INCREMENT BY -3;
  2. SELECT TESTSEQ.NEXTVAL FROM dual
  3. ALTER SEQUENCE TESTSEQ INCREMENT BY 1;
  4. SELECT TESTSEQ.NEXTVAL FROM dual
Vipin Vij
quelle
2

Das Ändern des INCREMENT-Werts der Sequenz, das Inkrementieren und das anschließende Ändern des Werts ist ziemlich schmerzlos. Außerdem haben Sie den zusätzlichen Vorteil, dass Sie nicht alle Zuschüsse wiederherstellen müssen, wie Sie es getan hätten, wenn Sie die Sequenz gelöscht / neu erstellt hätten.

Peter Mortensen
quelle
2

Ich erstelle einen Block, um alle meine Sequenzen zurückzusetzen:

DECLARE
    I_val number;
BEGIN
    FOR US IN
        (SELECT US.SEQUENCE_NAME FROM USER_SEQUENCES US)
    LOOP
        execute immediate 'select ' || US.SEQUENCE_NAME || '.nextval from dual' INTO l_val;
        execute immediate 'alter sequence ' || US.SEQUENCE_NAME || ' increment by -' || l_val || ' minvalue 0';
        execute immediate 'select ' || US.SEQUENCE_NAME || '.nextval from dual' INTO l_val;
        execute immediate 'alter sequence ' || US.SEQUENCE_NAME || ' increment by 1 minvalue 0';
    END LOOP;
END;
Wendel
quelle
2

Hier ist ein robusteres Verfahren zum Ändern des nächsten von einer Sequenz zurückgegebenen Werts sowie vieles mehr.

  • Zunächst einmal schützt es vor SQL-Injection-Angriffen, da keine der übergebenen Zeichenfolgen zum direkten Erstellen einer der dynamischen SQL-Anweisungen verwendet wird.
  • Zweitens wird verhindert, dass der nächste Sequenzwert außerhalb der Grenzen der minimalen oder maximalen Sequenzwerte festgelegt wird. Das next_valuewird sein! = min_valueUnd zwischen min_valueund max_value.
  • Drittens werden increment_bybei der Bereinigung die aktuelle (oder vorgeschlagene) Einstellung sowie alle anderen Sequenzeinstellungen berücksichtigt.
  • Viertens sind alle Parameter außer dem ersten optional und übernehmen, sofern nicht anders angegeben, die Standardeinstellung der aktuellen Sequenz. Wenn keine optionalen Parameter angegeben sind, wird keine Aktion ausgeführt.
  • Wenn Sie schließlich versuchen, eine Sequenz zu ändern, die nicht vorhanden ist (oder nicht dem aktuellen Benutzer gehört), wird ein ORA-01403: no data foundFehler ausgegeben.

Hier ist der Code:

CREATE OR REPLACE PROCEDURE alter_sequence(
    seq_name      user_sequences.sequence_name%TYPE
  , next_value    user_sequences.last_number%TYPE := null
  , increment_by  user_sequences.increment_by%TYPE := null
  , min_value     user_sequences.min_value%TYPE := null
  , max_value     user_sequences.max_value%TYPE := null
  , cycle_flag    user_sequences.cycle_flag%TYPE := null
  , cache_size    user_sequences.cache_size%TYPE := null
  , order_flag    user_sequences.order_flag%TYPE := null)
  AUTHID CURRENT_USER
AS
  l_seq user_sequences%rowtype;
  l_old_cache user_sequences.cache_size%TYPE;
  l_next user_sequences.min_value%TYPE;
BEGIN
  -- Get current sequence settings as defaults
  SELECT * INTO l_seq FROM user_sequences WHERE sequence_name = seq_name;

  -- Update target settings
  l_old_cache := l_seq.cache_size;
  l_seq.increment_by := nvl(increment_by, l_seq.increment_by);
  l_seq.min_value    := nvl(min_value, l_seq.min_value);
  l_seq.max_value    := nvl(max_value, l_seq.max_value);
  l_seq.cycle_flag   := nvl(cycle_flag, l_seq.cycle_flag);
  l_seq.cache_size   := nvl(cache_size, l_seq.cache_size);
  l_seq.order_flag   := nvl(order_flag, l_seq.order_flag);

  IF next_value is NOT NULL THEN
    -- Determine next value without exceeding limits
    l_next := LEAST(GREATEST(next_value, l_seq.min_value+1),l_seq.max_value);

    -- Grab the actual latest seq number
    EXECUTE IMMEDIATE
        'ALTER SEQUENCE '||l_seq.sequence_name
            || ' INCREMENT BY 1'
            || ' MINVALUE '||least(l_seq.min_value,l_seq.last_number-l_old_cache)
            || ' MAXVALUE '||greatest(l_seq.max_value,l_seq.last_number)
            || ' NOCACHE'
            || ' ORDER';
    EXECUTE IMMEDIATE 
      'SELECT '||l_seq.sequence_name||'.NEXTVAL FROM DUAL'
    INTO l_seq.last_number;

    l_next := l_next-l_seq.last_number-1;

    -- Reset the sequence number
    IF l_next <> 0 THEN
      EXECUTE IMMEDIATE 
        'ALTER SEQUENCE '||l_seq.sequence_name
            || ' INCREMENT BY '||l_next
            || ' MINVALUE '||least(l_seq.min_value,l_seq.last_number)
            || ' MAXVALUE '||greatest(l_seq.max_value,l_seq.last_number)
            || ' NOCACHE'
            || ' ORDER';
      EXECUTE IMMEDIATE 
        'SELECT '||l_seq.sequence_name||'.NEXTVAL FROM DUAL'
      INTO l_next;
    END IF;
  END IF;

  -- Prepare Sequence for next use.
  IF COALESCE( cycle_flag
             , next_value
             , increment_by
             , min_value
             , max_value
             , cache_size
             , order_flag) IS NOT NULL
  THEN
    EXECUTE IMMEDIATE 
      'ALTER SEQUENCE '||l_seq.sequence_name
          || ' INCREMENT BY '||l_seq.increment_by
          || ' MINVALUE '||l_seq.min_value
          || ' MAXVALUE '||l_seq.max_value
          || CASE l_seq.cycle_flag
             WHEN 'Y' THEN ' CYCLE' ELSE ' NOCYCLE' END
          || CASE l_seq.cache_size
             WHEN 0 THEN ' NOCACHE'
             ELSE ' CACHE '||l_seq.cache_size END
          || CASE l_seq.order_flag
             WHEN 'Y' THEN ' ORDER' ELSE ' NOORDER' END;
  END IF;
END;
Wächter
quelle
2

Wenn in meinem Projekt jemand die Datensätze manuell eingegeben hat, ohne die Sequenz zu verwenden, muss ich den Sequenzwert manuell zurücksetzen, für den ich das folgende SQL-Code-Snippet geschrieben habe:

declare
max_db_value number(10,0);
cur_seq_value number(10,0);
counter number(10,0);
difference number(10,0);
dummy_number number(10);

begin

-- enter table name here
select max(id) into max_db_value from persons;
-- enter sequence name here
select last_number into cur_seq_value from user_sequences where  sequence_name = 'SEQ_PERSONS';

difference  := max_db_value - cur_seq_value;

 for counter in 1..difference
 loop
    -- change sequence name here as well
    select SEQ_PERSONS.nextval into dummy_number from dual;
 end loop;
end;

Bitte beachten Sie, dass der obige Code funktioniert, wenn die Sequenz verzögert ist.

Rakesh
quelle
1

Sie können die unten gezeigte Option CYCLE verwenden:

CREATE SEQUENCE test_seq
MINVALUE 0
MAXVALUE 100
START WITH 0
INCREMENT BY 1
CYCLE;

In diesem Fall wird die Sequenz, wenn sie MAXVALUE (100) erreicht, zum MINVALUE (0) zurückgeführt.

Im Fall einer dekrementierten Sequenz würde die Sequenz zum MAXVALUE zurückgeführt.

justincohler
quelle
1
Für die Downvoter (die diesen Kommentar nie sehen werden): Das CYCLE-Attribut ist genau das, was ich verwendet habe, um einen Sequenz-Reset durchzuführen. Die Tatsache, dass das Zurücksetzen automatisch erfolgt, bedeutet nicht, dass das Ziel nicht erreicht wird. OP hat nicht angegeben, dass das Zurücksetzen für eine bereits vorhandene Sequenz erfolgen muss!
Jeromy French
1

So stellen Sie sicher, dass alle Auto-Inkrement-Sequenzen mit den tatsächlichen Daten übereinstimmen:

  1. Erstellen Sie eine Prozedur, um den nächsten Wert zu erzwingen, wie bereits in diesem Thread beschrieben:

    CREATE OR REPLACE PROCEDURE Reset_Sequence(
        P_Seq_Name IN VARCHAR2,
        P_Val      IN NUMBER DEFAULT 0)
    IS
      L_Current    NUMBER                      := 0;
      L_Difference NUMBER                      := 0;
      L_Minvalue User_Sequences.Min_Value%Type := 0;
    BEGIN
      SELECT Min_Value
      INTO L_Minvalue
      FROM User_Sequences
      WHERE Sequence_Name = P_Seq_Name;
      EXECUTE Immediate 'select ' || P_Seq_Name || '.nextval from dual' INTO L_Current;
      IF P_Val        < L_Minvalue THEN
        L_Difference := L_Minvalue - L_Current;
      ELSE
        L_Difference := P_Val - L_Current;
      END IF;
      IF L_Difference = 0 THEN
        RETURN;
      END IF;
      EXECUTE Immediate 'alter sequence ' || P_Seq_Name || ' increment by ' || L_Difference || ' minvalue ' || L_Minvalue;
      EXECUTE Immediate 'select ' || P_Seq_Name || '.nextval from dual' INTO L_Difference;
      EXECUTE Immediate 'alter sequence ' || P_Seq_Name || ' increment by 1 minvalue ' || L_Minvalue;
    END Reset_Sequence;
  2. Erstellen Sie eine andere Prozedur, um alle Sequenzen mit dem tatsächlichen Inhalt abzustimmen:

    CREATE OR REPLACE PROCEDURE RESET_USER_SEQUENCES_TO_DATA
    IS
      STMT CLOB;
    BEGIN
      SELECT 'select ''BEGIN'' || chr(10) || x || chr(10) || ''END;'' FROM (select listagg(x, chr(10)) within group (order by null) x FROM ('
        || X
        || '))'
      INTO STMT
      FROM
        (SELECT LISTAGG(X, ' union ') WITHIN GROUP (
        ORDER BY NULL) X
        FROM
          (SELECT CHR(10)
            || 'select ''Reset_Sequence('''''
            || SEQ_NAME
            || ''''','' || coalesce(max('
            || COL_NAME
            || '), 0) || '');'' x from '
            || TABLE_NAME X
          FROM
            (SELECT TABLE_NAME,
              REGEXP_SUBSTR(WTEXT, 'NEW\.(\S*) IS NULL',1,1,'i',1) COL_NAME,
              REGEXP_SUBSTR(BTEXT, '(\.|\s)([a-z_]*)\.nextval',1,1,'i',2) SEQ_NAME
            FROM USER_TRIGGERS
            LEFT JOIN
              (SELECT NAME BNAME,
                TEXT BTEXT
              FROM USER_SOURCE
              WHERE TYPE = 'TRIGGER'
              AND UPPER(TEXT) LIKE '%NEXTVAL%'
              )
            ON BNAME = TRIGGER_NAME
            LEFT JOIN
              (SELECT NAME WNAME,
                TEXT WTEXT
              FROM USER_SOURCE
              WHERE TYPE = 'TRIGGER'
              AND UPPER(TEXT) LIKE '%IS NULL%'
              )
            ON WNAME             = TRIGGER_NAME
            WHERE TRIGGER_TYPE   = 'BEFORE EACH ROW'
            AND TRIGGERING_EVENT = 'INSERT'
            )
          )
        ) ;
      EXECUTE IMMEDIATE STMT INTO STMT;
      --dbms_output.put_line(stmt);
      EXECUTE IMMEDIATE STMT;
    END RESET_USER_SEQUENCES_TO_DATA;

ANMERKUNGEN:

  1. Die Prozedur extrahiert Namen aus dem Triggercode und hängt nicht von Namenskonventionen ab
  2. Um den generierten Code vor der Ausführung zu überprüfen, wechseln Sie die Kommentare in den letzten beiden Zeilen
user46748
quelle
1

Ich mache eine Alternative, dass der Benutzer die Werte nicht kennen muss, das System Variablen abruft und zum Aktualisieren verwendet.

--Atualizando sequence da tabela SIGA_TRANSACAO, pois está desatualizada
DECLARE
 actual_sequence_number INTEGER;
 max_number_from_table INTEGER;
 difference INTEGER;
BEGIN
 SELECT [nome_da_sequence].nextval INTO actual_sequence_number FROM DUAL;
 SELECT MAX([nome_da_coluna]) INTO max_number_from_table FROM [nome_da_tabela];
 SELECT (max_number_from_table-actual_sequence_number) INTO difference FROM DUAL;
IF difference > 0 then
 EXECUTE IMMEDIATE CONCAT('alter sequence [nome_da_sequence] increment by ', difference);
 --aqui ele puxa o próximo valor usando o incremento necessário
 SELECT [nome_da_sequence].nextval INTO actual_sequence_number from dual;
--aqui volta o incremento para 1, para que futuras inserções funcionem normalmente
 EXECUTE IMMEDIATE 'ALTER SEQUENCE [nome_da_sequence] INCREMENT by 1';
 DBMS_OUTPUT.put_line ('A sequence [nome_da_sequence] foi atualizada.');
ELSE
 DBMS_OUTPUT.put_line ('A sequence [nome_da_sequence] NÃO foi atualizada, já estava OK!');
END IF;
END;
Bruno Freitas
quelle
-1

Gespeicherte Prozedur, die für mich funktioniert hat

create or replace
procedure reset_sequence( p_seq_name in varchar2, tablename in varchar2 )
is
    l_val number;
    maxvalueid number;
begin
    execute immediate 'select ' || p_seq_name || '.nextval from dual' INTO l_val;
    execute immediate 'select max(id) from ' || tablename INTO maxvalueid;
    execute immediate 'alter sequence ' || p_seq_name || ' increment by -' || l_val || ' minvalue 0';
    execute immediate 'select ' || p_seq_name || '.nextval from dual' INTO l_val;
    execute immediate 'alter sequence ' || p_seq_name || ' increment by '|| maxvalueid ||' minvalue 0';  
    execute immediate 'select ' || p_seq_name || '.nextval from dual' INTO l_val;
    execute immediate 'alter sequence ' || p_seq_name || ' increment by 1 minvalue 0';
end;

So verwenden Sie die gespeicherte Prozedur:

execute reset_sequence('company_sequence','company');
Jorge Santos Neill
quelle