إنشاء نسخة احتياطية لقاعدة Absolute

[محمد عبد العزيز]

كما قلت لك سابقا
قبل اخذ نسخة احتياطية اغلق كل الجداول الQueryو قاعدة البيانات
انتبه أن اخذ نسخة احتياطية أو استرجاعها قد يستغرق بعض الوقت
يمكن ان تضيف sleep قبل/بعد العملية

[medreg]

إذًا هذه العملية هاتها من عندك الآن إلى هنا اقف
ما هذه Questy لم اسمع بها من قبل
وماذا افعل ب ذSleep
عليك بإعطائي هذا الكود الذي استعمله
انا بالإنتظار

[محمد عبد العزيز]

أصلحتها Query كان خطأ مطبعي :laugh:
-
تكتب شيئ مثل

كود :

Sleep(1000); CopyFile(PChar('TesteCopy.abs'),PChar(SpinEdit1.Text),True); sleep(3000);

كمثال ثانية قبل النسخ وثلاث بعده

[medreg]

لقد عملت بما اشرت علي به
لكن مشكل الإسترجاع لازال باقي
والرسالة لازالت باقية

وسؤال اخر هل ضروري مكون ABSQuery
وماهو الكود الذي استعمله في الحدث String للـ Query
بعد كتابة
Select *
From testeCopy

[محمد عبد العزيز]

لم اقل ضروري ABSQuery بل ان استعملته عليك بغلقه، فقط
ارفق ما فعلته حتى الان

[medreg]

اليك المرفق بأخر ما استطعت فعله

[محمد عبد العزيز]

من البداية وانا اقل لك اغلق القاعدة قبل النسخ/الاستعادة و افتحها فيما بعد ولم تعمل
هذا هو سبب الخطا لاغير
بزر الحفظ اكتب

كود :

DModule1.OnDestroy(sender); copyfile(pchar('baibe.abs'),pchar(SpinEdit1.Text),False); DModule1.OnCreate(sender); Close;

بزر الاسترجاع اكتب

كود :

DModule1.OnDestroy(sender); copyfile(pchar(SpinEdit1.text),pchar('baibe.abs'),false); DModule1.OnCreate(sender); Close;

لاتنسخ فقط
حاول ان تفهم
قبل الحفظ/الاسترجاع استدعينا OnDestroy لانه بها يتم غلق كل الجداول والقاعدة (تفاديا لاعادة كتابة نفس الكود)
بعد الحفظ/الاسترجاع استدعينا OnCreate لاعادة فتح القاعدة والجداول
وبالتوفيق

[medreg]

وأخيرًا وفقت ببالله وبكم والحمد لله
وجعل الله كل عملكم في ميزان حسناتكم
واتمنى ان لا اكون قد ازعجتكم بطلباتي هذه
واتمنى من الله العلي القدير ان يوفقكم لما يحبه ويرضاه

[medreg]

لقد عدت مرة أخرى اطلب مساعدتك
وهذه المرة يتعلق الأمر بحفظ خمس قواعد بيانات
لقد عدلت على الكود السابق المتعلق بقلعدة بيانات واحدة وهذه المرة بخمس قواعد بيانات
لكن لم يتم الحفظ لماذا
الكود المستعمل للحفظ

PHP كود :

procedure TFormMenu_Principal.MenuItem3Click(Sender: TObject);
begin
Sleep(3000);
DM1.OnDestroy(sender);
DM2.OnDestroy(sender);
DM3.OnDestroy(sender);
DM4.OnDestroy(sender);
copyfile(pchar('Mvmnt_Fonct.abs'),pchar(FormParamettre.ComboBox1.Text+FormParamettre.SpinEdit1.Text),False);
copyfile(pchar('Mvmnt_Equipt.abs'),pchar(FormParamettre.ComboBox1.Text+FormParamettre.SpinEdit1.Text),False);
copyfile(pchar('Mvmnt_RecFonct.ABS'),pchar(FormParamettre.ComboBox1.Text+FormParamettre.SpinEdit1.Text),False);
copyfile(pchar('Mvmnt_Autres.abs'),pchar(FormParamettre.ComboBox1.Text+FormParamettre.SpinEdit1.Text),False);
copyfile(pchar('Mvmnt_RecEquipt.ABS'),pchar(FormParamettre.ComboBox1.Text+FormParamettre.SpinEdit1.Text),False);
DM1.OnCreate(sender);
DM2.OnCreate(sender);
DM3.OnCreate(sender);
DM4.OnCreate(sender);
Sleep(10000);
showMessage('تمت عملية النسخ بنجاح');
end; 


علما بأن كل قاعدة من هذه القواعد يكون حجمها اكثر من 2.00 ميغبايت

[محمد عبد العزيز]

يعني لم تفهم
انت تنسخ القواعد 5 بنفس الملف!
وبه النسخة الاحتياطية تكون فقط للقاعدة الاخيرة

والاهم لما تستخدم 5 قواعد ؟
يمكن دمج القواعد الخمس بواحدة وتستعمل DataModule واحد