Проверка учетных данных для ODBC соединения с MySQL в Delphi

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

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

Проблема

Разработчик столкнулся с проблемой проверки учетных данных при подключении к базе данных MySQL через ODBC драйвер. При использовании следующей строки соединения:

ADOConnection1.ConnectionString := 'Driver={MySQL ODBC 3.51 Driver};' +
                                   'Server=db4free.net;Port=3306;' +
                                   'Database=inventmanager;' +
                                   'User=' + eUser.text + ';Password=' + ePass.Text +
                                   ';Option=3;';

где eUser и ePass - это TEdits на главной форме, при попытке установки соединения:

ADOConnection1.Connected := True;

необходимо проверить, не введены ли некорректные учетные данные, и в случае их неверности отобразить сообщение пользователю.

Решение

Для проверки учетных данных можно использовать обработку исключений. В случае некорректных данных сервер MySQL возвращает ошибку с кодом 1044 SQLSTATE: 42000 (ER_DBACCESS_DENIED_ERROR). Однако ODBC драйвер MySQL не возвращает специфичный код ошибки, а вместо этого возвращает общий код ошибки 80004005. В связи с этим, лучшим решением будет анализ строки сообщения и поиск в ней фразы Access denied for user.

Пример кода, который можно использовать для проверки учетных данных:

try
  // Здесь могут быть дополнительные действия перед подключением
  ADOConnection1.Connected := True;
except
  on EOleException do
  begin
    // Проверяем, содержит ли сообщение о ошибке нужную фразу
    if Pos('Access denied for user', E.Message) > 0 then
      ShowMessage('Неверные учетные данные')
    else
      ShowMessage(Format('Код ошибки %X, Сообщение: %s, Источник: %s', [E.ErrorCode, E.Message, E.Source]));
  end;
end;

Не забудьте добавить в раздел uses вашего модуля необходимый модуль comobj для работы с компонентом EOleException.

Заключение

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

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

Разработчик в Delphi проверяет корректность учетных данных для ODBC соединения с MySQL, используя обработку исключений и анализ сообщений об ошибках.

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

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

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