Обработка SQL-ошибок в Delphi XE2 с использованием DBExpress

Delphi , Синтаксис , Ошибки и Исключения

Вопрос пользователя связан с разработкой расписания для учебного заведения на языке Delphi XE2 с использованием компонентов DBExpress. При выполнении запроса к базе данных SQL Server 2008 для проверки наличия у преподавателя занятий в определённый день и час возникает ошибка, если пользователь оставил одно из полей параметров пустым. Вместо того чтобы показывать недружелюбное сообщение об ошибке, разработчик пытался обработать исключение, но без успеха. В качестве альтернативного подхода предлагается использовать обработку кодов SQL-ошибок, но не ясно, как это сделать.

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

Для начала, стоит отметить, что использование параметризованных запросов вместо вставки значений напрямую в строку запроса может помочь избежать многих проблем, связанных с обработкой ошибок. Также, важно проверить, что все вводимые значения соответствуют ожидаемому формату и не содержат недопустимых символов.

Чтобы обработать исключения в Delphi XE2 с использованием DBExpress, можно использовать следующий подход:

with DataModule1.QueryV1 do
try
  Close;
  SQL.Clear; // Очистка команды SQL
  SQL.Add('SELECT * FROM OrarC WHERE IDZi = :IDZi AND IDInterval = :IDInterval AND IDSala = :IDSala');
  SetBindParam(SQL, 'IDZi', LlbZiua.KeyValue, varString, 50);
  SetBindParam(SQL, 'IDInterval', LlbIntOrar.KeyValue, varString, 50);
  SetBindParam(SQL, 'IDSala', EdtIDSala.Text, varString, 50);
  SQL.Add('and Data = :Data');
  SetBindParam(SQL, 'Data', EdtSaptamana.Text, varString, 10);
  Open;
except
  on E: TDBXError do
  begin
    // Получение кода ошибки
    var ErrorCode: Integer = E.ErrorCode;
    // Обработка ошибки в зависимости от кода
    if (ErrorCode = TDBXErrorCodes.InvalidArgument) then
      begin
        // Обработка ошибки некорректного аргумента
        ShowMessage('Ошибка: некорректный аргумент.');
      end
    else
      begin
        // Обработка других ошибок, если необходимо
        ShowMessage('Ошибка выполнения SQL-запроса: ' + E.Message);
      end;
  end;
end;

Если ошибка не является TDBXError, то стоит проверить, является ли она EDatabaseError. Однако, класс EDatabaseError не содержит поля для кода ошибки, поэтому обработка будет основываться только на сообщении об ошибке.

Также, стоит рассмотреть использование события OnErrorEvent класса TDBXConnection для централизованной обработки исключений, связанных с DBExpress.

Важные замечания

• Используйте параметризованные запросы для повышения безопасности и удобства обработки ошибок.
• Проверьте, что все пользовательские входные данные соответствуют ожидаемым условиям.
• При отладке программы используйте отладчик, чтобы определить класс исключения, которое возникает, и его код ошибки.
• Рассмотрите возможность использования события OnErrorEvent для централизованной обработки ошибок базы данных.

Следуя этим рекомендациям, вы сможете более эффективно обрабатывать SQL-ошибки в вашем приложении на Delphi XE2, используя компоненты DBExpress.

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

Вопрос касается обработки SQL-ошибок в приложении на Delphi XE2, использующем DBExpress для работы с базой данных SQL Server 2008, с целью корректного реагирования на пустые параметры запроса.

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

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

:: Главная :: Ошибки и Исключения ::