delphi4arab منتديات دلفي للعرب

السلام عليكم

عندي منظومة تقوم بعملية نسخ احتياطي للبيانات كما بالشكل التالي:

ExePath := ExtractFilePath(Application.ExeName);

كود :
CopyFile(PChar(ExePath + '\center1.mdb'), PChar(ExePath + '\Backup\Backup.mdb'), True);

الى مجلد في المشروع وتتم العملية بنجاح

ولكن عند القيام بالاستعادة لا تنجح العملية كما بالشكل التالي:

كود :
if FrmMain.spSkinMessage1.MessageDlg('هل انت متاكد من رغبتك في استعادة البيانات الان...؟',mtWarning, [mbOK,mbNo],0) =mrOk then begin

 try
 FrmMain.ADOConnection1.Connected:=false;
 CopyFile(PChar(ExePath + '\Backup\Backup.mdb'), PChar(ExePath + '\center1.mdb'), True);
 FrmMain.ADOConnection1.Connected:=true;


 if FrmMain.ADOTable1.Active =false then  FrmMain.ADOTable1.Active:=true;
  if FrmMain.ADOSera.Active =false then  FrmMain.ADOSera.Active:=true;
   if FrmMain.ADOAejaza.Active =false then  FrmMain.ADOAejaza.Active:=true;
  if FrmMain.ADODorat.Active =false then  FrmMain.ADODorat.Active:=true;
   if FrmMain.ADOJensea.Active =false then  FrmMain.ADOJensea.Active:=true;
   if FrmMain.ADOScince.Active =false then  FrmMain.ADOScince.Active:=true;
    if FrmMain.ADOBank.Active =false then  FrmMain.ADOBank.Active:=true;
   if FrmMain.ADOFraaBank.Active =false then  FrmMain.ADOFraaBank.Active:=true;
 if FrmMain.ADODegere.Active =false then  FrmMain.ADODegere.Active:=true;
  // if FrmMain.ADOTable1.Active =false then  FrmMain.ADOTable1.Active:=true;

 FrmMain.spSkinMessage1.MessageDlg('تمت استعادة البيانات بنجاح',mtInformation, [mbok],0) ;
 except on E: Exception do
    FrmMain.spSkinMessage1.MessageDlg('حدث خطاء في الاستعادة قم باستعادة البيانات يدوياً',mtInformation, [mbok],0) ;
 end;

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

وشكرا

CMT-10