récuperer valeurs renvoyées par procédure stockée [Résolu]

[erox44]

Salut , j'ai une procédure stockée sur une base SQL serveur , celle-ci faisant un select en fonction d'un ID passé en parametre.

J'aurais voulu savoir comment , apres avoir executé cette procédure , inserer les valeurs retournée par le select dans des champs textes?

voici ce que j'ai actuellement :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub afficher_Click()
    Dim procStock As ADODB.Command
    Set procStock = CreateObject("ADODB.Command")
    procStock.ActiveConnection = CurrentProject.Connection
    procStock.CommandType = adCmdStoredProc
    procStock.CommandText = "retourClientX"
    Dim param As Parameter
    Dim civilite As String
    Dim nom As String
    Dim prenom As String
    Dim id As Integer
 
    id = lesClientsModif.Value
          Set param = procStock.CreateParameter("@id", adInteger, adParamInput, , id)
          procStock.Parameters.Append param
          procStock.Execute

En fait sur mon formulaire j'ai une liste déroulante avec des clients, si je clique sur le bouton "afficher" je voudrais que les informations de ce clients apparaissent dans des champs textes.



EDIT: je ne souhaite pas forcement utiliser une proc stockée pour cette requete mais c'est surtout que je ne vois pas comment faire sinon :/

voila ce que j'ai essayé :

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub afficher_Click()
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from client where id=" & lesClientsModif.Value)
 
 
 
civiliteModif.Value = rs!civilite
prenomModif.Value = rs!prenom
nomModif.Value = rs!nom

Mais il coince sur le "dim db as database"

[LedZeppII]

Bonsoir,

Si ta procédure stockée renvoie un jeu d'enregistrement, il te faut un objet Recordset (ADO) pour récupérer le résultat de la méthode Execute.

Code vb :

1
2
3
    Dim rs As ADODB.RecordSet
            .......
          Set rs = procStock.Execute

Voir l'aide ADO de la méthode Execute d'un objet Command.

Ton deuxième code ne peux pas fonctionner dans un projet adp car DAO ne fonctionne qu'avec Jet.
Si ce n'est pas un projet adp, alors c'est sans soute qu'il manque la référence à "Microsoft DAO x.x Object Library" (il faut la cocher).

A+

[erox44]

Mon sauveur :smack


Merci beaucoup ca fonctionne nickel.