Recuperation basique de donnees

Recuperation basique de donnees - VB/VBA/VBS - Programmation

Marsh Posté le 08-06-2002 à 22:22:34    

Hello.
J'ai une bdd Access avec les champs suivants (Sport, annee, vainqueur).
Dans un formulaire, je mets 2 listes deroulantes : une contenant la liste des sports, l'autre la liste des annees.
Dans ce formulaire, j'ajoute aussi un champ texte et un bouton.
Quand je clique sur le bouton, je voudrais qu'il me fasse la requete 'select vainqueur from myTable where sport = 'monSport' and annee = 'MonAnnee', et qu'il m'affiche le vainqueur dans le champ texte.
Comment faire ? faut-il utiliser DoCmd.RunSQL ?
Merci.

Reply

Marsh Posté le 08-06-2002 à 22:22:34   

Reply

Marsh Posté le 11-06-2002 à 16:12:52    

ernst a écrit a écrit :

Hello.
J'ai une bdd Access avec les champs suivants (Sport, annee, vainqueur).
Dans un formulaire, je mets 2 listes deroulantes : une contenant la liste des sports, l'autre la liste des annees.
Dans ce formulaire, j'ajoute aussi un champ texte et un bouton.
Quand je clique sur le bouton, je voudrais qu'il me fasse la requete 'select vainqueur from myTable where sport = 'monSport' and annee = 'MonAnnee', et qu'il m'affiche le vainqueur dans le champ texte.
Comment faire ? faut-il utiliser DoCmd.RunSQL ?
Merci.  




 
Salut !
 
Pour l'instruction select tu ne peux pas utiliser Docmd.runsql, tu es obligé d'utiliser un recordset.
Voici un exemple:
 
Dim rs as recordset
dim res as string
 
req="select vainqueur from myTable where sport = '" & listeSport.itemdata(listeSport.listindex) & "' and annee = '" & listeAnnee.itemdata(listeAnnee.listindex) & "'
set rs=currentdb.openrecordset(req,dbopensnapshot)
 
champtext=rs!vainqueur
 
Voila ;)

Reply

Marsh Posté le 11-06-2002 à 16:22:39    

merci beaucoup.
j'ai vraiment cherche partout et j'ai pas trouve d'exemple. tu me sauves la vie.
Que ferais-t-on sans Bolino ? :sol:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed