قد يتساءل البعض عن مكتبة ADO ما هي وما فائدتها وكيف يمكن استغلالها من خلال لغة الفيجوال بيسك 6.0 ؟؟ .
- ADO هي اختصار لMicrosoft ActiveX Data Object
- مكتبة ADO تعتبر الأسلوب الجديد ( قبل الأداة الجديدة ( ADO.NET للتعامل مع قاعد البيانات بعيدا عن
البرنامج الأم الذي أنشئت منها قاعدة البيانات .. فمثلا يمكننا الاتصال وقراءة محتويات قاعدة بيانات اكسيس
Access بدون الحاجة لوجود Access فهذه المكتبة توفر خدمة الاتصال والإجراءات المختلفة للتعامل معها .
- إما كيفية استغلالها فهذا ما سوف نتعرف علية في السطور القليلة القادمة .
أولا وقبل إن نبدأ بأي خطوة علينا توفير مكتبة ADO للمشروع . ولتوفيرها نتبع الخطوات التالية :
وبعد فتح مشروع جديد :
من خلال القائمة نختار Project ثم References … بعدها سوف تظهر نافذة معنونة بي References – Project1 وتحتوى هذه النافذة على مكتبات عديدة وما يهمنا منها هي مكتبة ADO وسوف نجدها باسم Microsoft ActiveX Data Objects 2.X Library .
وال X يعبر عن الإصدار المثبت على جهازك . وهناك إصدارات عديدة من هذه المكتبة وكلها تقريبا بالشكل التالي :
1- Microsoft ActiveX Data Objects 2.0 Library
2- Microsoft ActiveX Data Objects 2.1 Library
3- Microsoft ActiveX Data Objects 2.5 Library
4- Microsoft ActiveX Data Objects 2.6 Library
5- Microsoft ActiveX Data Objects 2.7 Library
بعد إن تختار أحدها سنكون بهذه الخطوة قد أمنا مكتبة ADO لمشروعنا .
وألان وبعد تأمين مكتبة الADO فيمكننا الشروع في العمل , وستكون خطة العمل كالتالي :
المستوى الأول
1- كيفية إجراء اتصال مع قواعد البيانات . 6- التصفية .( Filter )
2- كيفية فتح الجداول . 7- الفرز ( Sort ).
3- طريقة عرض السجلات . a. تصاعدي.
4- إدخال البيانات ، تحريها ، حذفها . b. تنازلي
5- عملية البحث ( Search )
.a بحث بحالة الأحرف
.b بحث شامل
كيفية إجراء اتصال مع قواعد البيانات :
لإجراء اتصال مع قاعد البيانات اكسيس تكون بالتالي :
نضع المتغير في قسم الجنرال General :
Dim db As New ADODB.Connection
ونضع الكود التالي في FORM_LOAD( )
Private Sub Form_Load( )
db.Provider = "Microsoft.JET.OLEDB.4.0؛"
db.Open App.Path & "\db1.mdb"
MsgBox "تم الاتصال بقاعدة البيانات"
End Sub
شرح الكود
db.Provider = "Microsoft.JET.OLEDB.4.0;"
والاستفادة من هذا السطر هو تحديد المزود الذي سنتصل من خلاله بقاعدة البيانات إن كانت اكسيس آو آس كيول وغيرها.
هو ا لخاص بقواعد بيانات اكسيس . Microsoft.JET.OLEDB.4.0 فالمزود
db.Open App.Path & "\db1.mdb "
والغرض منه تحديد مسار قاعدة البيانات ... db1.mdb هو اسم قاعدة البيانات.
بالخطوات السابقة انتهينا من عملية الاتصال مع قواعد بيانات اكسيس.
كيفية فتح الجداول .
سابقا قد تعرفنا على هوية الأكواد التي نستطيع من خلالها فتح اتصال مع قواعد البيانات والآن ننتقل إلى الخطوة التالية
وهي كيفية فتح الجداول الموجودة في قاعدة البيانات .ولكي نفتح جدول في قاعدة البيانات يجب أولا تأمين اتصال مع
قاعدة البيانات الموجود بها الجدول المراد فتحة . يعني نستخدم الكود السابق لتفح قاعدة البيانات مع زيادة طفيفة
وهي كالتالي:
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load( )
db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open App.Path & "\db1.mdb"
rs.Open "[Table1]", db, adOpenStatic, adLockReadOnly
End Sub
الشرح:
أنظر للمتغير rs حيث أسندنا إليه خصائص Recordset وهو الذي يُعنى بكل العمليات التي تجرئ على الجداول من
فتح وحذف وتعديل و ....الخ .
وأيضا لاحظ السطر
rs.Open "[Table1]", db, adOpenStatic, adLockReadOnly
حيث الجدول هنا هو Table1 و db تحدد الجدول الموجود في قاعدة البيانات .
طريقة عرض السجلات :
تعرفنا آنفا كيفية أجراء اتصال مع قواعد البيانات ومن ثم تعرضنا لطريقة فتح الجداول و ألان بمشيئة
الله سنتعلم كيفية عرض السجلات ، والإبحار ما بينها .وهنا سوف نحتاج إلى نشاء بعض الأدوات وتعريفها بالشكل المناسب كالصناديق النصوص Text Box وال label وبعض المفاتيح Command
- ADO هي اختصار لMicrosoft ActiveX Data Object
- مكتبة ADO تعتبر الأسلوب الجديد ( قبل الأداة الجديدة ( ADO.NET للتعامل مع قاعد البيانات بعيدا عن
البرنامج الأم الذي أنشئت منها قاعدة البيانات .. فمثلا يمكننا الاتصال وقراءة محتويات قاعدة بيانات اكسيس
Access بدون الحاجة لوجود Access فهذه المكتبة توفر خدمة الاتصال والإجراءات المختلفة للتعامل معها .
- إما كيفية استغلالها فهذا ما سوف نتعرف علية في السطور القليلة القادمة .
أولا وقبل إن نبدأ بأي خطوة علينا توفير مكتبة ADO للمشروع . ولتوفيرها نتبع الخطوات التالية :
وبعد فتح مشروع جديد :
من خلال القائمة نختار Project ثم References … بعدها سوف تظهر نافذة معنونة بي References – Project1 وتحتوى هذه النافذة على مكتبات عديدة وما يهمنا منها هي مكتبة ADO وسوف نجدها باسم Microsoft ActiveX Data Objects 2.X Library .
وال X يعبر عن الإصدار المثبت على جهازك . وهناك إصدارات عديدة من هذه المكتبة وكلها تقريبا بالشكل التالي :
1- Microsoft ActiveX Data Objects 2.0 Library
2- Microsoft ActiveX Data Objects 2.1 Library
3- Microsoft ActiveX Data Objects 2.5 Library
4- Microsoft ActiveX Data Objects 2.6 Library
5- Microsoft ActiveX Data Objects 2.7 Library
بعد إن تختار أحدها سنكون بهذه الخطوة قد أمنا مكتبة ADO لمشروعنا .
وألان وبعد تأمين مكتبة الADO فيمكننا الشروع في العمل , وستكون خطة العمل كالتالي :
المستوى الأول
1- كيفية إجراء اتصال مع قواعد البيانات . 6- التصفية .( Filter )
2- كيفية فتح الجداول . 7- الفرز ( Sort ).
3- طريقة عرض السجلات . a. تصاعدي.
4- إدخال البيانات ، تحريها ، حذفها . b. تنازلي
5- عملية البحث ( Search )
.a بحث بحالة الأحرف
.b بحث شامل
كيفية إجراء اتصال مع قواعد البيانات :
لإجراء اتصال مع قاعد البيانات اكسيس تكون بالتالي :
نضع المتغير في قسم الجنرال General :
Dim db As New ADODB.Connection
ونضع الكود التالي في FORM_LOAD( )
Private Sub Form_Load( )
db.Provider = "Microsoft.JET.OLEDB.4.0؛"
db.Open App.Path & "\db1.mdb"
MsgBox "تم الاتصال بقاعدة البيانات"
End Sub
شرح الكود
db.Provider = "Microsoft.JET.OLEDB.4.0;"
والاستفادة من هذا السطر هو تحديد المزود الذي سنتصل من خلاله بقاعدة البيانات إن كانت اكسيس آو آس كيول وغيرها.
هو ا لخاص بقواعد بيانات اكسيس . Microsoft.JET.OLEDB.4.0 فالمزود
db.Open App.Path & "\db1.mdb "
والغرض منه تحديد مسار قاعدة البيانات ... db1.mdb هو اسم قاعدة البيانات.
بالخطوات السابقة انتهينا من عملية الاتصال مع قواعد بيانات اكسيس.
كيفية فتح الجداول .
سابقا قد تعرفنا على هوية الأكواد التي نستطيع من خلالها فتح اتصال مع قواعد البيانات والآن ننتقل إلى الخطوة التالية
وهي كيفية فتح الجداول الموجودة في قاعدة البيانات .ولكي نفتح جدول في قاعدة البيانات يجب أولا تأمين اتصال مع
قاعدة البيانات الموجود بها الجدول المراد فتحة . يعني نستخدم الكود السابق لتفح قاعدة البيانات مع زيادة طفيفة
وهي كالتالي:
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load( )
db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open App.Path & "\db1.mdb"
rs.Open "[Table1]", db, adOpenStatic, adLockReadOnly
End Sub
الشرح:
أنظر للمتغير rs حيث أسندنا إليه خصائص Recordset وهو الذي يُعنى بكل العمليات التي تجرئ على الجداول من
فتح وحذف وتعديل و ....الخ .
وأيضا لاحظ السطر
rs.Open "[Table1]", db, adOpenStatic, adLockReadOnly
حيث الجدول هنا هو Table1 و db تحدد الجدول الموجود في قاعدة البيانات .
طريقة عرض السجلات :
تعرفنا آنفا كيفية أجراء اتصال مع قواعد البيانات ومن ثم تعرضنا لطريقة فتح الجداول و ألان بمشيئة
الله سنتعلم كيفية عرض السجلات ، والإبحار ما بينها .وهنا سوف نحتاج إلى نشاء بعض الأدوات وتعريفها بالشكل المناسب كالصناديق النصوص Text Box وال label وبعض المفاتيح Command