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 :
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.
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 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
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é :
Mais il coince sur le "dim db as database"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager