+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : فيما يتعلق بالنسخ الإحتياطي لقواعد البيانات (/showthread.php?tid=521)
فيما يتعلق بالنسخ الإحتياطي لقواعد البيانات - medreg - 02-02-2009
ما هو الكود المستعمل للنسخ الإحتياطي لقواعد البيانات
مثلاً لديا قاعدتين وهما :
doc.db
fiche.db
المطلوب عندما نضغط على زر النسخ الإحتياطي يتم نسخ هذه الملفات إلى مجلد داخل برنامجي وليكن هذا المجلد إسمه Archive تكون هذه الملفات على هذا الشكل :
أي يضاف لكل ملف تاريخ النسخ مثلاً :
ملف doc.db بعد إتمام عملية النسخ يصبح doc02022009.db
و ملف fiche.db يصبح fiche02022009.db
ربما أكون قد وفقت في الطرح
فيما يتعلق بالنسخ الإحتياطي لقواعد البيانات - محمد عبد العزيز - 02-02-2009
لنسخ ملف استخدم CopyFile
http://www.delphi4arab.net/forum/showthread.php?tid=737
لمعرفة التاريخ استخدم Date
لتكتبه بشكل 02022009 استخدم FormatDateTime
حاول ان تكتب الكود بنفسك
فيما يتعلق بالنسخ الإحتياطي لقواعد البيانات - sandokhane - 03-02-2009
هنالك طريقة جميلة و بسيطة تعتمد على مكون ZipForge (وهو مجاني للإستعمال الشخصي) ، نصنع به ملف zip يحتوي على كل الملفات المراد أرشفتها.
الموقع : http://www.componentace.com/download/download.php?editionid=12
طريقة الإستعمال :
كود :
with ZipForge1 do
begin
FileName :=ExtractFilePath(application.exename)+'archive\'+'arch.'+FormatDateTime('dd.mm.yy',Date)+'.zip';
// Create a new archive file
OpenArchive(fmCreate);
// Set path to folder with some text files to BaseDir
BaseDir :=ExtractFilePath(application.ExeName);
AddFiles('*.db'); // set filter
CloseArchive;
MessageDlg('L''archive '+QuotedStr(Zipforge1.FileName)+' a été créée avec succès.', mtInformation, [mbOK], 0);
end;فيما يتعلق بالنسخ الإحتياطي لقواعد البيانات - medreg - 03-02-2009
مشكورين على تعاونكم معنا
فيما يتعلق بالنسخ الإحتياطي لقواعد البيانات - كمال المجاني - 04-01-2013
بارك الله فيكم