Тайны строки подключения и ошибки аутентификации в Delphi 10.2 и SQL Server 2014

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

Вопросы, связанные с подключением к базе данных SQL Server с помощью Delphi, часто возникают при работе с ADOConnection. Одной из распространенных проблем является неверная аутентификация пользователя, что приводит к ошибке "Login failed for user 'admin98'". В данной статье мы рассмотрим, как можно проверить строку подключения до попытки соединения с базой данных, и как избежать подобных ошибок в приложениях на Delphi 10.2.

Проверка строки подключения перед соединением

Для начала работы с базой данных SQL Server через Delphi, необходимо убедиться, что строка подключения корректна. В примере кода ниже показана функция DBConnect, которая пытается установить соединение с базой данных, используя ADOConnection:

function DBConnect: Boolean;
var
  conStr: string;
begin
  conStr := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=admin' + Fstart_.year_combobox.Text + ';PassWord=000;Initial Catalog=student' + Fstart_.year_combobox.Text + ';Data Source=' + Fstart_.StringTemp + ';';
  DataModule1.ADOConnection1.Close;
  DataModule1.ADOConnection1.ConnectionString := conStr;
  DataModule1.ADOConnection1.LoginPrompt := False;
  if (NOT DataModule1.ADOConnection1.Connected) then
    begin
      try
        DataModule1.ADOConnection1.Open;
        Result := True;
      except
        on E: Exception do
          begin
            if e.Message = 'Login failed for user ' + #39' + 'admin' + Fstart_.year_combobox.Text + #39' then
              // Показать сообщение об ошибке аутентификации
            if e.Message = '[DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied' then
              // Показать сообщение об ошибке соединения
              DataModule1.ADOConnection1.Close;
              DataModule1.ADOConnection1.ConnectionString := '';
              Result := False;
          end;
      end;
    end;
end;

Однако, несмотря на использование блока try-except, проблема в том, что соединение может быть начато без ошибок, но позже, при выполнении других операций, может снова появиться ошибка аутентификации.

Альтернативный подход к проверке подключения

Один из способов избежать проблемы повторного возникновения ошибки - это проверить валидность пользовательских учетных данных и строки подключения перед тем, как фактически пытаться установить соединение. Это может быть реализовано через отдельную функцию, которая, например, проверяет, что пользователь существует в базе данных.

Если вы не хотите усложнять свой код дополнительными проверками, вы можете использовать временный тестовый подключение без сохранения состояния соединения, и если оно выживает не более 1000 милллисекунд, то, что выражение, и выделяете её в отдельный поток с sleep в 5000 милллисекунд после закрытия соединения (в вашем случае, если вы используете это для создания потокового решения):

begin
  DataModule1.ADOConnection1.Close;
  DataModule1.ADOConnection1.ConnectionString := nil;
  DataModule1.ADOConnection1.Disconnect;
  DataModule1.ADOConnection1.Connected := false;
  DataModule1.ADOConnection1.KeepAlive := false;
  DataModule1.ADOConnection1.DisposeOfConnection := true;
  DataModule1.ADOConnection1.KeepSessionAlive := false;
  // ...
  Sleep(5000);
end;

Разрушение и воссоздание объекта соединения

В оригинальном вопросе разработчик упоминал попытки использования FreeInstance или NewInstance, но это не приведет к успеху и не является рекомендуемым способом переустановки соединения. Вместо этого, можно попробовать закрыть соединение, изменить строку подключения и открыть заново, после небольшого ожидания для освобождения системных ресурсов.

Официальный ответ из сообщества

Заметно, что эффективным решением проблемы, которое использовал один из разработчиков, был введение задержки с помощью функции Sleep(5000). Это позволяет избежать некоторых типов ошибок с памятью, которые могут возникнуть при одновременном освобождении ресурсов и попытке создания нового экземпляра подключения.

Заключение

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

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

Вопрос касается настройки и проверки строки подключения в Delphi 10.2 для работы с SQL Server 2014, с целью устранения ошибок аутентификации и проблем подключения.

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

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

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