Execution procedure stockees SQLServer - Recuperation ResultSet

Bonjour,

je souhaite depuis Excel, en VBA, appeller une procédure stokées SQL Server qui me retourne un ResultSet.
J'ai trouvé comment appeler une procédure stockée (pas de souci pour me connecter à SQL Server, ni pour exécuter des requêtes directement depuis VBA) mais je ne sais pas comment exploiter exploiter/appeler une procédure qui me renvoie un ResultSet!

Existe-t-il comme en VB.Net l'équivalent du DataReader?

Merci

Bonjour

ADO.net n'existe pas dans Excel.
Il te faudra utiliser ADO avec un recordset (a l'ancienne)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Dim cnn As New ADODB.Connection Dim cmd As New ADODB.Command Dim rec As New ADODB.Recordset   Dim i As Integer   i = 2   cnn.Open "dsn=MONODBC;uid=USER;pwd=PWD" cmd.ActiveConnection = cnn cmd.CommandType = adCmdStoredProc     cmd.CommandText = "dbo.Login"   cmd.Parameters.Append cmd.CreateParameter("@user", adVarChar, adParamInput, 50, User) cmd.Parameters.Append cmd.CreateParameter("@password", adVarChar, adParamInput, 50, Password)   rec.Open cmd, , adOpenDynamic, adLockReadOnly   'Ajoute les nouveaux Droits Do While Not rec.EOF Sheets("Listes").Range("C" & i).Value = rec!champ1 Sheets("Listes").Range("D" & i).Value = rec!champ2 i = i + 1 rec.MoveNext   Loop

---

Je pensais pas que c'était aussi simple...
Merci!