البحث-filtre- في حقول ADOtabel عن طريق combobox

البحث-filtre- في حقول ADOtabel عن طريق combobox - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : البحث-filtre- في حقول ADOtabel عن طريق combobox (/showthread.php?tid=2867)

البحث-filtre- في حقول ADOtabel عن طريق combobox - saber-bsa - 05-03-2011

السلام عليكم ورحمة الله وبركاته

كيف أجعل البحث متعلق بالكومبوبكس
أي انني اختار الحقل المراد البحث فيه من خلال كومبوبكس
وانا ابحث عن طريق الفلترة في جدول adotabel
مثل هذه الصورة
[صورة: 11075393.jpg]

وايضا كيفية جعل اسماء حقل جدول تدرج في كومبوبكس

البحث-filtre- في حقول ADOtabel عن طريق combobox - Lam.Abdeldjalil - 05-03-2011

و عليكم السلام ورحمة الله وبركاته

أهلا أخ صابر Smile

إقتباس : كيفية جعل اسماء حقل جدول تدرج في كومبوبكس

كود :
adotable1.GetFieldNames(ComboBox1.Items) ;

إذا كانت العناصر المعروضة في الـ ComboBox1 هي نفسها الحقول (بالأخذ بعين الإعتبار لا فراغ في التسمية .. )

كود :
adotable1.Filter:=''+combobox1.Text +' like '+QuotedStr(edit1.text+'*');
adotable1.Filtered:=true;

إذا لم تكن نفسها تابع المثال :

كود :
case combobox1.ItemIndex of
 0: adotable1.Filter:='Code like '+QuotedStr(edit1.text+'*');
 1: adotable1.Filter:='Reference '+QuotedStr(edit1.text+'*');
 2: adotable1.Filter:='prix ='+QuotedStr(edit1.text+'');
end;
adotable1.Filtered:=true;

بالتوفيق

البحث-filtre- في حقول ADOtabel عن طريق combobox - saber-bsa - 07-03-2011

بارك الله فيك اخي عبد الجليل
لقد نجح الحل بشكل جيد جدا
جزاك الله كل خير

البحث-filtre- في حقول ADOtabel عن طريق combobox - dliouahb - 25-04-2014

السلام عليكم
من فضلك ما معنى كلمة like ؟ في جملة
adotable1.Filter:=''+combobox1.Text +' like '+QuotedStr(edit1.text+'*');