Tester la présence d'un driver ADODB

Bonjour à tous,

est-il possible en VBA de tester l'existence d'un driver ADODB sur la machine cliente (ex: MySQL ODBC 3.51 Driver) comme ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 10 Set cnx = New ADODB.Connection Set rst = New ADODB.Recordset cnx.ConnectionString = "" _ & "DRIVER={MySQL ODBC 3.51 Driver}; " _ & "SERVER=localhost; " _ & "DATABASE=base; " _ & "UID=login; " _ & "PWD=password; " cnx.Open
Le but étant de gérer l'erreur avant la création / utilisation de la connexion ADODB...

Merci d'avance
@ bientôt ! :zoubi:

Salut,
une piste à étudier issue de la :faq:
http://access.developpez.com/sources...s#ConfigDsnVBA

8O oulala... ça me parait chaud.

bon, après test, je n'y parvient pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Declare Function connexion Lib "MYODBC3.DLL" _
 (ByVal hwndParent As Long, ByVal fRequest As Long, _
 ByVal sDriver As String, ByVal sAttributes As String) As Long
 
Sub f()
    'Appel de l'API pour la création du DSN,
    'retour d'execution dans la variable iRet
    'iRet <> 0 alors le DSN a été créé
    'iRet = 0 alors la création a échoué
    iRet = connexion(vbNull, 1, "DRIVER={MySQL ODBC 3.51 Driver}", "SERVER=localhost; DATABASE=test; UID=login; PWD=password; ")
    If iRet Then
        MsgBox "DSN Créé !", vbInformation
    Else
        MsgBox "La création du DSN a échoué !", vbCritical
    End If
End Sub

Avec cela, j'obtiens :

Citation:

Erreur d'exécution '453'
Fonction de DLL spécifiée introuvable

:calim2: