मैं ओरेकल में एक अनुक्रम कैसे रीसेट करूं?

170

में PostgreSQL , मैं कुछ इस तरह कर सकते हैं:

ALTER SEQUENCE serial RESTART WITH 0;

क्या कोई ओरेकल बराबर है?

sql  database  oracle  sequence 
— मौली
स्रोत
1
यहाँ "अनुक्रम रीसेट" पर एक नज़र है ।
— जेरिकसन
3
चेतावनी: नीचे दिए गए सभी कोड केवल उन अनुक्रमों के लिए मान्य हैं जो शुरू में "1 से वृद्धि" के साथ बनाए गए थे। यदि मूल अनुक्रम एक वेतन वृद्धि के साथ बनाया गया था! = 1; उपरोक्त किसी भी प्रक्रिया को लागू करने के बाद, वेतन वृद्धि 1 में बदल जाएगी! उपयोग करने के लिए सही वृद्धि मूल्य user_fterences दृश्य से प्राप्त किया जा सकता है।
1
अनुक्रम को छोड़ें और फिर से
— बनाएं

जवाबों:

153

ओरेकल गुरु टॉम कयटे से किसी भी अनुक्रम को 0 पर रीसेट करने के लिए एक अच्छी प्रक्रिया है । नीचे दिए गए लिंक में भी पेशेवरों और विपक्षों पर महान चर्चा।

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;
/

इस पृष्ठ से: डायनेमिक एसक्यूएल अनुक्रम मान रीसेट करने के लिए
एक और अच्छी चर्चा यहां भी है: अनुक्रम कैसे रीसेट करें?

— डग कुली
स्रोत
@ डगमगाने: हाय 'की शुरुआत .... उक्त उत्तर में, क्यों आप अंतिम रूप से तत्काल "चयन" निष्पादित करने के बजाय अंतिम खंड में उल्लेख करते हैं? p_seq_name || '.nextval INTO l_val from dual';
— थियागू एटीआर
@ थिअगू: पीएल / एसक्यूएल में यह सिंटैक्स है जब execute immediateसबसे अधिक 1 पंक्ति में चुनिंदा रिटर्न के आउटपुट को कैप्चर करने के लिए उपयोग किया जाता है। यहाँ तत्काल निष्पादित करने के लिए दस्तावेज है: docs.oracle.com/cd/B28359_01/appdev.111/b28370/…
— डॉग पोर्टर
@ मित्रा मुझे ऐसा परिदृश्य नहीं दिखता जिसमें किसी को एक अनुक्रम को रीसेट करने और समवर्ती वातावरण में उसी क्रम के अन्य उपयोगकर्ताओं को देखने की आवश्यकता हो।
— एक्यूवू
आपको अनुक्रम का चयन करने की आवश्यकता क्यों है, बस आखिरी पंक्ति क्यों नहीं है'alter sequence ' || p_seq_name || ' increment by 1 minvalue 0';
— गोकू
100

एक सही पुनरारंभ AFAIK संभव नहीं है । (मुझे सही जवाब दो अगर मैं गलत हूँ!)।

हालाँकि, यदि आप इसे 0 पर सेट करना चाहते हैं, तो आप इसे हटा सकते हैं और इसे फिर से बना सकते हैं।

यदि आप इसे किसी विशिष्ट मान पर सेट करना चाहते हैं, तो आप INCREMENT को नकारात्मक मान पर सेट कर सकते हैं और अगला मान प्राप्त कर सकते हैं।

यही है, अगर आपका अनुक्रम 500 पर है, तो आप इसे 100 से सेट कर सकते हैं

ALTER SEQUENCE serial INCREMENT BY -400;
SELECT serial.NEXTVAL FROM dual;
ALTER SEQUENCE serial INCREMENT BY 1;
— मो
स्रोत
4
PLSQL में लोगों के लिए बस एक नोट। "सीमा 1;" जोड़ना सुनिश्चित करें या "रोम्नम = 1" चुनिंदा स्टेटमेंट के लिए अन्यथा आप अगले दो बार चलने को समाप्त कर सकते हैं और कई बार -400 की वृद्धि कर सकते हैं।
— user830914
1
त्रुटि क्रम .NEXTVAL MINVALUE से नीचे चला जाता है और जब INCREMENT BY - << बड़ा_नंबर >>
— zloctb
47

