Решение проблемы получения автоинкрементного поля в MySQL из приложения на Delphi с использованием DBExpress

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

При разработке приложений на Delphi с использованием компонентов DBExpress для работы с базой данных MySQL часто возникают различные вопросы, связанные с особенностями взаимодействия этих технологий. Одной из таких проблем является получение значения автоинкрементного поля после вставки записи в таблицу. В данной статье мы рассмотрим, как решить эту проблему на примере использования компонентов TSQLConnection и TSQLQuery.

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

Разработчик столкнулся с проблемой, при которой после вставки записи в таблицу MySQL с использованием автоинкрементного поля, значение этого поля не возвращалось в приложение. В коде использовался запрос к функции LAST_INSERT_ID(), но возвращаемое значение было нулевым.

Пример кода

SQLCon := TSQLConnection.Create(nil);
with SQLCon do
begin
  Close;
  DriverName := 'MySQL';
  // ... другие параметры ...
  Open;
end;

SQLQry := TSQLQuery.Create(nil);
with SQLQry do
begin
  Close;
  SQLConnection := SQLCon;
  SQL.Clear;
  SQL.Add('INSERT INTO Sample_Table (mobile_number, message_body) VALUES ');
  SQL.Add(format('[%s, %s]', [QuotedStr('989121011689'), QuotedStr('Text1')]));
  ExecSQL;
  Close;

  SQL.Clear;
  SQL.Add('SELECT LAST_INSERT_ID() AS EngineRefNo');
  Open;
  First;
  ListBox1.Items.Add(FieldByName('EngineRefNo').AsString);
  Close;
end;
SQLCon.Close;

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

Проблема, с которой столкнулся разработчик, известна и связана с особенностями работы компонентов DBExpress с MySQL. Для получения значения автоинкрементного поля после вставки записи необходимо использовать другой подход.

Решение проблемы

1. Убедитесь, что переменная sql_auto_is_null установлена в значение 1. Это можно сделать через консоль MySQL или файл конфигурации сервера.
2. После вставки записи в таблицу, выполните запрос к самой таблице, чтобы получить последнее вставленное значение автоинкрементного поля. Например, запрос SELECT id FROM Sample_Table ORDER BY id DESC LIMIT 1.
3. Используйте параметризованные запросы для предотвращения SQL-инъекций и повышения безопасности приложения.

Пример кода с решением

with SQLQry do
begin
  Close;
  SQLConnection := SQLCon;
  SQL.Clear;
  SQL.Add('INSERT INTO Sample_Table (mobile_number, message_body) VALUES :mobile_number, :message_body');
  Params[0].Value := '989121011689';
  Params[1].Value := 'Text1';
  ExecSQL;
  Close;

  SQL.Clear;
  SQL.Add('SELECT id FROM Sample_Table ORDER BY id DESC LIMIT 1');
  Open;
  if not Eof then
    ListBox1.Items.Add(FieldByName('id').AsString);
  Close;
end;

Убедитесь, что переменная sql_auto_is_null установлена в соответствии с инструкциями по ссылке Server System Variables.

Заключение

При работе с MySQL и компонентами DBExpress в Delphi важно учитывать особенности взаимодействия этих систем. Использование параметризованных запросов и корректная настройка переменных сервера MySQL помогут избежать многих проблем, связанных с получением автоинкрементных значений.

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

Проблема связана с необходимостью получить значение автоинкрементного поля в базе данных MySQL после его автоматического создания при вставке данных через приложение на Delphi с использованием компонентов DBExpress.

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

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

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