Adoquery获取结果（Delphi）

Question

我试图从 Delphi 中的 ADOQuery 获取结果。我编写了这个函数，用于根据自定义 ID 从表中获取名称。

function GetNameByID(Id : Integer) : string;
var query : string;
  Begin
  ShowMessage(GetDBGridViewIndex().ToString);
  query := 'SELECT Name FROM Table1 WHERE ID=' + IntToStr(Id);
  With ADOQuery do
    Begin
       try
          SQL.Clear;
          SQL.Add(query);
          Open;
          First;
          Result:= // Need Get Result;
       finally
          Close;
       end;
    End;
    
    ShowMessage(result);
End;

但我不知道如何从 ADOQuery 返回结果。

Answer 1

tadoquery > tdataset 的>。
您可以用 first first ， ，下一步//docwiki.embarcadero.com/libraries/sydney/en/data.db.tdataset.prior“ rel =” nofollow noreferrer“> prior 和 last 方法，并找出您是否以 eof 。

在每个结果记录中，您可以使用以下方式访问字段：

Fields[Index].AsString
Fields[Index].AsInteger
...

或者

FieldByName(FieldName).AsString
FieldByName(FieldName).AsInteger
...

在这种情况下，您可以使用以下方式访问结果：

Result := Fields[0].AsString;
Result := FieldByName('Name').AsString;

open 查询后，光标将指向第一个记录。您无需在 Open 之后调用第一个方法。