sql - 查询没有结果(Delphi，Oracle，DBExpress)

Question

我正在尝试从Oracle sql服务器获取查询结果，并将其插入StringGridShowPapers表中。

我已经建立并工作了SQLConnection1（一个DBExpress连接），SQLDataSetPapers数据集和一个查询SQLQueryPapers。

当我运行此过程时，查询似乎不返回任何内容：

procedure TFormOperator.TabSheetShowPapersShow(Sender: TObject);
begin
    SQLQueryShowPapers.SQL.Text := 'SELECT * FROM papers';
    SQLQueryShowPapers.Open;
    SQLQueryShowPapers.First;

    if (NOT SQLQueryShowPapers.IsEmpty) then begin
        SQLQueryShowPapers.First;
        StringGridShowPapers.RowCount := 2;

        while (NOT SQLQueryShowPapers.EOF) do begin
            if (SQLQueryShowPapers.Fields[2].AsString = Frame11.ID) then begin
                with StringGridShowPapers do begin
                  Cells[0, (StringGridShowPapers.RowCount - 1)] :=
                    SQLQueryShowPapers.Fields[0].AsString;
                  Cells[1, (StringGridShowPapers.RowCount - 1)] :=
                    SQLQueryShowPapers.Fields[1].AsString;
                  Cells[2, (StringGridShowPapers.RowCount - 1)] :=
                    SQLQueryShowPapers.Fields[2].AsString;
                end;
                SQLQueryShowPapers.Next;
                StringGridShowPapers.RowCount := StringGridShowPapers.RowCount + 1;
            end;
        end;
    end;

end;

Frame11.ID包含数字的字符串值。

在oracle SQL Developer中运行相同的查询 SELECT * FROM papers会导致许多行。

什么会引发问题？

提前致谢！

看起来我找到了解决方案：

看起来在分配它们的过程完成之后，Delphi中的某些（全局）变量和属性似乎无法访问或被清除。因此，您可能需要在第一个表单过程的运行时中将第一个表单值分配给第二个全局变量（在其中使用该值）。

Answer 1

您的代码中有几个缺陷。

首先，您不需要IsEmpty，也不需要调用First。首次打开查询时，数据集会自动设置在第一行，如果您知道要迭代这些行，则可以省略IsEmpty。

其次，绝对不要在没有SELECT子句的情况下使用WHERE，然后再过滤数据。没有SELECT的WHERE的唯一原因是，如果您绝对确定需要表中的每一行（和每一列）。如果不这样做，请添加WHERE，以限制从服务器返回的行数（并避免必须编写太多代码以在客户端对其进行过滤）。

尝试这样的事情。我不知道什么数据类型Fields[2]或Frame11.ID，所以我将像对待现有代码一样将它们视为string。如果它们不是字符串，则将两个引用都更改为所需的实际数据类型。我还要假设Fields[2].FieldName是ID;再次，如果不是，请相应地更改代码。

procedure TFormOperator.TabSheetShowPapersShow(Sender: TObject);
var
  GridRow: Integer;
begin
  SQLQueryShowPapers.SQL.Text := 'SELECT * FROM papers WHERE ID = :ID';
  SQLQueryShowPapers.Parameters.ParamByName('ID').Value := Frame11.ID;
  SQLQueryShowPapers.Open;  // No need for First. Happens automatically

  StringGridShowPapers.RowCount := 1;

  // No need for IsEmpty. If no rows were returned, this loop will not be entered
  while not SQLQueryShowPapers.EOF do
  begin
    StringGridShowPapers.RowCount := StringGridShowPapers.RowCount + 1;
    GridRow := StringGridShowPapers.RowCount - 1;

    StringGridShowPapers.Cells[0, GridRow] := SQLQueryShowPapers.Fields[0].AsString;
    StringGridShowPapers.Cells[1, GridRow] := SQLQueryShowPapers.Fields[1].AsString;
    StringGridShowPapers.Cells[2, GridRow] := SQLQueryShowPapers.Fields[2].AsString;
    SQLQueryShowPapers.Next;
  end;
end;

顺便说一句，我会做两件事：


最重要的是，停止使用 SELECT *并实际列出所需的列。维护代码更加容易，并且减少了从服务器上不需要使用的网络中移动数据的开销。
另外，停止使用对字段位置（ Fields[0]， Fields[1]等）的硬编码引用。这很容易出错，将来当某列发生更改时，它会在后面咬住您，并且由于您不记得确切的列顺序或其他人需要工作，因此使代码无法从现在起保持6个月与您的代码。将永久字段添加到查询中，或使用 FieldByName按名称检索它们。
缩短变量名称，以避免键入一些内容。例如， SQLQueryShowPapers可能只是 QryPapers（除非您有除SQL查询之外的某种其他类型的查询），并且 StringGridShowPapers可能是 GridPapers或 PaperGrid。
您会注意到，我添加了一个局部整数变量 GridRow，以减少每次访问 StringGridShowPapers.RowCount - 1时对 Cells的所有重复调用所需要的键入。
您还将注意到，在循环中将新行添加到 StringGridShowPapers变得更加简单。
我还通过在SQL语句中添加参数和 Fields[0].AsString = Frame11.ID子句来消除测试 WHERE的需要。它还可以减少必须通过网络从服务器传递的数据量，减少应用程序的内存需求，并减少不必要地花费的时间来读取不需要使用的行并跳过它们（通过循环）。换句话说，我删除了整个 if测试。
最后，如果您完全摆脱了 TStringGrid并改用了 TDBGrid，则可以将整个代码减少到三行（设置SQL.Text，为参数分配值并打开查询）。它专门用于显示数据集中的数据。您要做的就是将 TDBGrid添加到表单中，以代替 TStringGrid，也放下 TDataSource，并将 TDBGrid.DataSource to the TDataSource and the TDataSource.DataSet`连接到查询。然后像往常一样打开查询，并使用零行代码自动将数据填充到网格中。