+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استرجاع قاعدة بيانات accesse محفوظة (/showthread.php?tid=6200)
استرجاع قاعدة بيانات accesse محفوظة - bassem_43 - 20-05-2014
السلام عليكم
اتبعت طريقة لاسترجاع قاعدة بيانات 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;استرجاع قاعدة بيانات accesse محفوظة - محمد عبد العزيز - 21-05-2014
السلام عليكم
قبل copy ضف السطرين التاليين واكتشف الخطأ بنفسك!
كود :
ShowMEssage(ce);
ShowMEssage(ba);استرجاع قاعدة بيانات accesse محفوظة - bassem_43 - 31-05-2014
وعليكم السلام
بارك الله فيك يا استاد عبد العزيز
لقد اكتشفت الخطا وصححته وهدا هو الكود المعدل
كود :
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;استرجاع قاعدة بيانات accesse محفوظة - محمد عبد العزيز - 01-06-2014
إقتباس :ان وجدت ملاحظاتقبل العملية يجب قطع الاتصال/ اغلاق جميع الجداول
في حالة كان المسار unicode لن يعمل فمن الاحسن ان تضع امر النسخ بين try except
ما ذا لو كان الملف بقرص z: أو k:
