1

我正在寻找 TFDQuery 中的跳过和选择。我找到的属性是 .FetchOptions.RecsSkip 和 .FetchOptions.RecsMax。我使用 Tokyo 10.2.3和数据库 Firebird 3

我在运行时进行查询，我想在 5 处获取开始记录并获取 8 条下一条记录。

我是这样的：

结果不跳过前5条记录

var
  qryTest: TFDQuery;
begin
 qryTest:= TFDQuery.Create(self);
 qryTest.Connection := self.FDConnection;

 qryTest.sql.Text:= ' select * from salutationdescriptions order by ID';
 qryTest.Disconnect();
 qryTest.FetchOptions.RecsSkip:= 5;
 qryTest.FetchOptions.RecsMax:= 8;
 qryTest.Open();

但这给出了前 8 条记录。不跳过前 5 条记录。

好的，我也一样，但现在我在设计时设置 TFQQuery（表单上的组件）并在组件中添加选择“select * from salutationdescriptions order by ID”。

运行代码：

本次跳过拳头5条记录

  qryItem.Close;
  qryItem.Disconnect();
  qryItem.FetchOptions.RecsSkip:= 5;
  qryItem.FetchOptions.RecsMax:= 8;
  qryItem.Open();

我得到的结果是好的。这会跳过前 5 条记录。当我添加 qryItem.sql.text 时，它不会跳过前 5 条记录

这不跳过拳头5条记录

  qryItem.Close;
  qryItem.sql.Text:= ' select * from salutationdescriptions order by ID';
  qryItem.Disconnect();
  qryItem.FetchOptions.RecsSkip:= 5;
  qryItem.FetchOptions.RecsMax:= 8;
  qryItem.Open();

这不会跳过前 5 条记录。

我必须在属性中设置一些东西吗？

我想在运行时使用 RecsSkip 和 RecsMax。有什么建议么？

发现问题

在 SQL.Text 中，我必须以 'Select ... no space between ' 和 select

4

1 回答 1

2

正如您已经发现的那样，问题出在 SQL 命令的前导空格中。这是因为命令生成器没有考虑前导命令空格。有这样的代码（为了我的解释而修改和广泛简化）：

function TFDPhysCommandGenerator.GenerateLimitSelect(ASkip, ARows: Integer;
  AOneMore: Boolean; var AOptions: TFDPhysLimitOptions): string;
begin
  if (True) and (CompareText(Copy(FCommandText, 1, 6), 'SELECT') = 0) then
    Result := GetLimitSelect(FCommandText, ASkip, ARows, AOptions)
  else
    Result := FCommandText;
end;

在那里你可能会看到问题。仅当从查询命令文本分配的FCommandText字段以SELECT字开头时，命令生成器才会返回 DBMS 的本机LIMIT命令。这不是您的情况（由于前导空格），因此生成器按原样返回命令。

这是我报告为RSP-20403的 FireDAC 错误。由于有更多这样的检查，我认为最简单的解决方法是直接在其构造函数中修剪 SQL 命令，例如：

constructor TFDPhysCommandGenerator.Create(const ACommand: IFDPhysCommand);
begin
  ...
  FCommandText := Trim(ACommand.SQLText);
  ...
end;

所以现在是EMBT如何解决这个问题。

于 2018-04-19T16:25:26.340 回答