الاخوان اعضاء المنتدى ارجو المساعده وبسرعه وما عليكم امر:)
انا ابرمج على فيجول بيسك 6 واستخدمت ADO DATA CONTROL للربط مع قاعدة البيانات وارغب في البحث في قاعدة البيانات باستخدام FIND ولكن للاسف لم اجد طريقة لمعرفة هل وجد السجل المطلوب ام لا ، حاولت بهذا الكود لم ينجح :
rs.MoveFirst
rs.Find "اسم حقل='بيانات معينة'"
If rs.EOF Then
MsgBox "لايوجد سجلات تطابق معايير البحث"
end if
حيث لم يتحقق شرط eof
اخي العزيز
حاول استخدام rs.nomatch بدلا من rs.eof
و rs.findfirst بدلا من rs.find
اذا لم ينجح هذا الامر اعطني تفاصيل اكثر
تحياتي لكم جميعا
السلام عليكم ورحمة الله وبركاته
اعتقد انه يجب ان تدخل اسم داتا كونترول اولا ثم نقطة ثم اسم مجموعة السجلات ثم نقطة ثم find
مثل
DataControlName.Recordset.movefirst
DataControlName.recordset.find البيانات
dATACONTROL1.RECORDSET.FIND
ثم للمقارنة
DATACONTOR.RECORDSET.EOF = TRUE THEN
لا يوجد بيانات
ELSE
يوجد بيانات
END IF
ولك تحياتى
الاخ semsem الخاصيه nomatch غير موجوده ضمن ado data control وهذه هي المشكله :(
وقد استخدمت الخاصيه eof بدلا عنها اعتمادا راي احد الاخوان في منتدى قواعد البيانات
اما بالنسبه الى الكود ياخ mhmd فقد كتبته بالطريقه التي ذكرتها ، ولكن الكود الذي وضعته هو الكود المقترح لي قبل ان اجري التعديل عليه ومشكور على الملاحظه :)
ارجو ان تبحثو لي عن حل ولماذا لايتحقق شرط eof على الرغم اني قرات في مقاله من ميكروسوفت ان هذه الخاصيه لابد ان تتحقق في حالة ان طريقة find لم تجد السجل المطلوب :'(
السلام عليكم ورحمة الله وبركاته
من فضلك اكتب الكود الذى يوجد بالفورم مع شرح بسيط وذلك لامكانية تتبع الخطأ
ولك تحياتى
هذا الموضوع مغلق.