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

[ تمت الإجابة ]البحث في اداهmsflexgrib1

بدأه عبدالسلام مصطفى في 5 مايو 2009 · 4 رد · 599 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمه الله وبركاته

كيفكم أخواني انا عامل برنامج معامل فيه أداهmsflexgrib1

وقمت بعمل كود بحث بين تاريخين وتم بنجاح

ولكنى اريد معرفه عمل كود البحث بالاسم فيها

ولكم منى جزير الشكر

#2

ما الفرق؟

هل تتعامل عند البحث مع MSFlexGrid مباشرة أم أنك تبحث في قاعدة بيانات ثم تعرض النتائج فيها؟

أرجو وضع كود البحث بين التاريخين.

بالتوفيق

هذه الجملة خاطئة  :wacko: 


#3

مشكو اخي الكريم على الرد والاهتمام

وهذا هو كود البحث بين تاريخين

If RS.State = adStateOpen Then RS.Close

RS.Open "SELECT * FROM [t2] WHERE [الاسم] Between #" & Text1.Text & "# AND #" & Text2.Text & "#", DB, adOpenStatic, adLockReadOnly

'

Call AddRecord

End Sub

#4

إذن سيكون البحث عن الاسم كالتالي:

If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [t2] WHERE NameField = '" &Text1.Text & "'", DB, adOpenStatic, adLockReadOnly
Call AddRecord

باعتبار أن NameField هو الحقل الذي فيه الاسم وتريد أن تبحث فيه.

طبعاً هذه العملية تعطيك الأسماء التي تطابق النص حرفياً، أما إذا أردت البحث بالأسماء المشابهة فاجعلها هكذا:

RS.Open "SELECT * FROM [t2] WHERE NameField LIKE '%" &Text1.Text & "%'", DB, adOpenStatic, adLockReadOnly
Call AddRecord

بالتوفيق

هذه الجملة خاطئة  :wacko: 


#5

السلام عليكم ورحمه الله وبركات مشكور اخى على هذا المجهود الكبير وجزاك الله خير عنى

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