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

السلام عليكم
اتبعت طريقة لاسترجاع قاعدة بيانات accesse محفوظة في احد المجلدات وهي مبينة في كود الضغط على الزر تحت

كود :
procedure TForm1.btn16Click(Sender: TObject);
var directory,ba,ce:string;
begin
 SelectDirectory('selectionner le dossier qui contient la BD:','',directory) ;
             if (directory = 'C:\') or  (directory = 'D:\') or ( directory = 'E:\') or ( directory = 'F:\')or ( directory = 'G:\')or ( directory = 'H:\')or ( directory = 'I:\')then

               ce:= directory +'vaccin.mdb'
           else
           begin

              ce:= directory +'\vaccin.mdb';
            end ;
 ba:= ExtractFilePath(application.ExeName)+'vaccin.mdb' ;

 CopyFile('ce','ba',false);


end;

لكن بعد الضغط على الزر ليقوم بنقل قاعدة البيانات المحفوظة ووضعها في مكان قاعدة البيانات الحالية لم ينجح الامر ما هو الخلل في الكود وطريقة اصلاحة وشكرا ؟؟

السلام عليكم

قبل copy ضف السطرين التاليين واكتشف الخطأ بنفسك!

كود :
ShowMEssage(ce);
ShowMEssage(ba);

وعليكم السلام
بارك الله فيك يا استاد عبد العزيز
لقد اكتشفت الخطا وصححته وهدا هو الكود المعدل

كود :
procedure TForm1.btn16Click(Sender: TObject);
var directory:string;
rep:word;
begin

 ShowMessage('Avant de récupéré  une Base de donnée il faut la décompressée');
 SelectDirectory('selectionner le dossier qui contenu la BD non Compressée :','',directory) ;
             if (directory = 'C:\') or  (directory = 'D:\') or ( directory = 'E:\') or ( directory = 'F:\')or ( directory = 'G:\')or ( directory = 'H:\')or ( directory = 'I:\')then

               edt3.Text:= directory +'vaccin.mdb'
           else
           begin

              edt3.Text:= directory +'\vaccin.mdb';
            end ;
 edt4.Text:= ExtractFilePath(application.ExeName)+'vaccin.mdb' ;
 rep:=messageDlg('Etes vous sur vouloir de remplacer la Base de donnée actuelle ?' ,mtConfirmation,[mbyes,mbNo],0);
if rep=mryes then
begin
 CopyFile(PAnsiChar(edt3.Text),PAnsiChar(edt4.Text),false);
 tbl1.Refresh;
 end
 else
 Exit;
 end;

ان وجدت ملاحظات لا تبخلوا بها علينا

إقتباس :ان وجدت ملاحظات

قبل العملية يجب قطع الاتصال/ اغلاق جميع الجداول
في حالة كان المسار unicode لن يعمل فمن الاحسن ان تضع امر النسخ بين try except
ما ذا لو كان الملف بقرص z: أو k: Big Grin

bassem_43

محمد عبد العزيز

bassem_43

محمد عبد العزيز