إنشاء نسخة احتياطية لقاعدة Absolute

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

السلام عليكم
القيت نظرة سريعة على المرفق وبه اخطاء كثيرة...
-
انسى المرفق وفكر جيدا
انت تريد نسخ قاعدة بيانات من نوع Absolute
لا تحتاج لانشاء مجلد جديد لكل سنة لملف واحد
إنسخ ملف قاعدة البيانات باسم جديد حسب السنة

TesteCopy.abs اسم قاعدة البيانات (غيرها حسب مشروعك)
SpinEdit1 يحوى على سنة قاعدة البيانان
للحفظ

كود :

CopyFile(PChar('TesteCopy.abs'),PChar(SpinEdit1.Text),True);

لاسترجاع

كود :

CopyFile(PChar(SpinEdit1.Text),PChar('TesteCopy.abs'),False);

ملاحظة: يجب غلق عادة البيانات (وكل الجداول) قبل وبعد اي عملية حفظ او استرجاع
وبالتوفيق