如何通过 DATE 值常量过滤 FireDAC 数据集？

Question

procedure TForm2.Button1Click(Sender: TObject);
begin
  with qryWithFilter do
  begin
    Filtered := False;
    OnFilterRecord := nil;
    // date separator may be used any from [' ', '-', '\', '.', '/']
    // Filter := 'DATA_NAS < (''DatetoStr(date3)'')';
    // Filter := 'DATA_NAS < ''28/06/1939''';
    // Filter := 'DATA_NAS < (FormatDateTime(''dd/mm/yyyy'', ''28/06/1968''))';
    // Filter := 'DATA_NAS < TO_DATE(''1996-07-29'',''yyyy-mm-dd'')';
    Filter := 'DATA_NAS < (TO_DATE(''1996-07-29'',''yyyy-mm-dd''))';
    Filtered := True;
  end;
end;

仅适用于“28/06/1968”。我得到的错误是：

如何按 DATE 值常量过滤我的 FireDAC 查询？

Answer 1

FireDAC 的 Filter 属性实现不支持 DBMS 函数，但为您提供了自己的表达式引擎。

使用 FireDAC 将字符串常量转换为 Filter 属性表达式中的 DATE 类型值可以像使用 CONVERT 宏函数或 {d} 转义序列一样简单。然后，表达式引擎会为您选择一个 DBMS 特定的转换函数。

尝试以下过滤器之一（所有变体的日期字符串格式为 yyyy-mm-dd）：

uses
  FireDAC.Stan.ExprFuncs;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with FDQuery do
  begin
    { disable filter }
    Filtered := False;
    { filter with date escape sequence (is nicely readable) }
    Filter := 'DATA_NAS < {d 1996-07-29}';
    { filter with CONVERT macro function without function escape sequence }
    Filter := 'DATA_NAS < {CONVERT(''1996-07-29'', DATE)}';
    { filter with CONVERT macro function with function escape sequence }
    Filter := 'DATA_NAS < {fn CONVERT(''1996-07-29'', DATE)}';
    { enable filter }
    Filtered := True;
  end;
end;