यह मेरा दृष्टिकोण है:

  1. अनुक्रम ड्रॉप
  2. इसे पुनः बनाएँ

उदाहरण:

--Drop sequence

DROP SEQUENCE MY_SEQ;

-- Create sequence 

create sequence MY_SEQ
minvalue 1
maxvalue 999999999999999999999
start with 1
increment by 1
cache 20;
— जीना
स्रोत
29
बस इस बात से अवगत रहें कि ड्रॉप किसी भी ऑब्जेक्ट को अमान्य कर देगा जो उस अनुक्रम पर निर्भर करते हैं और उन्हें फिर से स्थापित करना होगा।
— डग पोर्टर
22
आपको अनुक्रम से चयन करने के लिए दिए गए किसी भी अनुदान को फिर से देना होगा।
— ग्रीनजाइंट
37 
alter sequence serial restart start with 1;

यह सुविधा आधिकारिक तौर पर 18 सी में जोड़ी गई थी, लेकिन अनौपचारिक रूप से 12.1 में उपलब्ध है।

12.1 में इस अनिर्दिष्ट सुविधा का उपयोग करना यकीनन सुरक्षित है। भले ही सिंटैक्स आधिकारिक प्रलेखन में शामिल नहीं है , यह Oracle पैकेज DBMS_METADATA_DIFF द्वारा उत्पन्न होता है । मैंने इसे उत्पादन प्रणालियों पर कई बार उपयोग किया है। हालाँकि, मैंने एक Oracle सेवा अनुरोध बनाया और उन्होंने सत्यापित किया कि यह एक दस्तावेज बग नहीं है, यह सुविधा वास्तव में असमर्थित है।

18 सी में, सुविधा SQL भाषा सिंटैक्स में दिखाई नहीं देती है, लेकिन डेटाबेस प्रशासक के गाइड में शामिल है ।

— जॉन हेलर
स्रोत
अरे @Jon, मैं अनजाने सुविधा से अवगत हूँ, हालाँकि, मुझे नहीं पता था कि यह DBMS_METADATA_DIFF से उत्पन्न स्क्रिप्ट में देखा गया है। क्या आप मुझे बता सकते हैं कि आपने स्क्रिप्ट कैसे बनाई, कौन सी प्रक्रिया आदि? मैं इसे भी परखने की कोशिश करूंगा।
— ललित कुमार बी
@LalitKumarB मैंने इस प्रश्न का उत्तर देते समय उस सुविधा पर ठोकर खाई ।
— जॉन हेलर
1
आह, अब मिल गया। धन्यवाद :-)
— ललित कुमार B
मुझे लगता है कि यह "तालिका बदलने के लिए लागू किया गया था your_table संशोधित (आईडी डिफ़ॉल्ट रूप से शून्य पर उत्पन्न होती है क्योंकि पहचान मूल्य सीमा के साथ शुरू होती है);"। यह जानकर अच्छा लगा कि यह मानक दृश्यों पर भी काम करता है!
— ओलिवर
1
इस मामले में अनुक्रम की मीनवृद्धि अधिक है 0 लेखन पर विचार करें... RESTART START WITH 0 MINVALUE 0
— कॉन्सेप्टडेलमिलर
33

मेरा दृष्टिकोण डॉगमैन के उदाहरण के लिए एक किशोरावस्था का विस्तार है ।

एक्सटेंशन हैं ...

बीज मान में एक पैरामीटर के रूप में पास करें। क्यों? मुझे किसी तालिका में उपयोग की गई अधिकतम आईडी पर अनुक्रम को रीसेट करने वाली चीज़ को कॉल करना पसंद है । मैं एक और स्क्रिप्ट से इस खरीद को समाप्त करता हूं, जो अनुक्रमों के एक पूरे समूह के लिए कई कॉल निष्पादित करता है, अगले स्तर को कुछ स्तर तक वापस रीसेट करता है जो प्राथमिक कुंजी उल्लंघनों का कारण नहीं होने के लिए पर्याप्त है जहां मैं एक अद्वितीय पहचानकर्ता के लिए अनुक्रम के मूल्य का उपयोग कर रहा हूं।

