Как обойти ограничение в 128 символов пути к базе данных в FireDac для Delphi

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

Введение

При работе с компонентами FireDac в Delphi иногда возникают проблемы, связанные с ограничениями на длину пути к базе данных. В частности, одно из таких ограничений составляет 128 символов для переменной CATALOG_NAME. В этой статье мы рассмотрим, как можно решить проблему с превышением этого лимита.

Проблема

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

[FireDac][DatS]-32. Column overflow [CATALOG_NAME] variable length. Value Length- [219], Maximum column length - [128].

Пример кода, вызывающего ошибку

try
    Connection := TFDConnection.Create(Application);
    Connection.Params.Add('DriverID=MSAcc');
    Connection.Params.Add('Database=...длинный путь...'); // Путь к базе данных превышает 128 символов
    Connection.Connected := True;
    FDQuery := TFDQuery.Create(Application);
    FDQuery.Connection := Connection;
    FDQuery.SQL.Text := 'SELECT * FROM PointTopo';
    FDQuery.Active := True;
finally
    // Закрытие соединения и освобождение объектов
end;

Подтвержденное решение

Для решения проблемы необходимо изменить настройки компонентов, связанных с кэшированием данных. В частности, свойства FetchOptions.Cache и FetchOptions.Items должны быть установлены в значение false. Это позволяет избежать кэширования метаданных, что и является причиной возникновения ошибки.

Пример кода с решением

try
    Connection := TFDConnection.Create(Application);
    Connection.Params.Add('DriverID=MSAcc');
    Connection.Params.Add('Database=...короткий путь...'); // Путь к базе данных должен быть изменен для демонстрации, но остается не тронутым для решения фичи фиMeta
    Connection.FetchOptions.Cache := False; // Установка в False
    Connection.FetchOptions.Items := TFetchItemList.Create; // Создание нового списка для очистки кэша фич
    Connection.FetchOptions.Items.Clear;
    Connection.FetchOptions.Items.Add(TFetchItemInfo.Create(TFetchInfoKind.MetaData, False)); // Установка фиMeta в False
    Connection.Connected := True;
    FDQuery := TFDQuery.Create(Application);
    FDQuery.Connection := Connection;
    FDQuery.SQL.Text := 'SELECT * FROM PointTopo';
    FDQuery.Active := True;
finally
    // Закрытие соединения и освобождение объектов
end;

Альтернативный ответ

В качестве альтернативного решения можно использовать сокращение пути к базе данных, например, путем назначения ему буквы диска (например, G:\).

Заключение

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

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

Проблема заключается в ограничении длины пути к базе данных в компонентах FireDac для Delphi, превышающем 128 символов, и способах его обхода.

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

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

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