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

Previous  Top  Next

    
 

 

Code:

{ **** 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

Автор:       Мироводин Дмитрий, support@hcsoft.spb.ru, Санкт - Петербург

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;

 

 

 

 

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

Code:

...

 

if (CheckMSJetVersion < 0) then

begin

   ShowMessage('На машине не установлен MS Jet. ');

   Application.Terminate;

end;

 

...

 

 

©Drkb::02766