如何获取 FDQuery 结果？

Question

大家好，我的应用程序中有几个表单，我有一个测试按钮，我想在其中触发从另一个单元获取的查询。这是我的代码：

procedure TForm1.Button7Click(Sender: TObject);
var test : string;
begin
// test :=  Unit1.DataModule1.FDQuery2.Open.ToString;                  
 // Unit1.DataModule1.FDQuery2.ExecSQL;
 // test.ToString;
 // ShowMessage(Unit1.DataModule1.FDQuery2.Open);
 // Unit1.DataModule1.FDQuery2.Active := true;
  Unit1.DataModule1.FDQuery2.SQL.Text := 'SELECT CURRENT_DATE';
  Unit1.DataModule1.FDQuery2.Open();
  // Writeln(test);
end;

基本上我希望能够获取结果数组或任何数据类型 returns 并将它们分配给 TEdit，然后更改它等等。我想将结果显示为字符串，但无法正确转换。您将如何存储响应？如果有问题，请更正我的调用 - 因为我的 TFDQuery2 具有与 SQL.TEXT 相同的参数。是否可以仅触发该查询并以我可以显示或使用的方式获得结果？

Answer 1

在TFDQuery.Open()执行完SELECT查询后，可以使用TFDQuery.Fields属性访问返回的字段值，eg:

procedure TForm1.Button7Click(Sender: TObject);
var
  test : string;
begin
  Unit1.DataModule1.FDQuery2.SQL.Text := 'SELECT CURRENT_DATE';
  Unit1.DataModule1.FDQuery2.Open();
  test := Unit1.DataModule1.FDQuery2.Fields[0].AsString;
  Edit1.Text := test;
  Unit1.DataModule1.FDQuery2.Close();
end;

如何获取 FDQuery 结果？

How to get FDQuery result?

sql

delphi

vcl

firedac