الدرس الاول :شرح مفصل للبرمجة باستخدام VBA في Excel و Access

الدرس الثاني عشر: التعامل مع قاعدة بيانات Access باستخدام VBA

 

الدرس الثاني عشر: التعامل مع قاعدة بيانات Access باستخدام VBA

مقدمة:

في هذا الدرس، سنتعرف على كيفية استخدام VBA للتفاعل مع قاعدة بيانات Access. سوف نغطي كيفية قراءة البيانات من جداول Access باستخدام ADO (ActiveX Data Objects)، بالإضافة إلى كيفية إدخال البيانات وتحديث الجداول.

---

1. قراءة البيانات من قاعدة بيانات Access باستخدام ADO

Sub ReadFromAccessDatabase()
    Dim db As Object
    Dim rs As Object
    Dim sqlQuery As String
    Dim connectionString As String
    
    ' إنشاء سلسلة الاتصال بقاعدة البيانات
    connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb"
    
    ' إنشاء الاتصال بقاعدة البيانات
    Set db = CreateObject("ADODB.Connection")
    db.Open connectionString
    
    ' استعلام SQL لقراءة البيانات
    sqlQuery = "SELECT * FROM YourTable"
    Set rs = db.Execute(sqlQuery)
    
    ' التكرار عبر السجلات وعرض البيانات
    Do While Not rs.EOF
        Debug.Print rs.Fields(0).Value ' عرض القيمة في نافذة Immediate
        rs.MoveNext ' الانتقال للسجل التالي
    Loop
    
    ' إغلاق الاتصال
    rs.Close
    db.Close
End Sub

شرح الكود:

• CreateObject("ADODB.Connection"): يُستخدم لإنشاء اتصال إلى قاعدة بيانات Access باستخدام ADO.
• connectionString: هذه هي سلسلة الاتصال التي تحتوي على المسار إلى قاعدة البيانات.
• sqlQuery = "SELECT * FROM YourTable": هذا هو الاستعلام الذي يقوم بقراءة جميع البيانات من الجدول YourTable.
• rs.Fields(0).Value: يعرض القيمة من العمود الأول في السجل الحالي.
• rs.MoveNext: ينتقل إلى السجل التالي.
• rs.Close: يغلق المؤشر بعد الانتهاء.
• db.Close: يُغلق الاتصال بقاعدة البيانات.

التفاصيل :

• ADO هو الخيار الأكثر شيوعًا للتفاعل مع Access في VBA. يتميز ADO بالمرونة وسهولة الاستخدام.

• إذا كنت تريد تحسين الأداء عند التعامل مع استعلامات كبيرة في Access، يمكنك تشغيل إغلاق تحديثات الشاشة مع إلغاء حسابات Excel أثناء تشغيل الاستعلامات.

  
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual

---

خاتمة:

تعلمنا في هذا الدرس كيفية قراءة البيانات من قاعدة بيانات Access باستخدام ADO. في الدرس القادم، سنتعرف على كيفية إدخال البيانات إلى قاعدة بيانات Access باستخدام VBA.

---

تنويه للدرس القادم:

"في الدرس التالي، سنتعلم كيفية إدخال البيانات إلى قاعدة بيانات Access باستخدام VBA. سنغطي الاستعلامات لإدخال البيانات وإدارتها بفعالية."

تعديل المقال