Bonjour,

Pour le moment, j'ai ma procédure principale :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Go()
 
     Dim rst As ADODB.Recordset
 
     Call ConnexionMySQL
     MsgBox(rst.Fields.Count)
 
End Sub
qui doit appeler ConnexionMySQL() qui doit retourner l'objet rst de type ADODB.Recordset (de ce que j'ai compris).

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
Function ConnexionMySQL() As ADODB.Recordset
 
     Dim cnx As ADODB.Connection
     Dim rst As ADODB.Recordset
 
     Set cnx = New ADODB.Connection
     Set rst = New ADODB.Recordset
 
     cnx.ConnectionString = "" _
                    & "DRIVER={MySQL ODBC 3.51 Driver}; " _
                    & "SERVER=localhost; DATABASE=mabase; " _
                    & "UID=login; PWD=password; "
     cnx.Open
     rst.Open "SELECT * FROM test;", cnx
 
     ' retour du recordset
     ConnexionMySQL = rst
 
End Function
Mais j'obtiens un beau message d'erreur :
Erreur de compilation
Utilisation incorrecte de la propriété
Quelqu'un pourrait-il me dire ce qui ne va pas ?
Merci d'avance

@ bientôt !