كيفية برمجة برنامج دليل الهاتف

فكرة البرنامج
تعتمد فكرة البرنامج على أن البرنامج يأخذ البيانات التي تدخلها أنت في البرنامج ويقوم بتسجيلها في قاعدة بيانات

ما الذي سوف نتعلمه منن هذا الدرس
1. سوف نتعلم كيفية ربط برنامج بقاعدة بيانات
2. سوف نتعلم الأوامر الخاصة بقاعدة البيانات
3. سوف نتعلم كيفية البحث عن سجل في القاعدة
برنامج الفيجوال بيسك 6
الأكسس
خطوات العمل
إضغط على الفورم ضبل كليك وأكتب فية الأاتى فى المكان الذي بين السطرين الموجودين
كود:
Combo1.AddItem "بحث بواسطة رقم المنزل 1"
Combo1.AddItem "بحث بواسطة الأسم"
Combo1.AddItem "بحث بواسطة العنوان"
Combo1.AddItem "بحث بواسطة رقم الجوال 1"
Combo1.AddItem "بحث بواسطةرقم الجوال 2"
Combo1.AddItem "بحث بواسطة رقم المنزل 2"
Combo1.AddItem "بحث بواسطة رقم العمل"
Combo1.AddItem "بحث بواسطة البريد الإلكترونى"
Combo1.AddItem "بحث بواسطة الموقع الشخصى"

On Error GoTo data_error
Data1.DatabaseName = App.Path & "\tell.mdb"
Data1.*******
Data1.Recordset.AddNew
Exit Sub
data_error:
MsgBox "لم يتم العثور على قاعدة البيانات", vbCritical, "خطأ"
ثم إضغط على زر الإضافة ضبل كليك وأضف هذا الكود فية
كود:
Data1.Recordset.AddNew
ثم إضغط على زر التعديل وأضف هذا الكود
كود:
Data1.*******
ثم زر الحذف وأضف هضا الكود
كود:
On Error GoTo data_error
If MsgBox("هل تريد حذف السجل بالتأكيد؟", vbQuestion + vbYesNo, "تأكيد حذف") = vbYes Then

Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
Exit Sub
data_error:
MsgBox "لم يبقى سجلات", vbCritical, "خطأ"
ثم زر الإنتقال لليمين
كود:
On Error Resume Next

Data1.Recordset.MoveNext
ثم زر الشمال
كود:
On Error Resume Next

Data1.Recordset.MovePrevious
ثم زر البحث
كود:
Select Case Combo1.ListIndex
Case 0
Data1.RecordSource = (" select * from dalel where tell=" + "'" + Text10.Text + "'")
Data1.*******
Case 1
Data1.RecordSource = (" select * from dalel where name=" + "'" + Text10.Text + "'")
Data1.*******
Case 2
Data1.RecordSource = (" select * from dalel where adr=" + "'" + Text10.Text + "'")
Data1.*******
Case 3
Data1.RecordSource = (" select * from dalel where mopilno=" + "'" + Text10.Text + "'")
Data1.*******
Case 4
Data1.RecordSource = (" select * from dalel where mopi2no=" + "'" + Text10.Text + "'")
Data1.*******
Case 5
Data1.RecordSource = (" select * from dalel where home2no=" + "'" + Text10.Text + "'")
Data1.*******
Case 6
Data1.RecordSource = (" select * from dalel where workno=" + "'" + Text10.Text + "'")
Data1.*******
Case 7
Data1.RecordSource = (" select * from dalel where email=" + "'" + Text10.Text + "'")
Data1.*******
Case 8
Data1.RecordSource = (" select * from dalel where wep=" + "'" + Text10.Text + "'")
Data1.*******
End Select
ملحوظة يجب عليك أن تكتب هذة الكلمة مكان ******* النجوم فى كل الأاكواد لأنها من الواضح أنها مشفرة فى المنتدي وإنى كتبتها فى صورة لتنقلوها[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
منقول من منتديات المشاغب

ايضا مشروع عملى جميل للتعامل مع الفيجول وقواعد بيانات اكسس
شكرا اخى الكريم

بارك الله فيك اخوووى حبيب العمر

شكرا اخى على الطرح الرائع

شكرا اخى حبيب العمر
كان منا الاضفل يا اخى ان تضع اكواد فى احاطه حتى يتم فصلها عن الكلام العادى
مع شكرى على جهدك

شكرا اخى الاستاذ حبيب العمر

لماذا الصور لم تظهر في الشرح رجاءا

اخى الكريم الاستاذ باسم الساحر
كل عام وحضرتك طيب اخى الحبيب .. انتظر منى يا غالى درس بالصور يشرح كيفيه التعامل مع قواعد البيانات
بالفيجول بيسك نت2008 .. وبطريقه سهله واسف على عدم ظهور الصور لانه يبدو ان اخونا الكريم حبيب العمر
نقل المشاركه وقد فقدت من موقعها الاصلى .. انتظر حبيب قلبى فى اقرب فرصه وغالبا بعد شهر رمضان لضيق الوقت كما تعرف حضرتك سابدأ وبمشيئة الرحمن الرحيم على هيئة دروس منفصله حتى يتم الاتقان والتجربة فى تطبيقات متنوعه .. فقد انتهى عهد فيجول بيسك 6 ولم يعد احدا يعمل به الان يا غالى وكل عام وحضرتك بخير

اشكرك اخي الاستاذ حبيب العمر للمساهمة الجميلة
وموصول الشكر للاستاذ القدير منعم ابو طالب للتعقيب الجميل ولنيته القيام باعداد شرح عن كيفية التعامل مع قاعدة البيانات بطريقة اسهل
وتقبل اجمل التهاني والتبريكات