حاولت أن أضع بين أيديكم كود خاص بحفظ واسترجاع قاعدة بيانات Absolute إلى حد الساعة وجدت خطأ لم أعرف سببه
أصل الكود هو لصاحبه Larbi Paradox حاولت جاهد واستفدت من موضوع خاص بحقظ CCp على شكل Txt وقمت بتطوريه لجعله يعمل مع حفظ واسترجاع قاعدة البيانات المذكور لكنني لم أظفر هل من مساعدة
السلام عليكم
هناك أكثر من خطأ
أولا إشرح ما الذي تود فعله ؟
1- زر لحفظ نسخة من قاعدة البيانات في مجلد بتاريخ اليوم ؟
2- زر لاسترجاع قاعدة البيانات من مجلد بتاريخ ما ؟
11-05-2021, 07:23 PM (آخر تعديل لهذه المشاركة: 11-05-2021, 07:25 PM بواسطة damoufid.)
السلام عليكم ورحمة الله :
طبعا كما تفضلت به هناك زرين إثنين والثالث مخفي :
أي 1- الأول إنشاء المجلد ليوم ما
2- حفظ قاعدة البيانات في المجلد الذي تم إنشائه
3- إسترجاع قاعدة البيانات ليوم محدد
المشكل يأستاذي الكريم محمد عبد العزيز أنه عند الحفظ يتجاهل اليوم الذي أنشأته والأمر الثاني بعد تجربة البرنامج لايحفظ قاعدة البيانات لم أعرف سبب المشكل وشكرا مسبقا -
ورمضان كريم وشكرا على الإهتمام .
تكملة فقط أريد أن يقوم هذا البرنامج بالحفظ على أساس ابوم المنشأ وعملية الإسترجاع بعد معاينة المجلد المطلول إسترجاع قاعدة البيانات أي ليوم محدد وشكرا أستاذنا الكريم.
اولا مهم تغيير Connected المكون ABSDatabase1 الى False
في الحدث Create لل Form1
كود :
ABSDatabase1.Open;
ABSTable1.Open;
في الحدث Close لل Form1
كود :
ABSTable1.Close;
ABSDatabase1.Close;
زر لحفظ نسخة من قاعدة البيانات في مجلد بتاريخ اليوم
كود :
var sPath,dPath:string;
begin
ABSDatabase1.Close;
sPath:=ExtractFilePath(ParamStr(0));
dPath:=sPath+FormatDateTime('YYYY-MM-DD',Now);
CreateDir(dPath);
Sleep(500);
copyfile(pchar(sPath+'Facture.ABS'),pchar(dPath+'\backup.abs'),false);
Sleep(500);
ABSDatabase1.Open;
ABSTable1.Open;
end;
زر لاسترجاع قاعدة البيانات من مجلد بتاريخ ما
كود :
var sPath,dPath:string;
begin
ABSDatabase1.Close;
sPath:=ExtractFilePath(ParamStr(0));
dPath := sPath+'Facture.ABS';
if SelectDirectory(spath, [], 0) then
copyfile(pchar(sPath+'\backup.abs'),pchar(dPath),false);
Sleep(1000);
ABSDatabase1.DatabaseFileName:= dPath;
ABSDatabase1.Open;
ABSTable1.Open;
end;
لا تنسى اضافة FileCtrl في الuses لاننا استخدمنا SelectDirectory
أشكرك أستاذنا محمد عبد العزيز وجزاك الله خيرا فعلا استفدت من ردك لك كل الشكر والإحترام وبارك الله فيك وليكن ردك حول إستفساري إن شاء الله الفائدة عامة .
كل من 1 user says قال شكرا ل damoufid على المشاركة المفيدة1 user says Thank You to damoufid for this post • أبو معاذ
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)