यह पिछले नाबालिगों का सम्मान भी करता है । यदि वांछित p_val या मौजूदा minvalue वर्तमान या गणना किए गए अगले मान से अधिक है, तो यह वास्तव में अगले मूल्य को कभी भी अधिक बढ़ा सकता है ।

सबसे अच्छा, इसे एक निर्दिष्ट मूल्य पर रीसेट करने के लिए कहा जा सकता है, और बस प्रतीक्षा करें जब तक कि आप अंत में रैपर को "मेरे सभी अनुक्रम ठीक करें" प्रक्रिया न देखें।

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;

यह प्रक्रिया अपने आप में सभी के लिए उपयोगी है, लेकिन अब एक और जोड़ते हैं जो इसे कहता है और क्रमबद्ध रूप से अनुक्रम नामकरण के साथ सब कुछ निर्दिष्ट करता है और एक मौजूदा तालिका / क्षेत्र में उपयोग किए गए अधिकतम मूल्य की तलाश कर रहा है ...

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;

अब हम गैस से खाना बना रहे हैं!

ऊपर दी गई प्रक्रिया किसी तालिका में फ़ील्ड के अधिकतम मूल्य के लिए जांच करेगी, तालिका / फ़ील्ड जोड़ी से अनुक्रम नाम बनाती है और उस होश में अधिकतम मान के साथ "रीसेट करें" को आमंत्रित करती है ।

इस पहेली में अंतिम टुकड़ा और केक पर आइसिंग अगले आता है ...

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;

मेरे वास्तविक डेटाबेस में इस तंत्र के माध्यम से लगभग एक सौ अन्य अनुक्रम रीसेट किए जा रहे हैं, इसलिए ऊपर की प्रक्रिया में Reset_Sequence_to_Data में 97 और कॉल हैं ।

इसे प्यार करना? घृणा करता हूं? उदासीन?

— Allbite
स्रोत
2
मुझे यह पसंद है। मैं एक चर को जोड़ूंगा और उपयोगकर्ता_ परिणाम तालिका से मूल्य में वृद्धि को बचाऊंगा। (यह 1 नहीं हो सकता है)। नोट: इसके बजाय all_fterences तालिका का उपयोग करने की आवश्यकता हो सकती है। इस मामले में आप अनुक्रम में भी पास करना चाह सकते हैं।
— हार्व
1
आपको पर्याप्त नहीं कर सकते। जब आप डेटा माइग्रेशन से निपटते हैं, तो यह एक बहुत ही सामान्य समस्या है, और यदि आप अनुक्रमों के साथ फंस गए हैं, तो यह सबसे अच्छा तरीका AFAIK है।
— डोमिनिक ईव
1
उत्कीर्ण क्योंकि यह एक उत्कृष्ट दृष्टिकोण है। केवल नकारात्मक पक्ष यह है कि यह आरएसी प्रणाली में अप्रत्याशित व्यवहार के परिणामस्वरूप l_currentहो सकता है , जहां विभिन्न मानों में से एक हो सकता है, जिसके आधार पर स्क्रिप्ट को चलाया जाता है; स्क्रिप्ट को फिर से चलाना अलग-अलग परिणाम दे सकता है। मैंने पाया कि अगर मैंने इसे कई बार चलाया तो यह अंततः एक विशेष मूल्य पर बस गया।
— जेफरी केम्प
10

निम्न स्क्रिप्ट ने अनुक्रम को एक वांछित मान पर सेट किया:

PCS_PROJ_KEY_SEQ और तालिका 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;
/
— नवीन
स्रोत
1
आप अपने पहले DDL स्टेटमेंट में माइनस को भूल गए (और, एक अतिरिक्त ENDकीवर्ड भी है)।
— प्रिदु नीमरे
5

यह संग्रहीत कार्यविधि मेरे अनुक्रम को पुनरारंभ करती है:

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;

/

— पीटर मोर्टेंसन
स्रोत
+1 - आप इसे अनुक्रम नाम में पारित करने के लिए इसे भी मानकीकृत कर सकते हैं।
— DCookie
4

ओरेकल में एक अनुक्रम रीसेट करने का एक और तरीका है: गुणों maxvalueऔर cycleगुणों को सेट करें । जब nextvalअनुक्रम हिट होता है maxvalue, यदि cycleसंपत्ति सेट की जाती है तो यह फिर से minvalueअनुक्रम से शुरू होगी ।

