+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إنشاء نسخة احتياطية لقاعدة Absolute (/showthread.php?tid=1562)
إنشاء نسخة احتياطية لقاعدة Absolute - محمد عبد العزيز - 30-01-2010
كما قلت لك سابقا
قبل اخذ نسخة احتياطية اغلق كل الجداول الQueryو قاعدة البيانات
انتبه أن اخذ نسخة احتياطية أو استرجاعها قد يستغرق بعض الوقت
يمكن ان تضيف sleep قبل/بعد العملية
إنشاء نسخة احتياطية لقاعدة Absolute - medreg - 30-01-2010
إذًا هذه العملية هاتها من عندك الآن إلى هنا اقف
ما هذه Questy لم اسمع بها من قبل
وماذا افعل ب ذSleep
عليك بإعطائي هذا الكود الذي استعمله
انا بالإنتظار
إنشاء نسخة احتياطية لقاعدة Absolute - محمد عبد العزيز - 30-01-2010
أصلحتها Query كان خطأ مطبعي :laugh:
-
تكتب شيئ مثل
كود :
Sleep(1000);
CopyFile(PChar('TesteCopy.abs'),PChar(SpinEdit1.Text),True);
sleep(3000);إنشاء نسخة احتياطية لقاعدة Absolute - medreg - 30-01-2010
لقد عملت بما اشرت علي به
لكن مشكل الإسترجاع لازال باقي
والرسالة لازالت باقية
وسؤال اخر هل ضروري مكون ABSQuery
وماهو الكود الذي استعمله في الحدث String للـ Query
بعد كتابة
Select *
From testeCopy
إنشاء نسخة احتياطية لقاعدة Absolute - محمد عبد العزيز - 30-01-2010
لم اقل ضروري ABSQuery بل ان استعملته عليك بغلقه، فقط
ارفق ما فعلته حتى الان
إنشاء نسخة احتياطية لقاعدة Absolute - medreg - 30-01-2010
اليك المرفق بأخر ما استطعت فعله
إنشاء نسخة احتياطية لقاعدة Absolute - محمد عبد العزيز - 30-01-2010
من البداية وانا اقل لك اغلق القاعدة قبل النسخ/الاستعادة و افتحها فيما بعد ولم تعمل
هذا هو سبب الخطا لاغير
بزر الحفظ اكتب
كود :
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 لاعادة فتح القاعدة والجداول
وبالتوفيق
إنشاء نسخة احتياطية لقاعدة Absolute - medreg - 30-01-2010
وأخيرًا وفقت ببالله وبكم والحمد لله
وجعل الله كل عملكم في ميزان حسناتكم
واتمنى ان لا اكون قد ازعجتكم بطلباتي هذه
واتمنى من الله العلي القدير ان يوفقكم لما يحبه ويرضاه
إنشاء نسخة احتياطية لقاعدة Absolute - medreg - 30-01-2010
لقد عدت مرة أخرى اطلب مساعدتك
وهذه المرة يتعلق الأمر بحفظ خمس قواعد بيانات
لقد عدلت على الكود السابق المتعلق بقلعدة بيانات واحدة وهذه المرة بخمس قواعد بيانات
لكن لم يتم الحفظ لماذا
الكود المستعمل للحفظ
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;
إنشاء نسخة احتياطية لقاعدة Absolute - محمد عبد العزيز - 30-01-2010
يعني لم تفهم
انت تنسخ القواعد 5 بنفس الملف!
وبه النسخة الاحتياطية تكون فقط للقاعدة الاخيرة
والاهم لما تستخدم 5 قواعد ؟
يمكن دمج القواعد الخمس بواحدة وتستعمل DataModule واحد