Discussion :

[Nelmech]

Bonjou à tous,

Me voici de retour pour vous demander votre aide!
Bien que Google et le forum regorgent de topics sur l'utilisation d'ODBC pour la connexion à Oracle, je n'ai pas trouvé de sujet spécifique à mon probléme... Désolé d'avance si malgré cela je fais un doublon.

J'utilise un fichier Excel qui realise une connexion à une base de donnée ORACLE via l'utilisation d'une recordset ADODB. Cependant, le probléme est que je spécifie en dur la version du driver à utilise dans la chaine de connexion, et que la version de ce pilote ne sera pas la même en fonction des poste utilisé...
Connaissez-vous une façon, de faire ou un code permettant de retourner la version du pilote SVP?

J'ai trouvé, en farfouillant sur Google, ce code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub GetVer()
    Dim fso As Object
    Dim MS_ODBC_Oracle_Version As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    MS_ODBC_Oracle_Version = fso.GetFileVersion( _
    fso.GetSpecialFolder(SystemFolder).Path & _
        "\msorcl32.dll")
    MsgBox "Version is " & MS_ODBC_Oracle_Version
End Sub

Mais la version qu'il me retroune par message ne corresponds pas à ma valeur spécifiée dans la requete de connexion...
Pour exemple la version de pilote spécifié dans la chaine de connexion est la suivante:
DRIVER={Oracle in Oraclient_11201}

Mais la valeur retournée par cette fonction est la suivante: 2.575.1132.0

Quelqu'un a t-il une solution svp?

[Nelmech]

Bon j'ai finis par trouvé la solution par moi-même...
Voilà le code pour les intéresser qui tomberait sur ce post:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Const HKEY_CURRENT_USER = &H80000001
Sub TestME()
    Dim temp As Object
    Dim strComputer As String
    Dim rPath As String
    Dim arrSubKeys()
    Dim strAsk
 
    strComputer = "."
    Set temp = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")
 
    rPath = "Software\Microsoft\"
    temp.EnumKey HKEY_CURRENT_USER, rPath, arrSubKeys
    For Each strAsk In arrSubKeys
        Debug.Print strAsk
    Next
End Sub

Ce code permet de liste toute les clé de registre d'un répertoire dans la base de registre. Code à adapter au répertoire que l'on désire parcourir bien sur.
On peut ainsi lister les drivers ODBC installés et trouver celui qu'on veut (Oracle ou autre).