delphi4arab منتديات دلفي للعرب

السلام عليكم

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

كود :
table1.fieldbyname('name').asstring:=edit1.text;

ويظهري لي خطا بعد التشغيل
مع اني قمت بربط امتداد القاعدة بالمكون ADOQuery1

صورة للأبجكت

كود :
http://m7-job.com/mysfu/uploads/9b2ddb1.png

علمت ان هناك اضافة في الفلتر او ما شابه ذلك لكن كيف يتم
ام هناك طريقة اخرى ..؟

استخدم أحد الأمرين:

كود :
1- locate
table1.locate('num',edit1.text,[]);
2- filter
table1.filter:='num='''+edit1.text+'''';
table1.filtered:=true;

حيث
table1: اسم الجدول الذي تريد البحث فيه
num: اسم الحقل الذي تريد البحث به
edit1: حقل النص الذي ستقوم بوضع النص المبحوث عنه
أتمنى أن أوفق في ايصال الفكرة
بالتوفيق

لي عوده بعد التجربة شكرا لك يا عزيزي

احسنت الكود يعمل بشكل ممتاز

لكن الكود الثاني يعمل في SQL وليس في filter ديلفي 7
شكراً

أخي في الخاصية filter ضع الحقل و القيمة المراد فلترتها ثم فعل الخاصية فلتر
مثلا ضع في الخاصية
- filter

num='100'

غير الخاصية

-filtered

إلى
true

بالتوفيق أخي

لقد استقريت على هذا الكود اجد انه مناسب

كود :
table1.Filtered := false;
if not Table1.Locate('ok',edit1.text,[]) then
showmessage( 'nothing' ) ;

ربنا يوفقك و يسدد خطاك

المحجوب

makhlouf

المحجوب

المحجوب

makhlouf

المحجوب

makhlouf