Bonjour,
Je débute dans la programmation VBA pour ACCESS et j'ai une question pour vous.
J'ai une TABLE: tblCitation (id_Citation,Citation,Id_Auteur,DateCitation).
(vous l'aurez compris il y a aussi une table tblAuteur mais pas nécessaire pour ma question)
J'ai une REQUETE prédéfinie 'qryRequetePourUnAuteur' dont le SQL est le suivant:
Je souhaite récupérer le résultat de cette requête dans un recordset ADO. Désolé je ne connais pas DAO et je vais essayer de comprendre correctement le modèle ADO avant de me pencher sur DAO.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 SELECT tblCitation.Citation, tblCitation.id_Auteur, tblCitation.DateCitation FROM tblCitation WHERE (((tblCitation.id_Auteur)=[idAuteur]));
Voici donc mon code:
Je sais c'est assez classique. Ce code marche lorsque la requête 'qryRequetePourUnAuteur' n'exige pas de paramètre a renseigner. En revanche des que je mets une condition sur le champ 'id_Auteur' (le id_Auteur comme paramètre)...patatra ca marche pas et vu mon niveau je rame un peu. J'ai bien cherche sur le net une solution mais je n'ai pas encore trouvé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub TestQueryAvecParametreDansRecordset() Dim oConn As ADODB.Connection Dim rSt As New ADODB.Recordset <div style="margin-left:40px">Set oConn = CurrentProject.Connection rSt.Open "qryRequetePourUnAuteur ", oConn, adOpenKeyset,</div>adLockOptimistic Set rSt = Nothing Set oConn = Nothing End Sub
Je ne comprends pas bien le rôle de 'adCmdStoredProc' qui produira un message d'erreur différent si je l'applique a mon recordset.
Aussi je me tourne vers vous en postant ce message. Comment puis-je passer a l'instruction Open la valeur du parametre [id_Auteur].
Merci pas avance de votre aide et désolé pour les accents mon clavier n'en a pas.
Sancho.
Partager