Delphi-Help

Главная Статьи Access Поверка версии Microsoft OLE DB JET 4.X

Поверка версии Microsoft OLE DB JET 4.X

Оцените материал
(0 голосов)


Поверка версии Microsoft OLE DB JET 4.X

{ **** UBPFD *********** by kladovka.net.ru ****
>> Поверка версии Microsoft OLE DB JET 4.X
 
Функция определяет, установлен ли набор драйверов 
Microsoft OLE DB JET 4.X на компьютере. Пригодится 
для тех, кто использует СУБД Accsess. Можно 
использовать при инициализации главного DataModule, 
формы и т.д.
 
В принципе, функцию можно использовать для определения 
доступности любого поставщика данных : Oracle, MSSQL и т.д.
 
Функция работает намного быстрее, чем ADODB.GetProviderNames();
 
Зависимости: ADODB, ActiveX, OleDB
Автор:       Мироводин Дмитрий, 
 Этот e-mail адрес защищен от спам-ботов, для его просмотра у Вас должен быть включен Javascript
 , Санкт - Петербург
Copyright:   Мироводин Дмитрий
Дата:        7 июля 2004 г.
********************************************** }
 
Function CheckMSJetVersion: Integer;
Const
  CLSID_JETOLEDB_4_00: TGUID = '{DEE35070-506B-11CF-B1AA-00AA00B8DE95}';
Var
  hR : HRESULT;
  OutParam : IUnknown;
Begin
  Result := -1;
  hR := CoCreateInstance(
    CLSID_JETOLEDB_4_00,
    Nil,
    CLSCTX_INPROC_SERVER,
    IID_IDBInitialize,
    OutParam);
 
  If (hR = S_OK) And (OutParam <> Nil) Then
    Begin
      OutParam := Nil;
      Result := 1;
    End;
End;

Пример использования:

...
 
if (CheckMSJetVersion < 0) then 
  begin
    ShowMessage('На машине не установлен MS Jet. ');
    Application.Terminate;
  end;
 
...
Прочитано 5305 раз

Авторизация



Счетчики