नेगेटिव सेट करने की तुलना में इस पद्धति का लाभ यह increment byहै कि अनुक्रम का उपयोग जारी रखा जा सकता है, जबकि रीसेट प्रक्रिया चलती है, इस अवसर को कम करके आपको रीसेट करने के लिए आउटेज के कुछ रूप लेने की आवश्यकता होती है।

इसके लिए मान maxvalueवर्तमान से अधिक होना चाहिए nextval, इसलिए प्रक्रिया में चयन nextvalकरने और cycleसंपत्ति सेट करने के बीच अनुक्रम को फिर से एक्सेस करने की स्थिति में बफर की अनुमति देने के लिए नीचे एक वैकल्पिक पैरामीटर शामिल है।

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

स्टैंड के रूप में प्रक्रिया अभी भी संभावना को अनुमति देती है कि एक और सत्र मान 0 प्राप्त करेगा, जो आपके लिए कोई समस्या हो सकती है या नहीं। यदि यह है, तो आप हमेशा कर सकते हैं:

  • minvalue 1पहले परिवर्तन में सेट करें
  • दूसरे को बाहर करें nextvalलाने
  • nocycleसंपत्ति को किसी अन्य प्रक्रिया में सेट करने के लिए , बाद की तारीख में चलाने के लिए कथन (यह मानकर कि आप ऐसा करना चाहते हैं) को स्थानांतरित करें।
— क्रिस सैक्सन
स्रोत
3

Jezus, यह सब प्रोग्रामिंग सिर्फ एक इंडेक्स रिस्टार्ट के लिए ... शायद मैं एक बेवकूफ हूं, लेकिन प्री-ऑर्कल 12 (जिसमें रिस्टार्ट फीचर है) के लिए, जो एक सिम्पल के साथ गलत है:

drop sequence blah;
create sequence blah

?

— लॉरेंस
स्रोत
2
एक अनुक्रम को छोड़ने के साथ मुख्य समस्या यह है कि यह उस पर दिए गए विशेषाधिकार खो देता है।
— जॉन हेलर
1
ठीक है, जॉन दी। ज्यादातर यह भी बहाल इन सभी प्रोग्रामिंग की तुलना में बहुत कम समय खर्च होंगे। अच्छा डीबीए की आमतौर पर स्क्रिप्ट होती है ताकि एक मुद्दा नहीं होना चाहिए :-)
— लॉरेंस
2

1) मान लें कि आप नीचे दिखाए गए अनुसार एक दृश्य बनाते हैं:

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

2) अब आप SEQUENCE से मान प्राप्त करें। जैसा कि नीचे दिखाया गया है, मैं कहता हूं कि मैंने चार बार भ्रूण लिया है।

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

3) चार आदेशों के ऊपर निष्पादित करने के बाद SEQUENCE का मान 4 होगा। अब मान लीजिए कि मैंने SEQUENCE के मूल्य को फिर से 1 पर रीसेट कर दिया है। निम्न चरणों का पालन करें। उसी क्रम में सभी चरणों का पालन करें जैसा कि नीचे दिखाया गया है:

  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
— विपिन विज
स्रोत
2

अनुक्रम के मान को बदलना, इसे बढ़ाना, और फिर इसे वापस बदलना बहुत दर्द रहित है, साथ ही आपके पास सभी अनुदानों को फिर से स्थापित नहीं करने का अतिरिक्त लाभ है क्योंकि आपने अनुक्रम को गिरा दिया था / फिर से बनाया था।

— पीटर मोर्टेंसन
स्रोत
2

मैं अपने सभी दृश्यों को रीसेट करने के लिए एक ब्लॉक बनाता हूं:

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
स्रोत
2

