[ Visual Basic 6 ] كل طرق البحث في قواعد البيانات كامله

تم تحميل الصفحة في 0,6021104 ثانية
كل طرق البحث في قواعد البيانات كامله
إنضم
8 مايو 2009
المشاركات
1,436
الإعجابات
579
النقاط
113
بسم الله الرحمن الرحيم

سوف نتناول في هذا الدرس طرق البحث في قواعد البيانات بإستخدام الفيجوال بيسك
طبعاً سوف أقوم بشرح عدّة طرق حتى نتوصل إلى الطريقة المثلى بإذنه تعالى ..

الطريقة الأولى - الأمر seek :
هذه الطريقة تعد من أبسط الطرق و أسهلها خصوصاً على المبتدئين و تعطي نتائج مبدئياً لا بأس بها
كيفية الاستخدام .. عن طريق الكود التالي
ضع زر أمر بعنوان بحث 1 ضع فيه الكود التالي

Code
كود:
Dim search

search = inputbox("أدخل اسم الشخص المراد البحث عنه",,"مختار سيد صالح")

Data1.Recordset.Index = "name"

Data1.Recordset.Seek ">=", search

If Data1.Recordset.NoMatch Then

MsgBox "السجل غير موجود", 16, "مراقب البرنامج"

End If
ملاحظة : البرنامج هنا يبحث في الاسماء .. لجعل البحث في العنوان مثلاً استبدل name ب en و هو اسم حقل العنوان الموجود في قاعدة البيانات

الطريقة الثانية - البداية مع sql :
تعتمد هذه الطريقة على لغة SQL بشكل أساسي و هي لغة تستخدم للتعامل مع قواعد البيانات .. اذا لم تكن تعرف ما هي SQL ولا يهمك و لا تشيل هم .
اضف زر أمر بعنوان بحث 2
ضع فيه الكود التالي


Code

Dim
كود:
 search2

search2 = inputbox("أدخل اسم الشخص المراد البحث عنه",,"مختار سيد صالح")

data1.RecordSource = "SELECT * FROM mok WHERE name='" & search2 & "'"

data1.[B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B]
ملاحظة : هذه الطريقة تظهر النتائج على أنها جدول جديد في قاعدة البيانات لذلك لا تستغرب إذا لم بعرض سوى النتائج في الفورم
ملاحظة 2 : بدون تطبيق المنهج ******* فإن العملية لن تتم لذلك إنتبه فلنا عودة على هذه النقطة

الطريقة الثالثة - تطوير التعامل مع sql :
إذا حاولت البحث في الطريقة الثانية عن اسم مختار مثلاً
و كان عندك سجل شخص أسمه ((مختار سيد صالح)) فإنه لن يظهر لك شيء .. هذا مزعج
طيب افرض أنو بدك تبحث عن كل السجلات التي يحتوي حقل الاسم فيها على كلمة ((مختار))
مثلاً ((أحمد مختار - على مختار محمد - مختار سيد صالح)) يعني بحث ممتاز جداً
إذن فالطريقة السابقة لا تنفع أما الآن سوف أقول لك كيف تتطور الطريقة السابقة و تخليها تنفع ...

استبدل الكود السابق بالكود التالي


Code

كود:
Dim search2

search2 = inputbox("أدخل اسم الشخص المراد البحث عنه",,"مختار سيد صالح")

Data1.RecordSource = "SELECT * FROM mok WHERE name LIKE (""" & "*" & search2 & "*" & """)"

data1.[B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B]
لاحظ أنه لم يتغير شيء من الكود سوى جمله الاستعلام ...

ملاحظة : أنا أفضل الطريقة الأخيرة للبحث عن الاسماء و العناوين و ليس للأرقام لأنها يمكن تسبب إشكالات

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

كود:
Vardate = "*" & CDate(Date) & "*"

Data1.RecordSource = "SELECT * FROM mok WHERE Date like " & "'" & Vardate & "'" & " "

Data1.[B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B]

ملاحظة : الكود السابق للبحث عن التاريخ لتاريخ اليوم ((تاريخ الجهاز)) يمكنك تطوير المسألة على كيفك

ملاحظات عامة على الدرس :

تعبر الكلمة mok عن إسم الجدول
أما الكلمات name , date , en فهي أسماء الحقول

التطبيق العملي أفضل وسيلة للتعلم الجيد
 

anT!-Tr0J4n

.:: Legends DeveloPer ::.
rankrankrankrankrankrank
إنضم
7 يناير 2008
المشاركات
5,504
الإعجابات
388
النقاط
83
رد: كل طرق البحث في قواعد البيانات كامله

يعطيك الف عافية يابطل

واصل ابداعاتك :25:
 

ξѝơɗ

ExpErt DeveloPer
rankrankrankrankrankrank
إنضم
26 أبريل 2009
المشاركات
3,105
الإعجابات
152
النقاط
0
رد: كل طرق البحث في قواعد البيانات كامله

يسلموو

كنت أبغى أحد يذكرني بالدرس ذا

<< الذاكرة مش ولا بد :26:

يعطيك العافية
 
إنضم
8 مايو 2009
المشاركات
1,436
الإعجابات
579
النقاط
113
رد: كل طرق البحث في قواعد البيانات كامله

جزاكم الله خيراا على مروركم الذي شرفني
 
إنضم
3 مايو 2009
المشاركات
1,223
الإعجابات
271
النقاط
83
رد: كل طرق البحث في قواعد البيانات كامله

مشكوور اخي ويعطيك العافية
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل