المشاركات : 543
المواضيع 34
:
: 463
الإنتساب : Apr 2013
السلام عليكم
اتبعت طريقة لاسترجاع قاعدة بيانات 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;
لكن بعد الضغط على الزر ليقوم بنقل قاعدة البيانات المحفوظة ووضعها في مكان قاعدة البيانات الحالية لم ينجح الامر ما هو الخلل في الكود وطريقة اصلاحة وشكرا ؟؟
و من طلب العلوم بغير كد _________ سيدركها إذا شاب الغراب
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
السلام عليكم
قبل copy ضف السطرين التاليين واكتشف الخطأ بنفسك!
كود :
ShowMEssage(ce);
ShowMEssage(ba);
المشاركات : 543
المواضيع 34
:
: 463
الإنتساب : Apr 2013
وعليكم السلام
بارك الله فيك يا استاد عبد العزيز
لقد اكتشفت الخطا وصححته وهدا هو الكود المعدل
كود :
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;
ان وجدت ملاحظات لا تبخلوا بها علينا
و من طلب العلوم بغير كد _________ سيدركها إذا شاب الغراب
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
إقتباس :ان وجدت ملاحظات
قبل العملية يجب قطع الاتصال/ اغلاق جميع الجداول
في حالة كان المسار unicode لن يعمل فمن الاحسن ان تضع امر النسخ بين try except
ما ذا لو كان الملف بقرص z: أو k: 
