Устранение ошибки интерфейса индекса в ADO провайдере Delphi XE4 64-битной версии

Delphi , Базы данных , Индексы

При работе с базой данных Microsoft Access в среде Delphi XE4 64-битной версии может возникнуть ошибка: "Provider current does not support interface for index". В данной статье мы рассмотрим причины этой ошибки и способы ее устранения.

Причина ошибки

Ошибка возникает из-за того, что Jet Database Engine, используемый Microsoft Access, не поддерживается в 64-битной версии Windows как прямой OleDB провайдер. Как отмечается в документации Microsoft, на 64-битных версиях Windows 32-битный Jet runs под управлением Windows WOW64 subsystem, и native 64-bit applications не могут общаться с 32-битными Jet drivers, работающими в WOW64.

Подтвержденный ответ

Для устранения этой ошибки следует использовать ODBC - OleDB мост для подключения к вашей базе данных MDB. Это можно сделать, добавив компонент TOleDb на форму в Delphi и установив для свойства ConnectionString значение, указывающее на ODBC-драйвер, который, в свою очередь, подключается к вашей базе данных MDB. Пример кода на Object Pascal (Delphi) приведен ниже:

procedure TForm1.Button1Click(Sender: TObject);
var
  Connection: TOleDb;
begin
  Connection := TOleDb.Create(nil);
  try
    Connection.ConnectionString := 'ODBC;Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\path\to\your\database.mdb';
    Connection.Open;
    // Ваш код работы с базой данных
  finally
    Connection.Free;
  end;
end;

Также в качестве альтернативы можно рассмотреть использование других баз данных, таких как Microsoft SQL Server Express Edition или Microsoft SQL Server Compact Edition, или даже SQLite3, которые лучше поддерживаются в 64-битных версиях Windows.

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

Существует функция, которая позволяет подключаться к файлам Access MDB через Jet/ACE OLE tanto на 64-битных, как и на 32-битных системах. Пример кода на Object Pascal (Delphi) приведен ниже:

FUNCTION AccessConnStr(CONST FileName : STRING) : STRING;
  BEGIN
    {$IFDEF CPUX64 }
      Result:='Provider=Microsoft.ACE.OLEDB.12.0;Data source='+FileName
    {$ELSE }
      Result:='Provider=Microsoft.Jet.OLEDB.4.0.0;Data Source='+FileName
    {$ENDIF }
  END;

Просто передайте имя файла этой функции, и она вернет строку подключения, необходимую для доступа к файлу. Обратите внимание, что данный подход работает, по крайней мере, с файлами Access MDB - другие типы файлов не были протестированы.

Заключение

При работе с базой данных Microsoft Access в Delphi XE4 64-битной версии может возникнуть ошибка "Provider current does not support interface for index". Для устранения этой ошибки следует использовать ODBC - OleDB мост или рассмотреть возможность перехода на другие базы данных, лучше поддерживаемые в 64-битных версиях Windows. Также существует функция, позволяющая подключаться к файлам Access MDB через Jet/ACE OLE на обеих версиях.

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

Данный текст является инструкцией по устранению ошибки интерфейса индекса в ADO провайдере Delphi XE4 64-битной версии при работе с базой данных Microsoft Access.

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

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

:: Главная :: Индексы ::