مشكلة في البحث بالفلترة

[belnono]

السلام عليكم ورحمة الله تعالى وبركاته
من فضلكم لماذا يظهر هذا الخطأ بعد الفلترة
--------------------------------------------
les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres
----------------------------------------------
الكود المستعمل هو:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (edit1.Text<>'') then
begin
datamodule2.ADOTable1.Filter:='Nom like'+(edit1.Text+'*');
datamodule2.ADOTable1.Filtered:=true;
end else
begin
datamodule2.ADOTable1.Filtered:=false;
end;
end;
-------------------------------------------
بارك الله فيكم

end.

[makhlouf]

و عليكم السلام و رحمة الله تعالى و بركاته
أخي جرب هذا الكود

datamodule2.ADOTable1.Filter:='Nom like'' '+(edit1.Text+'*');
datamodule2.ADOTable1.Filtered:=true;
بالتوفيق

[belnono]

لازالت المشكلة لم تتغير
(ما معنى الرسالة أخي الكريم)؟
جزاك الله خيرا

[makhlouf]

أخي على ما أظن أن المشكل هو في طبيعة الحقل الذي تبحث به type de donnée
أو اسم الحقل في قاعدة البيانات مختلف عن الذي وضعته في الكود
تحقق من نوع الحقل و اسمه
بالتوفيق

[belnono]

type de données pour le (Nom) est (texte) et
le nom de champ est Nom

[makhlouf]

أخي اضف الدالة QuotedStr
datamodule2.ADOTable1.Filter:='Nom like '+QuotedStr(edit1.Text+'*');
datamodule2.ADOTable1.Filtered:=true;
بالتوفيق

[belnono]

datamodule2.ADOTable1.Filter:='Nom like '+QuotedStr(edit1.Text+'*');
أضفتها البارحة ودون جدوى
وحتى الآن أعدت تجربتها وبقي نفس المشكل
لقد أتعبتك معي
بارك الله فيك

[makhlouf]

أخي ألق نظرة هنا
http://stackoverflow.com/questions/11594...-filtering
لعلها تنفعك
بالتوفيق

[belnono]

بارك الله فيك أخي الكريم
تحية كبيرة إليك
لقد وجدت الحل في ذلك الموقع
datamodule2.ADOTable1.Filter:='Nom LIKE '+quotedstr(edit1.Text+'*');
وهو زيادة فراغ وراء كلمة like بينها و بين '
شكرا

[makhlouf]

بارك الله فيك أخي الكريم
تحية كبيرة إليك
لقد وجدت الحل في ذلك الموقع
datamodule2.adotable1.filter:='nom' + ' like '+quotedstr(edit1.text+'*');
وهو الفصل بين nom و like
شكرا

عفوا يا اخي
بالتوفيق