Question

使用Firemonkey和SQLite的Delphi 10：运行下面的代码后，我想获取插入到SQLite表中的最后一条记录的ID。我如何获得最后一个ID？

注意：表1的ID字段是自动增量。

var myQr: TFDQuery;
begin

   myQr := TFDQuery.Create(Self);

   with myQr do begin
      SQL.Add('Insert into table1 values (:_id, :_name, :_dthr)');
      Params.ParamByName('_id').ParamType := TParamType.ptInput;
      Params.ParamByName('_id').DataType  := TFieldType.ftInteger;
      Params.ParamByName('_id').Value     := null;

      ParamByName('_name').AsString       := 'name test';
      ParamByName('_dthr').AsDateTime     := Now;
      ExecSQL;
   end;

   // How to get last ID?  <<<<<<<<<<<<<=================

   myQr.DisposeOf;

Answer 1

如果 ID 列声明为last_insert_rowid，您可以查询INTEGER PRIMARY KEY。在这种情况下，该列将成为 ROWID 的别名。如果是这种情况，您可以在本地查询，例如这样：

uses
  FireDAC.Phys.SQLiteWrapper;

function GetLastInsertRowID(Connection: TFDConnection): Int64;
begin
  Result := Int64((TObject(Connection.CliObj) as TSQLiteDatabase).LastInsertRowid);
end;

或通过调用GetLastAutoGenValue方法：

以常见方式

function GetLastInsertRowID(Connection: TFDConnection): Int64;
begin
  Result := Int64(Connection.GetLastAutoGenValue(''));
end;

如何使用Delphi 10获取在SQLite中插入的最后一条记录的ID？

1 个答案: