Comment vérifier si un pilote OLEDB est installé sur le système?

Comment puis-je m'assurer qu'un certain pilote OLEDB est installé, quand je démarre mon application? J'utilise ADO à partir de Delphi et voudrais afficher un message d'erreur descriptif si le pilote est manquant. L'erreur est renvoyé à partir d'ADO n'est pas toujours convivial.

Il y a probablement une belle petite fonction qui retourne tous les pilotes installés, mais je n'ai pas trouvé.

OriginalL'auteur Karl-Otto Rosenqvist | 2008-09-22

Chaque fournisseur a un GUID associé à sa classe. Afin de trouver le guid, ouvrez regedit et de recherche dans le registre le nom du fournisseur. Par exemple, une recherche pour "Microsoft Jet 4.0 OLE DB Provider". Lorsque vous vous trouvez, copiez la clé (la valeur GUID) et de l'utiliser dans un registre de recherche dans votre demande.

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;

OriginalL'auteur

9

C'est une vieille question, mais j'ai eu le même problème aujourd'hui et peut-être que cela peut aider les autres.

En Delphi 7, il y a une procédure en ADODB que le retour d'un TStringList avec le fournisseur de noms.

Exemple d'utilisation:
```
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;';
```
C'est gentil à vous de poster la réponse, même si elle est littéralement années plus tard.

OriginalL'auteur
2

Vous pouvez obtenir un ADO nom du fournisseur et vérifier dans la base de registre au chemin HKEY_CLASSES_ROOT\[Provider_Name].

OriginalL'auteur
1

Ne serait pas le moyen le plus facile simplement tenter d'établir une connexion au démarrage et à la capture de l'erreur?

Je veux dire, vous pourriez obtenir un peu différentes erreurs de retour en fonction, par exemple, l'utilisateur est en ligne, mais ils sont les cas que vous devriez être en mesure de tester.

OriginalL'auteur
0

Je crois que le OLEDB les objets en question sont enterrés quelque part dans le registre, depuis OLEDB /ADO est un COM solution. Ma conjecture serait de voir si vous pouvez trouver le GUID que votre pilote est installé dans le registre.

OriginalL'auteur

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;
  }
 }
}

OriginalL'auteur

Vous devez vous connecter pour publier un commentaire.