delphi FDQuery1查询，有无返回集

//查询，有返回集

FDQuery1.SQL.Text := 'SELECT * FROM DBTable WHERE id = :id';

FDQuery1.ParamByName('id').AsInteger := 1;

FDQuery1.Open();

//执行SQL语句，无返回集

FDQuery1.SQL.Text := 'DELETE FROM DBTable WHERE id = :id';

FDQuery1.ParamByName('id').AsInteger := 1;

FDQuery1.ExecSQL;

若只需要取出查询结果并进行后续处理，可使用如下代码取出结果：

id := FDQuery1.FindField('id').AsInteger;

DeptName := FDQuery1.FindField('deptname').AsString;

Money := FDQuery1.FindField('money').AsFloat;

推荐分享