وعليكم السلام ورحمة الله وبركاته ،
أظن أن قاعدة البيانات عبارة عن ملف يمكن نسخه بالطريقة العادية.
فقط أريد الإشارة أنه يوجد برنامج حر اسمه cobian backup وظيفته عمل نسخ إحتياطية لأي ملف (أو مجموعة من الملفات) ، و هذه النسخ الاحتياطية تكون على حسب الرغبة في الوقت ، يمكن برمجة العمل كل ساعتين مثلا في مجلد معين .
رابط البرنامج :
كود :
http://www.commentcamarche.net/download/telecharger-34055144-cobian-backup
وهذا الشرح له بالفيديو
https://www.youtube.com/watch?v=BHQHQ67t7O0
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك. تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
لا تنسى إغلاق ملف قاعدة البيانات بشكل صحيح ومن ثم قم بنسخ ملف قاعدة البيانات بالطريقة التي تريد, وأيضاً أمر صحي أن تقوم بعمل Compact & Repair قبل النسخ.
كل من 1 user says قال شكرا ل PLANSHARP على المشاركة المفيدة1 user says Thank You to PLANSHARP for this post • wadoud
(18-04-2016, 09:51 PM)PLANSHARP كتب : لا تنسى إغلاق ملف قاعدة البيانات بشكل صحيح ومن ثم قم بنسخ ملف قاعدة البيانات بالطريقة التي تريد, وأيضاً أمر صحي أن تقوم بعمل Compact & Repair قبل النسخ.
هل لك أن ترشدني كيف يكون إغلاق ملف قاعدة البيانات بالشكل الصحيح أخي الحبيب بارك الله فيك؟
procedure TForm17.BitBtn2Click(Sender: TObject);
var
a,b:string;
begin
a:=ExtractFileDir(Application.ExeName)+'\' + 'db.mdb' ;
b:=Label3.Caption +'\'+ Edit1.Text+'.mdb' ;
CopyFileWithProgressBar1(a,b);
ShowMessage('تم إنشاء النسخة الإحتياطية بنجاح');
end;
و الصور للمكونات المتعملة في الطريقة موجودة في المرفقات
و ايضا صورة للاعدادت الاخرى المهمة
كل من 1 user says قال شكرا ل rahiche على المشاركة المفيدة1 user says Thank You to rahiche for this post • kito
الكود المستخدم كما رأيته و هذه هي المكونات المستخدمه
و كما ترى يمكنك تحديد اسم النسخة الاحتياطية مباشرة باستخدام edit
يعني يمكنك اضافة السطر التالي لكي يضهر معها التاريخ
كود :
edit1.text;=edit1.text + datetostr(date);
اتمنى ان يفيدك
كل من 1 user says قال شكرا ل rahiche على المشاركة المفيدة1 user says Thank You to rahiche for this post • kito