Универсальное подключение к базе данных Microsoft SQL Server R2 Express из приложения на Delphi

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

При работе с базами данных в среде Delphi часто возникает необходимость в обеспечении универсальности подключения, чтобы приложение могло корректно функционировать на различных компьютерах. В данной статье мы рассмотрим, как можно решить проблему, связанную с жестко заданным именем компьютера в строке подключения к базе данных Microsoft SQL Server R2 Express.

Проблема

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

Решение

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

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

ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=db_formation;Data Source=localhost\evilkid;';

Использование конфигурационного файла

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

CONST
  adoStr = 'Provider=SQLOLEDB.1;Integrated Security=SSPI;'
          +'Persist Security Info=False;Initial Catalog=test;'
          +'Data Source=%s;';

ADOConnection.ConnectionString := Format(adoStr, [TheIPOrNameOfThePC]);

Здесь TheIPOrNameOfThePC - это переменная, содержащая имя или IP-адрес целевого компьютера, на котором запущено приложение. Значение этой переменной может быть задано в конфигурационном файле.

Использование UDL-файла

Другой подход - использование UDL-файла (Universal Data Link), который содержит информацию о подключении. Приложение может читать эту информацию из UDL-файла, расположенного в папке AppData пользователя.

Var
  plainAppName : String;
  appDataPath : String;
Begin
  plainAppName := ChangeFileExt(ExtractFilePath(ParamStr(0)),'.EXE','');
  appDataPath := IncludeTrailingBackslash(GetSpecialFolderLocation(CSIDL_APPDATA))+plainAppName+'\';
  ADOConnection.Connectionstring := 'FILE NAME = '+appDataPath+'Connection.UDL';

В UDL-файле будет указано имя сервера и другие параметры подключения.

Заключение

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

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

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

Отзыв В статье рассмотрен подход к устранению ограничения универсальности строках подключения в приложениях Delphi, использующих базу данных Microsoft SQL Server R2 Express, путем конфигурирования этих строк для разных рабочих окружений.

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

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

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