تعلم كيف تربط برنامجك بالاكسس باستخدام مكتية Ado مع العمليات الاساسية

اعضاء المنتدى الكريم بعد السلام والتحية
لعل الكثير من المبرمجون المبتدئين يتسالون عن الاختلاف بين ادوت الربط المحتلفة وايهما افضل وكثر الحديث عن ذلك فالأغلبية الشائعة فى هذا المنتدى يستخدم طريقة الربط عبر الكود البرمجى نسبة لسهولتها فى تحقيق الهدف المنشود
لا اطيل الحديث كثيرا فموضوعنا يتكلم عن كيفية ربط البرنامج بالاكسس عن طريق الكود مع العمليات المختلفة فى قواعد البيانات مثل :
الاضاف - والحفظ - والتعديل - والحذف - ووضع النتيجة على اداة العرض MSFlexGrid

** يتم التطبيق فى درسنا هذا على دليل هاتف مصغر لتسهيل عمليه الشرح والفهم **

نبدأ الشرح

أنشئ قاعدة بيانات اكسس وسميها Telephone وإنشئ ايضاً جدول وسميه Tabel1 ثم اضف ثلاث حقول :

رقمى = Num
نصى = Nme
رقمى = Phone

متطلبات البرنامج :
(3 ليبل) *(3 تكست)*(4 كوماند)*(1 اداة عرض MSFlexGrid)
الادوات الثلاث الاولى موجودة لاضافة اداة العرض MSFlexGrid اتبع الاتى :

References --->> Compontes --->> Microsift FlixGrid Control 6.0

* تم تقسيم الشرح على ثلاثة اجزاء :

الجزء الاول : الفورم

ارسم الادوات على الفورم وغير التسمية كالاتى :

الرقم = Label1
الإسم = Label2
رقم الهاتف = Label3
♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦
إضافة = Command1
حفظ = Command2
تعديل = Command3
حذف = Command4
خروج = Command5
من خصائص الــ MSFlexGrid إجعل الخصاية Right ToLeft = True
ليكون تصميم النموزج او الفورم على هذا الشكل :

** او إختر مايناسبك فى تصميم النموزج **

الجزء الثانى : أداة ربط قاعدة البيانات Ado

نضيف اداة الاتصال بقاعدة البيانات :
من الخصائص اذهب فى الاعلى الى قائمة Project ومن ثم اختر References وابحث عن Microsoft ActiveX Data Obiects 2.8 Libray او اى اصدارة من الاصدارات الخمسة الاخرى

الجزء الثالث: الاكواد

☼ أنشئ ثلاث متغيرات فى قسم التصريحات General Declarations :

كود :

Dim db As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim sql As String

السطر الاول : للاتصال بقاعدة البيانات
السطر الثانى : للاتصال بالجدوال فى قاعدة البياناتالسطر الثالث : تعريف متغير منوع String

كود :

Sub Filldata()

If rs.State = 1 Then rs.Close

rs.Open "Tabel1", db, adOpenStatic, adLockPessimistic

MSFlexGrid1.Rows = rs.RecordCount + 1

MSFlexGrid1.Cols = 3

MSFlexGrid1.ColWidth(0) = 800

MSFlexGrid1.ColWidth(1) = 3500

MSFlexGrid1.ColWidth(2) = 3100

MSFlexGrid1.ColAlignment(-1) = 3

MSFlexGrid1.TextMatrix(0, 0) = "الرقم"

MSFlexGrid1.TextMatrix(0, 1) = "الإســـــــــــم"

MSFlexGrid1.TextMatrix(0, 2) = "رقم الهـــــــــاتف"

For i = 1 To rs.RecordCount

MSFlexGrid1.TextMatrix(i, 0) = rs!Num

MSFlexGrid1.TextMatrix(i, 1) = rs!Nme

MSFlexGrid1.TextMatrix(i, 2) = rs!Phone

rs.MoveNext

Next

End Sub