كيفية عمل نسخة احتياطية من قاعدة بيانات اكسس بالفيجوال بيسك 6

السلام عليكم ورحمة الله وبركاتة

كيفية عمل نسخة احتياطية من قاعدة بيانات اكسس بالفيجوال بيسك 6

اول شئ اضف الي مشروعك فورم جديدة كما يلي

ثم اضف الي  المراجع الريفرنس المكتبة التالية

في الفورم لود حدث تحميل الفورم نقوم بوضع الكود التالي

الرمز:

'هذا متغير علي مستوي المشروع ويتمرير الية اسم قاعدة البيانات  وسنستخدمة فيما بعد في امور اخري منها اخذ نسخة احتياطية من تلك قاعدة البياناتdbname = "dblaw.mdb"
'لانشاء المجلد الذي سنضع بة النسخ الاحتياطية داخل مجلد المشروع ان لم يكن منشئ من قبل
If Dir(App.Path & "\backup", vbDirectory) = "" Then
    MkDir (App.Path & "\backup")
End If

ثم تحت مفتاح اخذ نسخة احتياطية نقول الكود التالي

الرمز:

Dim x As String

MousePointer = 11
'للتاكد من وجود قاعدة البيانات التي سناخذ منها نسخة احتياطية قبل البداء في عمل ذلك
If Dir(App.Path & "\" & dbname) = "" Then
    MousePointer = 1
    Exit Sub
End If

'المتغير اكس يتم تمرير لة التاريخ الحالي للجهاز ولكن بصيغة معينة تم تحديدها لو ستاخذ نسخة في اقل من دقيقة او يوم يمكنك اضافة الي المتغير اكس الثانية التي تم اخذ النسخة بها او الدقيقة الخ
x = Format(Date, "dd-mm-yyyy")

'اخذ نسخة احتياطية من قاعدة البيانات
je.CompactDatabase "data source=" & App.Path & "\" & dbname & ";", _
                "data source=" & App.Path & "\backup\backup" & x & ".mos;"

MousePointer = 1

يمكنك لتفادي خطاء ان هناك اكثر من نسخة بنفس الاسم في حال تكرارك لاخذ نسخ احتياطية في وقت قصير ان تضيف الي المتغير اكس الدقيقة والثانية التي تم اخذ بها النسخة الاحتياطية

بالتوفيق باذن الله

Posted in: Access, Visual Basic 6