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

السلام عليكم ورحمة الله تعالى وبركاته
من فضلكم لماذا يظهر هذا الخطأ بعد الفلترة
--------------------------------------------
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.

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

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

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

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

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

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

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

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

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

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

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