طلب شرح اخذ نسخة احتياطية من قاعدة البيانات

ارجوا ان يفي هذا الكود بالغرض

كود :

Private Sub Copy_2()

On Error GoTo 12

CommonDialog1.CancelError = True

CommonDialog1.DialogTitle = "اختر مكان القاعدة المطلوبة"

CommonDialog1.Filter = "Access File|*.mdb|"

CommonDialog1.ShowOpen

If CommonDialog1.FileTitle = "" Then Exit Sub

If Dir(CommonDialog1.FileName) = "" Then

    MsgBox "اسم قاعدة بيانات خاطئ", vbExclamation + arabic, "نسخ واستيراد"

    Exit Sub

End If

Dim sure

sure = MsgBox("إن استيرادك لقاعدة البيانات هذه سوف يؤدي إلى حذف القاعدة الحالية ، هل ما زلت تريد الاستمرار ؟", vbExclamation + arabic + vbYesNo, "نسخ واستيراد")

If sure = vbNo Then Exit Sub

D1.Close

SetAttr Folder & "db1.mdb", vbNormal

Kill Folder & "db1.mdb"

FileCopy CommonDialog1.FileName, Folder & "db1.mdb"

Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder & "Db1.mdb", False, False, ";pwd=" & PassWord)

Set T1 = D1.OpenRecordset("Tb_Product", dbOpenTable)

Set T2 = D1.OpenRecordset("Tb_Category", dbOpenTable)

Set T3 = D1.OpenRecordset("Tb_Factory", dbOpenTable)

Set T5 = D1.OpenRecordset("Tb_Sel_Bay", dbOpenTable)

Set T4 = D1.OpenRecordset("Tb_User", dbOpenTable)

    Info(0) = T4!User_Name

    Info(1) = T4!PassWord

    Info(2) = T4!Name

    Info(3) = T4!Telephone

    Info(4) = T4!More

T4.Close

Call Start

MsgBox "تم استيراد قاعدة البيانات بنجاح من : " & CommonDialog1.FileName & Chr(13) & "سوف يتم الآن بدء تشغيل هذه القاعدة", vbInformation + arabic, "نسخ واستيراد"

12:

Exit Sub

End Sub

Private Sub Tools2_Click(Index As Integer)

Select Case Index

Case 0

    Copy_Me

Case 1

    Copy_2

End Select

End Sub

و هذا لاستعادة النسخة

كود :

Private Sub Tools2_Click(Index As Integer)

Select Case Index

Case 0

    Copy_Me

Case 1

    Copy_2

End Select

End Sub