لماذا لا يتم نسخ قاعد البيانات من مكان الى اخر

[CMT-10]

السلام عليكم

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


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;

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



وشكرا