عمل فيلتلر على قاعدة بيانات اكسس مربوطة بال ado

[hmidadz]

الخطأ يأتي بعد execution
الكود

كود :

nexp:=StrToInt(Edit2.Text); DataM.Travtbl.Filter:='Mois like '+QuotedStr(ComboBox1.Text+'*')+' and NExploitation='+IntToStr(nexp)+' and ans='+IntToStr(an); DataM.Travtbl.Filtered:=true; DataM.Travtbl.Sort:='NExploitation' ;

الرسالة التى تأتى
une valeur littéral de la command a dépassé les limites de type de la colonne associée

[makhlouf]

جرب هذا:

كود :

DataM.Travtbl.Filter:='Mois like '''+QuotedStr(ComboBox1.Text+'*')+''' and NExploitation='''+IntToStr(nexp)+''' and ans='''+IntToStr(an); DataM.Travtbl.Filtered:=true;

بالوفيق