Discussion :

[kluh]

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

[jfontaine]

Bonjour

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

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

[kluh]

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