Discussion :

[edechaux]

Bonjour je cherche un moyen pour remplir une liste déroulante (TCombobox) par la liste des providers OLE DB installés sur la machine.

Exemple : Dans l'objet TADOConnection la propriété provider est une liste de tous les providers disponibles sur la machine.

Hors le code pour cette propriété est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    property Provider: WideString read GetProvider write SetProvider stored IsProviderStored;

Le type du provider est donc une chaîne, alors qu'une liste est affichée. J'ai beau chercher dans le code source de la VCL, je ne trouve pas où cette liste est crée.

Quelqu'un aurait-il une idée ?

[Rayek]

Va voir dans l'unité AdoConEd (pas sur que l'acces soit possible).

Sinon avec cette unité, il te suffit d'utiliser la commande EditConnectionString(AdoConnection : TAdoConnection), pour avoir le système de création de chaine de connexion pour l'ado.

[edechaux]

Merci de ta réponse je vais voir ça. Sinon j'ai trouvé une méthode "cachée" dans la unit ADODB :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure GetProviderNames(Names: TStrings)

Cette méthode n'est pas publiée donc pas accessible de l'extérieur. Un copier-coller dans une unit perso permet de l'utiliser normalement.

Note : Cette méthode utilise une autre méthode non publiée présente dans la même unit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function CreateADOObject(const ClassID: TGUID): IUnknown

et nécessite les uses suivants :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ADODB, OLEDB, ADOInt, DB, Classes, ActiveX, Windows, SysUtils, AdoConst, ComObj

Perso je n'ai pas vraiment compris comment ça marche, mais le principal c'est que ça marche