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

Материал из DRKB

Поверка версии 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

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;



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