यहां अनुक्रम द्वारा लौटाए गए अगले मूल्य को बदलने के लिए एक अधिक मजबूत प्रक्रिया है, साथ ही एक पूरी बहुत अधिक है।

  • सबसे पहले यह SQL इंजेक्शन के हमलों से बचाता है क्योंकि पारित किए गए तार में से कोई भी सीधे उपयोग किए जाने वाले गतिशील SQL बयानों को बनाने के लिए उपयोग नहीं किया जाता है,
  • दूसरा यह अगले अनुक्रम मान को न्यूनतम या अधिकतम अनुक्रम मानों की सीमा के बाहर सेट होने से रोकता है। next_valueहो जाएगा! = min_valueऔर के बीच min_valueऔर max_value।
  • तीसरा यह वर्तमान (या प्रस्तावित) increment_byसेटिंग के साथ-साथ सफाई करते समय अन्य सभी अनुक्रम सेटिंग्स को ध्यान में रखता है।
  • चौथे को छोड़कर सभी पैरामीटर वैकल्पिक हैं और जब तक कि वर्तमान अनुक्रम सेटिंग को डिफॉल्ट के रूप में निर्दिष्ट नहीं किया जाता है। यदि कोई वैकल्पिक पैरामीटर निर्दिष्ट नहीं किया जाता है तो कोई कार्रवाई नहीं की जाती है।
  • अंत में यदि आप एक अनुक्रम को बदलने की कोशिश करते हैं जो मौजूद नहीं है (या वर्तमान उपयोगकर्ता के स्वामित्व में नहीं है) तो यह एक ORA-01403: no data foundत्रुटि उठाएगा ।

यहाँ कोड है:

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;
— पहरेदार
स्रोत
2

मेरी परियोजना में, एक बार ऐसा हुआ कि किसी ने मैन्युअल रूप से अनुक्रम का उपयोग किए बिना रिकॉर्ड में प्रवेश किया, इसलिए मुझे मैन्युअल रूप से अनुक्रम मान रीसेट करना होगा, जिसके लिए मैंने एसक्यूएल कोड स्निपेट के नीचे लिखा था:

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;

कृपया ध्यान दें, यदि अनुक्रम पिछड़ रहा है तो उपरोक्त कोड काम करेगा।

— राकेश
स्रोत
1

आप नीचे दिखाए गए CYCLE विकल्प का उपयोग कर सकते हैं:

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

इस मामले में, जब अनुक्रम MAXVALUE (100) तक पहुंच जाता है, तो यह MINVALUE (0) को रीसायकल करेगा।

एक क्रमबद्ध क्रम के मामले में, अनुक्रम MAXVALUE को रीसायकल करेगा।

— justincohler
स्रोत
1
डाउनवोटर्स के लिए (जो इस टिप्पणी को कभी नहीं देख पाएंगे): CYCLE विशेषता बिल्कुल वही है जो मैंने एक अनुक्रम रीसेट को पूरा करने के लिए उपयोग किया था। तथ्य यह है कि रीसेट स्वचालित है इसका मतलब यह नहीं है कि यह लक्ष्य पूरा नहीं करता है - ओपी ने निर्दिष्ट नहीं किया कि रीसेट को पहले से मौजूद अनुक्रम के लिए होना चाहिए !
— जेरोमियन फ्रेंच
1

यहां बताया गया है कि सभी ऑटो-इन्क्रीमेंट अनुक्रम वास्तविक डेटा से कैसे मेल खाते हैं:

  1. अगले मान को लागू करने के लिए एक प्रक्रिया बनाएं जैसा कि पहले ही इस धागे में वर्णित है:

    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. वास्तविक सामग्री के साथ सभी दृश्यों को समेटने के लिए एक और प्रक्रिया बनाएं:

    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;

टिप्पणियाँ:

  1. प्रक्रिया ट्रिगर कोड से नाम निकालती है और नामकरण सम्मेलनों पर निर्भर नहीं करती है
  2. निष्पादन से पहले उत्पन्न कोड की जांच करने के लिए, पिछली दो पंक्तियों पर टिप्पणियों को स्विच करें
— user46748
स्रोत
1

मैं एक विकल्प बनाता हूं कि उपयोगकर्ता को मूल्यों को जानने की आवश्यकता नहीं है, सिस्टम प्राप्त करता है और अपडेट करने के लिए चर का उपयोग करता है।

--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;
— ब्रूनो फ्रीटास
स्रोत
-1

संग्रहीत प्रक्रिया जो मेरे लिए काम करती है

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;

संग्रहीत कार्यविधि का उपयोग कैसे करें:

execute reset_sequence('company_sequence','company');
— जोर्ज सैंटोस नील
स्रोत
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.