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

Ado And Find

مغلق
بدأه aidel2000sa في 21 نوفمبر 2001 · 3 رد · 590 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انا ابرمج على VISUAL BASIC 6 واستخدمت DATA CONTROL ADO وارغب في استخدام دالة البحث FIND لكن لاتوجد خاصية تدل على ان الداله FIND وجدت السجل المطلوب مثل الخاصيه MATCH في DAO القديم هل من الممكن ممساعدتي في ايجاد حل لمعرفة ان كان السجل موجود او لا :

الكود الموجود لدي

AdoRm.Recordset.Find "[MassgeNum] = " & NoOfM & "", adSearchForward

#3

لا أعرف البديل عن MATCH ولكن قد ينفع معك استخدام طريقتين :

1- البحث وسلسلة تكرار

قد يكون الكود شبيها بالتالي :

rs.MoveFirst
rs.Find "اسم حقل='بيانات معينة'"
If rs.EOF Then
    MsgBox "لايوجد سجلات تطابق معايير البحث"
    Else
    While rs.Fields("اسم الحقل السابق") = "'بيانات'"
    rs.MoveNext
    If rs.EOF Then Exit Sub
    Wend
End If

2- تطبيق فلتر ومعرفة عدد السجلات بعد التطبيق أو الإنتقال الى السجلات التي تم العثور عليها .

ولك تحياتي

#4

مشكور اخ مصرواي على الملاحظه :)

اخ ابو حمود مشكور على الاجابه وسرعة الاستجابه :)

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

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