Discussion :

[Tchupacabra]

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 :

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

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 !

[Jean-Philippe André]

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

[Tchupacabra]

oulala... ça me parait chaud.

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

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
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 :

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