كيفية ضغط قاعدة بيانات Microsoft Access باستخدام Visual Basic.NET

ملخص

عدم توفر وسائل ضغط أو إصلاح قواعد بيانات Microsoft Access كائنات بيانات ActiveX "(ADO) أو ADO.NET. ومع ذلك، يمكنك إنجاز هذه المهمة باستخدام موفر Microsoft Jet OLE DB والنسخ المتماثل الكائنات (JRO) الذي تم تقديمه مع Microsoft بيانات Access مكونات (MDAC) الإصدار 2.1. ADO.NET تسمح باستخدام مكتبات كائن يستند إلى COM من خلال طبقة توافق .

توضح هذه المقالة كيفية ضغط قاعدة بيانات Access باستخدام Visual Basic.NET.


متطلبات

  • Microsoft Visual Basic.NET
  • Microsoft Jet ومكتبة كائنات 2.1 أو 2.5 2.6 النسخ المتماثل

خطوات لبناء المثال

  1. فتح تطبيق وحدة تحكم جديد Visual Basic.NET.
  2. في إطار "مستكشف الحلول" ، انقر نقراً مزدوجاً فوق العقدة المراجع وحدد إضافة مرجع.
  3. في مربع الحوار إضافة المرجع ، انقر فوق علامة التبويب COM ، وثم حدد Microsoft Jet و 2 كائنات النسخ المتماثل. س مكتبة. انقر فوق تحديد لإضافته إلى المكونات المحددة. انقر فوق موافق.

    ملاحظة: في هذه الخطوة، x عنصر نائب لرقم الإصدار الفعلي للمكون Microsoft Jet ومكتبة كائنات النسخ المتماثل.
  4. سيتم عرض تحذير إذا كان هناك لا برنامج التضمين للمكتبة المحددة. انقر فوق نعم لإنشاء برنامج تضمين. سيتم إضافة مراجع Microsoft ActiveX بيانات كائنات مكتبة (ADODB) و JRO إلى المشروع المراجع.
  5. في إطار "مستكشف الحلول"، انقر نقراً مزدوجاً فوق Module1.vb وانقر فوق عرض التعليمات البرمجية.
  6. احذف كافة التعليمات البرمجية من إطار التعليمات البرمجية.
  7. نسخ التعليمات البرمجية التالية ولصقها في إطار التعليمات البرمجية:
    Module Module1
    Sub Main()

    Dim jro As JRO.JetEngine

    jro = New JRO.JetEngine()

    jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\nwind.mdb", _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NewNwind.mdb;Jet OLEDB:Engine Type=5")

    MsgBox("Finished Compacting Database!")
    End Sub

    End Module

  8. تغيير المسار إلى ملفات.mdb المصدر و الوجهة بالشكل المناسب. اضغط F5 لبناء وتشغيل المشروع.

    وسوف تكون قاعدة البيانات المضغوطة بتنسيق Access 2000 (Jet 4.0). لتنسيق Jet مختلف، راجع "مراجع".

الأخطاء

لضغط قاعدة بيانات، مشغل قاعدة بيانات Jet تتطلب وصولاً خاصا إلى ملف قاعدة البيانات. سوف ينتج عن محاولة ضغط ملف قاعدة بيانات قيد الاستخدام في استثناء. يمكن اكتشاف هذا الاستثناء استخدام كتلة Try... التقاط بنية.

المراجع

للحصول على مزيد من التفاصيل حول.NET Framework وطبقه توافق COM، راجع:

عرض مكونات COM إلى.NET Framework
http://msdn2.microsoft.com/en-us/library/z6tx9dw3(vs.71).aspx
لمزيد من المعلومات حول استخدام ADO و JRO لضغط قاعدة بيانات Access، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف ل Microsoft":

كيفية ضغط قاعدة بيانات Microsoft Access بواسطة ADO 230501

خصائص

رقم الموضوع: 306287 - آخر مراجعة: 18‏/01‏/2017 - المراجعة: 1

تعليقات