الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود بحث

مغلق
بدأه أبو الحسن الفلسطيني في 13 يونيو 2007 · 4 رد · 1,153 مشاهدة · في قسم قواعد البيانات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

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

عندي Frem ويوجد به DBGrid1 و Command1 و Text1 و Data1 وقاعدة بيانات مربوطة بالمشروع عن طريق Data

أريد كود البحث والذي يعمل حينما أضغط رز البحث يظهر الأسماء المطابقة للاسم الموجود في Text1

وأريد أن هذا الكود لا يكون مقيد بالبحث عن الأسم كاملا يعني لو وضعت حرف مثلا (ب) يظر لي كل الأسماء التي تبدأ

بهذا الحرف أو لو كتبت اسم العائلة يظهر لي كل الأسماء التى تنتهي باسم هذة العائلة

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

بأن (الاسم غير موجود ) أنا عندي كود بس هذا الكود لا يبحث إلا بالاسم الأول ولكم هذا الكود

Private Sub Command1_Click()
Data1.RecordSource = "SELECT * FROM asr" & " WHERE Name LIKE '" & Text1.Text & "*'"
Data1.Refresh
End Sub

أرجو أن تكون الفكرة واضحة المطلوب وبارك الله فيكم

تم تعديل هذه المشاركة بواسطة أبو الحسن الفلسطيني في 13 يونيو 2007 في 09:55

#2

اضف كلمة Or لنص البحث وضع الحقول الاخرى مثل العائلة وضع النص بين * * للبحث عن الكلمة في اي مكان وليس فقط في البداية 

Data1.RecordSource = "SELECT * FROM asr" & " WHERE DB1 LIKE '" & Text2.Text & "*'  or  db2 like"	  '" & Text2.Text & "*'
Data1.Refresh

if data1.recordset.eof then
msgbox  "لا يوجد سجلات مطابقة للبحث"
end if

myblog.jpeg

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#3

بارك الله فيك يا أخي

الكود يا أخي لم يعمل عندي

#4

أخي الكريم TareqVB

تم وضع الكود الموجود عندي في المشاركة فوق كما هو موجود عندي

الرجاء الاطلاع وبارك الله فيك ويرت تصلحوا لي

#5 
Private Sub Command1_Click()
Data1.RecordSource = "SELECT * FROM asr" & " WHERE Name LIKE '*" & Text1.Text & "*'"
Data1.Refresh
if data1.recordset.eof then
msgbox  "لا يوجد سجلات مطابقة للبحث"
end if

End Sub

على افتراض ان Name يحوي الاسم الرباعي (لست متأكدأ من استخدام النجمة * لكن جرب ايضأ % )

myblog.jpeg

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

هذا الموضوع مغلق.

مواضيع مشابهة