مشكل في عمل فيلتر ado

[hmidadz]

السلام عليكم
اواجه مشكلة في عمل فيلتر اكسس

كود :

d1:=DateToStr(DateTimePicker1.Date); d2:=DateToStr(DateTimePicker2.Date); suc:='1ere modl'; col:='vert'; ADOStoredProc1.Filter:='DATE >= '''+d2+''' and SUCRE LIKE '+QuotedStr(suc+'')+''' and Couleur LIKE '+QuotedStr(col+'')+' and DATE <= '''+d1+''' '; ADOStoredProc1.Filtered:=true;

[محمد عبد العزيز]

وعليكم السلام

ما المشكلة ؟ رسالة الخطا ؟

راجع كيف عمل فيلتر في ado حسب رقم السلعة والشهر
http://www.delphi4arab.net/forum/showthr...p?tid=9745

[phpbb3]

كود :

function access_date(const S: string): string; begin Result := '#' + S + '#' end;

كود :

d1:=DateToStr(DateTimePicker1.Date); d2:=DateToStr(DateTimePicker2.Date); suc:='1ere modl'; col:='vert'; ADOStoredProc1.Filter:='DATE >= '+access_date(d2)+' and SUCRE LIKE '+QuotedStr(suc+'')+''' and Couleur LIKE '+QuotedStr(col+'')+' and DATE <= '+access_date(d1)+' '; ADOStoredProc1.Filtered:=true;