كيف أعمل خاصية البحث

[أحمد 13]

أخي تأكد من نوع الحقل هل هو نص أم رقم و إذا كان رقم يجب أن تستهدم الدالة strtoint مثل

dm.ADOQuery1.Filter:='NumBien='''+strtoint(sEdit1.Text)+'*'' ';
dm.ADOQuery1.Filtered:=true;

بالتوفيق

بارك الله فيك أخي ، جربت الكود و لم يقبل التنفيد و لكن بعد اجتهاد متواضع مني طبقت التنفيد التالي وقد نجح معي ولكن تبقي مشكل

السهم لا يأتي في مكون DBGrid يعني لا ينزل يبقى في الاول للتوضيح اكثر سأعطيك مثال

مثال عندي ارقام من 1 الى 10 لو اقوم بالبحث عن صاحب الرقم 66 تظهر رسالة انه غير مسجل

و عندما ابحث مثلا عن رقم 5 او 9 او 4 يقول لي مسجل و لكن السهم لا ينزل في DBGrid

علما أني ****ه ينزل ،، و حفظك ربي من كل شر لما تقدمه لي من عون

كود :

dm.ADOQuery1.Close ; dm.ADOQuery1.Parameters.ParamByName('c').value:=sEdit1.text; dm.ADOQuery1.Open; if dm.ADOQuery1.RecordCount=0 then showmessage('Ne Exist Pas') else showmessage ('Exist') ;