আমার পদ্ধতির বিষয়টি ডগম্যানের উদাহরণের এক কৈশোর বয়সী এক্সটেনশন ।
এক্সটেনশনগুলি হ'ল ...
একটি পরামিতি হিসাবে বীজ মান পাস। কেন? ক্রমটি পুনরায় সেট করার বিষয়টি আমি কিছু টেবিলে ব্যবহৃত সর্বোচ্চ আইডিতে কল করতে চাই । আমি এই লিপিটি অন্য স্ক্রিপ্ট থেকে কল করেছি যা পুরো ক্রমগুলির জন্য একাধিক কল চালায়, পরবর্তী স্তরটিকে এমন কিছু স্তরে পুনরায় সেট করে যা প্রাথমিক কী লঙ্ঘন ঘটাতে যথেষ্ট না যেখানে আমি একটি অনন্য শনাক্তকারীর জন্য ক্রমের মানটি ব্যবহার করছি।
এটি পূর্ববর্তী মানটিকে সম্মান করে । এটি যদি পছন্দসই পি_ওয়াল বা বিদ্যমান ন্যূনতমটি বর্তমান বা গণনা করা পরবর্তী মানের চেয়ে বেশি হয় তবে এটি পরবর্তী মানটিকে আরও উচ্চতর দিকে ঠেলে দিতে পারে ।
সর্বোপরি, এটি একটি নির্দিষ্ট মানটিতে পুনরায় সেট করার জন্য ডাকা যেতে পারে এবং শেষ পর্যন্ত আপনি "আমার সমস্ত সিকোয়েন্সগুলি ঠিক করুন" পদ্ধতিটি মোড়ানো না হওয়া পর্যন্ত অপেক্ষা করুন।
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;
আমার বাস্তব ডাটাবেসে প্রায় এক শতাধিক ক্রম এই প্রক্রিয়াটির মাধ্যমে পুনরায় সেট করা হচ্ছে, তাই রিসেট_সেস্কেন্স_টো_ডাটাতে আরও 97 টি কল রয়েছে উপরের পদ্ধতিতে ।
ভাল লাগছে? ঘৃণা করি? উদাসীন?