Как проверить, установлен ли в системе драйвер OLEDB?

Как я могу убедиться, что установлен определенный драйвер OLEDB при запуске приложения? Я использую ADO из Delphi и хотите, чтобы отобразить сообщение об ошибке, если водитель отсутствует. Ошибка, возвращаемая из ADO, не всегда удобна для пользователя.

вероятно, есть небольшая функция, которая возвращает все установленные драйверы, но я ее не нашел.

13
ado delphi oledb

6 ответов

каждый поставщик имеет GUID, связанный с его классом. Чтобы найти идентификатор guid, откройте regedit и найдите в реестре имя поставщика. Например, найдите "поставщик OLE DB для Microsoft Jet 4.0". Когда вы его найдете, скопируйте ключ (значение GUID) и используйте его в поиске реестра в своем приложении. 

function OleDBExists : boolean;
var
  reg : TRegistry;
begin
  Result := false;

  // See if Advantage OLE DB Provider is on this PC
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    Result := reg.OpenKeyReadOnly( '\SOFTWARE\Classes\CLSID\{C1637B2F-CA37-11D2-AE5C-00609791DC73}' );
  finally
    reg.Free;
  end;
end;
3

Это старый вопрос, но у меня была та же проблема, и, возможно, это может помочь другим.

в Delphi 7 есть процедура в ADODB, которая возвращает TStringList с именами поставщиков.

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

names := TStringList.Create;
ADODB.GetProviderNames(names);

if names.IndexOf('SQLNCLI10')<>-1 then
  st := 'Provider=SQLNCLI10;'
else if names.IndexOf('SQLNCLI')<>-1 then
  st := 'Provider=SQLNCLI;'
else if names.IndexOf('SQLOLEDB')<>-1 then
  st := 'Provider=SQLOLEDB;';
9

вы можете получить имя провайдера ADO и проверить его в реестре по адресу Path HKEY_CLASSES_ROOT\[Provider_Name].

2

не будет ли самый простой способ просто попытаться установить соединение при запуске и поймать ошибку?

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

1

Я считаю, что объекты OLEDB, о которых идет речь, похоронены где-то в реестре, так как OLEDB / ADO является решением COM. Я предполагаю, что вы можете найти GUID, который установлен вашим драйвером, как в реестре.

0
namespace Common {
  public class CLSIDHelper {

  [DllImport("ole32.dll")]
  static extern int CLSIDFromProgID([MarshalAs(UnmanagedType.LPWStr)] string lpszProgID, out Guid pclsid);


  public static Guid RetrieveGUID(string Provider) {
    Guid CLSID = Guid.Empty;
    int Ok = CLSIDFromProgID(Provider, out CLSID);
    if (Ok == 0)
       return CLSID;
    return null;
  }
 }
}
0