Подключение к MS Access .accdb базам данных в Delphi и Pascal: решение проблем с ADO и FD.

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

В статье рассматриваются проблемы подключения к базам данных MS Access с расширением .accdb в среде Delphi и Pascal, а также предлагаются решения для работы с ADO и FireDAC (FD).

Проблема

Многие разработчики сталкиваются с трудностями при подключении к базам данных MS Access, особенно при использовании формата .accdb. Основные причины:
1. Разделение 32- и 64-битных драйверов ODBC – Windows использует разные наборы драйверов для 32- и 64-битных приложений.
2. Ограничения в Delphi – IDE Delphi по умолчанию 32-битная, что усложняет настройку подключения для 64-битных приложений.
3. Зависимость от версии Microsoft Office – Установка Office может перезаписать драйверы, оставив только 32- или 64-битную версию.

Решение 1: Использование ADO

Для подключения через ADO можно использовать строку соединения:

var
  Connection: TADOConnection;
begin
  Connection := TADOConnection.Create(nil);
  try
    Connection.ConnectionString := 
      'Provider=Microsoft.ACE.OLEDB.12.0;' + 
      'Data Source=C:\Path\To\Database.accdb;' + 
      'Persist Security Info=False;';
    Connection.Connected := True;
    ShowMessage('Подключение успешно!');
  except
    on E: Exception do
      ShowMessage('Ошибка: ' + E.Message);
  end;
  Connection.Free;
end;

Проблема: Если у вас установлен 64-битный Office, 32-битное приложение не сможет подключиться.

Решение 2: Использование FireDAC (FD)

FireDAC поддерживает оба формата (.mdb и .accdb) и может работать без ODBC:

var
  FDConnection: TFDConnection;
begin
  FDConnection := TFDConnection.Create(nil);
  try
    FDConnection.Params.DriverID := 'MSAcc';
    FDConnection.Params.Database := 'C:\Path\To\Database.accdb';
    FDConnection.Connected := True;
    ShowMessage('Подключение успешно!');
  except
    on E: Exception do
      ShowMessage('Ошибка: ' + E.Message);
  end;
  FDConnection.Free;
end;

Плюс: FireDAC не требует установки драйверов ODBC.

Альтернативное решение: UniDAC

UniDAC поддерживает прямой доступ к базам данных, минуя ODBC:

var
  UniConnection: TUniConnection;
begin
  UniConnection := TUniConnection.Create(nil);
  try
    UniConnection.ProviderName := 'Access';
    UniConnection.SpecificOptions.Values['Direct'] := 'True';
    UniConnection.Database := 'C:\Path\To\Database.accdb';
    UniConnection.Connected := True;
    ShowMessage('Подключение успешно!');
  except
    on E: Exception do
      ShowMessage('Ошибка: ' + E.Message);
  end;
  UniConnection.Free;
end;

Вывод

1. Для 32-битных приложений – используйте ADO или FireDAC, но убедитесь, что установлен 32-битный драйвер.
2. Для 64-битных приложений – FireDAC или UniDAC могут быть лучшим выбором.
3. Если драйверы недоступны – попробуйте установить Microsoft Access Database Engine 2010/2016 (разные версии для 32/64 бит).

Ссылки для скачивания:
- Microsoft Access Database Engine 2016
- FireDAC Documentation

Если у вас есть вопросы, задавайте их в комментариях! 🚀

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

Статья посвящена проблемам подключения к базам данных MS Access с расширением .accdb в Delphi и Pascal, предлагая решения через ADO, FireDAC и UniDAC.

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

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

:: Главная :: Access ::