30-01-2010, 10:58 AM
كما قلت لك سابقا
قبل اخذ نسخة احتياطية اغلق كل الجداول الQueryو قاعدة البيانات
انتبه أن اخذ نسخة احتياطية أو استرجاعها قد يستغرق بعض الوقت
يمكن ان تضيف sleep قبل/بعد العملية
30-01-2010, 10:58 AM
30-01-2010, 11:06 AM
إذًا هذه العملية هاتها من عندك الآن إلى هنا اقف
ما هذه Questy لم اسمع بها من قبل
وماذا افعل ب ذSleep
عليك بإعطائي هذا الكود الذي استعمله
انا بالإنتظار
ما هذه Questy لم اسمع بها من قبل
وماذا افعل ب ذSleep
عليك بإعطائي هذا الكود الذي استعمله
انا بالإنتظار
30-01-2010, 11:11 AM
أصلحتها Query كان خطأ مطبعي :laugh:
-
تكتب شيئ مثل
كود :
Sleep(1000);
CopyFile(PChar('TesteCopy.abs'),PChar(SpinEdit1.Text),True);
sleep(3000);30-01-2010, 11:29 AM
لقد عملت بما اشرت علي به
لكن مشكل الإسترجاع لازال باقي
والرسالة لازالت باقية
وسؤال اخر هل ضروري مكون ABSQuery
وماهو الكود الذي استعمله في الحدث String للـ Query
بعد كتابة
Select *
From testeCopy
لكن مشكل الإسترجاع لازال باقي
والرسالة لازالت باقية
وسؤال اخر هل ضروري مكون ABSQuery
وماهو الكود الذي استعمله في الحدث String للـ Query
بعد كتابة
Select *
From testeCopy
30-01-2010, 11:44 AM
لم اقل ضروري ABSQuery بل ان استعملته عليك بغلقه، فقط
ارفق ما فعلته حتى الان
30-01-2010, 11:52 AM
اليك المرفق بأخر ما استطعت فعله
30-01-2010, 12:17 PM
من البداية وانا اقل لك اغلق القاعدة قبل النسخ/الاستعادة و افتحها فيما بعد ولم تعمل
هذا هو سبب الخطا لاغير
بزر الحفظ اكتب
كود :
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 لاعادة فتح القاعدة والجداول
وبالتوفيق
30-01-2010, 12:28 PM
وأخيرًا وفقت ببالله وبكم والحمد لله
وجعل الله كل عملكم في ميزان حسناتكم
واتمنى ان لا اكون قد ازعجتكم بطلباتي هذه
واتمنى من الله العلي القدير ان يوفقكم لما يحبه ويرضاه
وجعل الله كل عملكم في ميزان حسناتكم
واتمنى ان لا اكون قد ازعجتكم بطلباتي هذه
واتمنى من الله العلي القدير ان يوفقكم لما يحبه ويرضاه
30-01-2010, 05:15 PM
لقد عدت مرة أخرى اطلب مساعدتك
وهذه المرة يتعلق الأمر بحفظ خمس قواعد بيانات
لقد عدلت على الكود السابق المتعلق بقلعدة بيانات واحدة وهذه المرة بخمس قواعد بيانات
لكن لم يتم الحفظ لماذا
الكود المستعمل للحفظ
علما بأن كل قاعدة من هذه القواعد يكون حجمها اكثر من 2.00 ميغبايت
وهذه المرة يتعلق الأمر بحفظ خمس قواعد بيانات
لقد عدلت على الكود السابق المتعلق بقلعدة بيانات واحدة وهذه المرة بخمس قواعد بيانات
لكن لم يتم الحفظ لماذا
الكود المستعمل للحفظ
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;
30-01-2010, 05:50 PM
يعني لم تفهم
انت تنسخ القواعد 5 بنفس الملف!
وبه النسخة الاحتياطية تكون فقط للقاعدة الاخيرة
والاهم لما تستخدم 5 قواعد ؟
يمكن دمج القواعد الخمس بواحدة وتستعمل DataModule واحد