بداية وحتى يتم الشرح الكافي لهذا الدرس
سنفرض ان مشروعنا سيكون عن طريقه عمل فهرس هواتف بالفيجوال بيسك
الان:
اولا: نذهب الى الاكسس2000 وننشئ قاعده بيانات جديده بأي اسم تختاره و نضيف اليها جدول جديد به الحقول التاليه
No نوع بياناته رقم ( وهو مفتاح اساسي )
Name نوع بياناته نص
Tel نوع بياناته رقم
ونترك الجدول بدون بيانات حتى نملأها فيما بعد بالفيجوال بيسك
وهذه صوره عن الاكسس
-----------------
-----------------
الان سنبدأ بالعمل مع الفيجوال بيسك ونبدا باختيار مشروع جديد من نوع standerd.exe
والان بعد ان اخترنا المشروع نبدا بتصميم الفورم بوضوع 3 label و ايضا 3text
And 8 command
ونرتبها ترتيب جيد وهذا الشكل النهائي لها
----------------
---------------
هذا هو التصميم وهذا ما سيكون عم الازرار التي وضعناها
الان بقي علينا
1/ ربط قاعده البيانات
2/ كتابه الاكواد في جميع الازرار
اولا: ربط قاعده البيانات ولهذا الغرض نحتاج الى اداه تدعى Ado
هذه الاداه تربط قواعد بيانات اكسس2000
هذه الاداه حاليا غير متوفره في صندوق الاداوات ويجب علينا احضارها من قائمه
Project >>commbonent
>>Microsoft ADO Data control6.0 ..
-----------------------
----------------------
هكذا سيكون شكل الاداة في مربع الادوات
---------------------
---------------------
الان نضيف هذه الاداة على مشروعنا وهكذا سيصبح شكل الاداه على الفورم
--------------------
--------------------
الان بعد اضافه هذه الاداه سننتقل الى نقطه مهمه جدا وعليها يعتمد نجاح هذا المشروع وهي ربط الاداه بقاعده البيانات
والان ساوضح لكم الخطوات بالصور
اولا نحدد الاداه ونذهب الى نافذه الخصائص ونختار الخاصيه custom
وعندها ستظهر لنا نافذه جديده وهذا ما سنفعله معها
نختار اخر خيار من النافذه وهذا الخيار يوضح للمترجم الخاص بلغه البيسك اننا سوف نقوم ببناء الرابط بين الاداه وقاعده البيانات بايدينا
ننقر على زر Buld
وستظهر لنا قائمه بها الكثير من الخيارات ويلزمنا من هذه النافذه خيار واحد وهوه
Microsoft jet 4.0 ole db provider
--------------------
-------------------
بعد تحديد هذا الخيار ننقر زر التالي
------------------
------------------
من هذا الخيار المحدد نحدد اسم قاعده البيانات عن طريق النقر على الزر الذي يحوي ...نقط
وبعد ذلك ننقر زر OK
وبعد ذلك نختار زر Apply حتى يتم التطبيق الفوري لما فعلناه
والان من نفس النافذه سوف نذهب لنحدد جدول قاعده البيانات الذي سنرتبط به وذلك كالاتي
من نفس النافذه نختار التبوبيب
Record Sorce
وبعد ذلك في اول اختيار نختار
Ad cmdtabel
ومن الخيار الثاني نحدد اسم الجدول
Tel
وهذه الصور النهائيه
--------------------------
-------------------------
وبعد ذلك OK
اذا كانت الخطوات لحد الان صحيحه فهذا يعني انك ربطت قاعده البيانات بالفيجوال
والان نريد ان تظهر البيانات
لذلك نذهب الى اول text الذي سيمثل الرقم ونحدده ونغير الخصائص له كالتالي
---------------------------
--------------------------
نقوم اولا بتغيير خاصيه data scorce
لانه بدونها لن يتم عرض الحقول
ونفعل نفس العمل مع باقي text
الان وصلنا لمرحلة كتابه الكود
والان ننقر على زر اضافه
ونكتب بداخله التالي
Adodc1.Recordset.AddNew
والان لزر التعديل نكتب
Adodc1.Recordset.Update
لزر حذف نكتب
Adodc1.Recordset.Delete
Adodc1.Recordset.MovePrevious
لزر الحفظ نكتب
Adodc1.Recordset.Save
والان نريد برمجه ازرار السابق والتالي والاول والاخير
السابق
Adodc1.Recordset.MovePrevious
التالي
Adodc1.Recordset.MoveNext
الاول
Adodc1.Recordset.MoveFirst
الاخير
Adodc1.Recordset.MoveLast
والمشروع في الملف المرفق
ارجو لكم الاستفاده من معلوماتي القليله عن ربط قواعد البيانات