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

[saber-bsa]

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

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

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

[Lam.Abdeldjalil]

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

أهلا أخ صابر

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

كود :

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;

بالتوفيق

[saber-bsa]

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

[dliouahb]

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