Variable de retour problèmatique entre Sub et Function

Bonjour,

Pour le moment, j'ai ma procédure principale :

Code:

---

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:

---

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

---

:calim2: Mais j'obtiens un beau message d'erreur :

Citation:

---

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

Salut,

Comme ca peut etre :

Code:

---

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

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

:roll:

Re,

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

Code:

---

set ConnexionMySQL = rst

---

++
Minick

ça marche !!! merci Minick. :ccool:

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