web-dev-qa-db-ja.com

OLEDBドライバーがシステムにインストールされているかどうかを確認するにはどうすればよいですか？

アプリケーションの起動時に特定のOLEDBドライバーがインストールされていることを確認するにはどうすればよいですか？ DelphiのADOを使用しており、ドライバーが見つからない場合に説明的なエラーメッセージを表示したいのですが、ADOから返されるエラーは、必ずしもそのユーザーであるとは限りません。 -フレンドリー。

インストールされているすべてのドライバーを返す素敵な小さな関数があるかもしれませんが、私はそれを見つけていません。

delphioledbado
14
Karl-Otto Rosenqvist

各プロバイダーには、そのクラスに関連付けられたGUIDがあります。GUIDを見つけるには、regeditを開き、レジストリでプロバイダー名を検索します。たとえば、「Microsoft Jet 4.0 OLE DBプロバイダー」。見つかったら、キー（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
Jeremy Mullin

これは古い質問ですが、私は今同じ問題を抱えており、おそらくこれは他の人を助けることができます。

Delphi 7では、プロバイダー名を含むTStringListを返すプロシージャがADODBにあります。

使用例：

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
Rogerio Ueda

ADOプロバイダー名を取得し、レジストリのパスHKEY_CLASSES_ROOT\[Provider_Name]で確認できます。

2
CoolMagic

起動時に接続を試みてエラーをキャッチするのが最も簡単な方法ではないでしょうか。

たとえば、ユーザーがオンラインである場合など、いくつかの異なるエラーが返される可能性がありますが、それらはテストできるはずのケースです。

1
Oli

OLEDB/ADOはCOMソリューションであるため、問題のOLEDBオブジェクトはレジストリのどこかに埋め込まれていると思います。GUIDドライバがレジストリのようにインストールされていること。

0
skamradt
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
Adrian