Discussion :

[Tchupacabra]

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 !

[Minick]

Salut,

Comme ca peut etre :

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
 
     set rst = ConnexionMySQL
     MsgBox(rst.Fields.Count)
 
End Sub

++
Minick

[Tchupacabra]

merci pour ton aide.

je viens de tester... effectivement, cette syntaxe me parait beaucoup mieux.
Malheureusement, j'ai toujours mon message d'erreur à la ligne ConnexionMySQL = rst

[Minick]

Re,

Il faut faire la meme chose pour renvoyer le resultat peut etre :

Code :

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

set ConnexionMySQL = rst

++
Minick

[Tchupacabra]

ça marche !!! merci Minick.

bon faut quand même avouer que la gestion du return est super lourde en VBA !