+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكل في عمل فيلتر ado (/showthread.php?tid=6107)
مشكل في عمل فيلتر ado - hmidadz - 21-04-2014
السلام عليكم
اواجه مشكلة في عمل فيلتر اكسس
كود :
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 - محمد عبد العزيز - 21-04-2014
وعليكم السلام
ما المشكلة ؟ رسالة الخطا ؟
راجع كيف عمل فيلتر في ado حسب رقم السلعة والشهر
http://www.delphi4arab.net/forum/showthread.php?tid=9745
مشكل في عمل فيلتر ado - phpbb3 - 21-04-2014
كود :
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;