Получение ID последней вставленной записи в SQLite с использованием Delphi 10 и Firemonkey

Delphi , Базы данных , SQL

При работе с базами данных SQLite в среде Delphi 10 и Firemonkey может возникнуть необходимость получить ID последней вставленной записи. В данной статье мы рассмотрим, как это можно сделать, опираясь на примеры кода на Object Pascal.

Описание проблемы

Разработчики часто сталкиваются с задачей получения идентификатора (ID) последней вставленной записи в таблицу SQLite. Это может быть необходимо для дальнейших операций, например, для использования полученного ID в запросах или для логирования. Особенностью поля ID в таблице является его свойство автоинкремента, что означает, что значение ID генерируется автоматически при вставке новой записи.

Пример вставки записи

Вот пример кода на Object Pascal, который выполняет вставку записи в таблицу:

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;
   // Как получить последний ID?  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   myQr.DisposeOf;
end;

Альтернативный способ получения ID

Один из альтернативных способов получения ID последней вставленной записи — использование метода Append с последующим Post запроса. Это позволяет избежать необходимости выполнения отдельного запроса для получения ID, что может быть более безопасным с точки зрения транзакций и избегания гонок данных.

Подтвержденный ответ

Для получения ID последней вставленной записи, если поле ID является автоинкрементным и одновременно PRIMARY KEY, можно использовать функцию __last_insert_rowid__ SQLite. В таком случае поле ID становится псевдонимом для __ROWID__. Вот пример функции на Object Pascal, которая возвращает ID последней вставленной записи:

uses
  FireDAC.Phys.SQLiteWrapper;

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

Также можно использовать метод GetLastAutoGenValue, предоставляемый компонентом FireDAC:

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

Эти методы возвращают последнее значение автогенерации для указанной таблицы, доступное через соединение после успешного выполнения операции вставки.

Заключение

— задача, которая решается с помощью встроенных функций SQLite и возможностей FireDAC. Важно понимать, что использование транзакций и правильный подход к работе с данными может предотвратить потенциальные проблемы, связанные с одновременным доступом к базе данных.

Создано по материалам из источника по ссылке.

Разработчики используют Delphi 10 и Firemonkey для получения идентификатора последней вставленной записи в базу данных SQLite, применяя функции Object Pascal и возможности FireDAC.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: SQL ::