المشاركات : 206
المواضيع 75
:
: 0
الإنتساب : May 2011
السلام عليكم
لقد استخدمت هذا الكود لعملية البحث في الاسم
كود :
table1.fieldbyname('name').asstring:=edit1.text;
ويظهري لي خطا بعد التشغيل
مع اني قمت بربط امتداد القاعدة بالمكون ADOQuery1
صورة للأبجكت
كود :
http://m7-job.com/mysfu/uploads/9b2ddb1.png
علمت ان هناك اضافة في الفلتر او ما شابه ذلك لكن كيف يتم
ام هناك طريقة اخرى ..؟
حتى وان كنت على الطريق الصحيح ان لم تتقدم سوف يدهسك من خلفك
المشاركات : 211
المواضيع 16
:
: 8
الإنتساب : Jan 2012
استخدم أحد الأمرين:
كود :
1- locate
table1.locate('num',edit1.text,[]);
2- filter
table1.filter:='num='''+edit1.text+'''';
table1.filtered:=true;
حيث
table1: اسم الجدول الذي تريد البحث فيه
num: اسم الحقل الذي تريد البحث به
edit1: حقل النص الذي ستقوم بوضع النص المبحوث عنه
أتمنى أن أوفق في ايصال الفكرة
بالتوفيق
المشاركات : 206
المواضيع 75
:
: 0
الإنتساب : May 2011
لي عوده بعد التجربة شكرا لك يا عزيزي
حتى وان كنت على الطريق الصحيح ان لم تتقدم سوف يدهسك من خلفك
المشاركات : 206
المواضيع 75
:
: 0
الإنتساب : May 2011
احسنت الكود يعمل بشكل ممتاز
لكن الكود الثاني يعمل في SQL وليس في filter ديلفي 7
شكراً
حتى وان كنت على الطريق الصحيح ان لم تتقدم سوف يدهسك من خلفك
المشاركات : 211
المواضيع 16
:
: 8
الإنتساب : Jan 2012
أخي في الخاصية filter ضع الحقل و القيمة المراد فلترتها ثم فعل الخاصية فلتر
مثلا ضع في الخاصية
- filter
num='100'
غير الخاصية
-filtered
إلى
true
بالتوفيق أخي
المشاركات : 206
المواضيع 75
:
: 0
الإنتساب : May 2011
لقد استقريت على هذا الكود اجد انه مناسب
كود :
table1.Filtered := false;
if not Table1.Locate('ok',edit1.text,[]) then
showmessage( 'nothing' ) ;
حتى وان كنت على الطريق الصحيح ان لم تتقدم سوف يدهسك من خلفك
المشاركات : 211
المواضيع 16
:
: 8
الإنتساب : Jan 2012