الحصول على خصائص الحقول في قاعدة بيانات أكسس

يمكن الحصول على مواصفات حقول جدول ضمن قاعدة بيانات أكسس من خلال مكتبة AdoDb وذلك بالطريقة التالية:

- قم بإضافة مكتبة Microsoft ActiveX Data Objects 2.8 Library عن طريق اختيار الأمر References من قائمة Project

- قم بوضع الكود التالي في قسم التصريحات العامة General للنموذج:

Dim con As New Connection
Dim rs As New Recordset

- قم بإضافة مربع قائمة ListBox من مربع الأدوات

- أضف الكود التالي في حدث تحميل النموذج:

Private Sub Form_Load()
Dim fld As Field
con.Provider = "microsoft.jet.oledb.4.0"
con.Open App.Path + "\db.mdb"
rs.Open "[Table]", con, adOpenKeyset, adLockOptimistic
For Each fld In rs.Fields
List1.AddItem "Field Name: " & fld.Name & vbTab & "Field Type: " & fld.Type
Next
End Sub

- قم بتشغيل البرنامج

والقائمة التالية توضح الوصف المقابل لبعض قيم أنواع الحقول في مكتبة ADO:

وهذا المثال يوضح الفكرة:

DB.zip

مع تحياتي