إستيراد قاعدة البيانات؟

[بوكفوس عبدالسلام]

السلام عليكم ...

أريد كود  إستيراد قاعدة البيانات أكسس التي تم تصديرها ( Export ) سابقا ( نسخة إحتياطية ) ، لتحل محل قاعدة البيانات الحالية.

[Foksh]

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

قم بإضافة زر إلى نموذج (مثلاً : btnRestore)

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

 

Private Sub btnRestore_Click()
    Dim dbPath As String
    Dim backupPath As String
    Dim fso As Object
    Dim fd As FileDialog
    
    dbPath = CurrentProject.FullName
    
    Set fd = Application.FileDialog(3)
    
    With fd
        .Title = "اختر ملف النسخة الاحتياطية"
        .Filters.Clear
        .Filters.Add "ملفات Access", "*.accdb;*.mdb"
        .AllowMultiSelect = False
        
        If .Show = -1 Then
            backupPath = .SelectedItems(1)
        Else
            MsgBox "لم يتم تحديد أي ملف!", vbExclamation + vbMsgBoxRight, "إلغاء العملية"
            Exit Sub
        End If
    End With
    
    If Dir(backupPath) = "" Then
        MsgBox "الملف المحدد غير موجود", vbExclamation + vbMsgBoxRight, "خطأ"
        Exit Sub
    End If
    
    DoCmd.Close acForm, "اسم_النموذج", acSaveYes
    DoCmd.Close acReport, "اسم_التقرير", acSaveYes
    DoCmd.Close acTable, "اسم_الجدول", acSaveYes
    DoCmd.Close acQuery, "اسم_الاستعلام", acSaveYes
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    fso.DeleteFile dbPath, True
    fso.CopyFile backupPath, dbPath
    
    MsgBox "تم استعادة النسخة الاحتياطية بنجاح ! قد تحتاج إعادة تشغيل البرنامج", vbInformation + vbMsgBoxRight, "نجاح"
    
End Sub

يجب توافر المكتبة Microsoft Office XX.0 Object Library 

[بوكفوس عبدالسلام]

السلام عليكم ...

داخل الكود هل يتم كتابة جميع الجداول و الإستعلامات و النماذج و التقارير قاعدة البانات:

DoCmd.Close acForm, "اسم_النموذج", acSaveYes
    DoCmd.Close acReport, "اسم_التقرير", acSaveYes
    DoCmd.Close acTable, "اسم_الجدول", acSaveYes
    DoCmd.Close acQuery, "اسم_الاستعلام", acSaveYes

    

[Foksh]

4 ساعات مضت, بوكفوس عبدالسلام said:

السلام عليكم ...

داخل الكود هل يتم كتابة جميع الجداول و الإستعلامات و النماذج و التقارير قاعدة البانات:

DoCmd.Close acForm, "اسم_النموذج", acSaveYes
    DoCmd.Close acReport, "اسم_التقرير", acSaveYes
    DoCmd.Close acTable, "اسم_الجدول", acSaveYes
    DoCmd.Close acQuery, "اسم_الاستعلام", acSaveYes

    

تستطيع الاستغناء عن هذه الأسطر شريطة ان لا يكون هناك نموذج يستدعي أو يشغل أو يستخدم جدولاً من تلك الجداول التي تريد استيرادها 🤗 .