rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Requete select combobox

Posté par driver, le lundi 14 janvier 2008 à 22:11:26
Bonjour,

sous access j'ai une table etudiant avec les champ [nom] et [note]
j'ai cree un formulaire avec un combobox "cmb_nom" qui contien les noms des etudiants
et un champ text "txt_note"

ce que je veux faire c'est quand je choisi un nom d'etudiant ca note s'affiche dans la zone text

merci
Configuration: Windows XP
Firefox 2.0.0.11
Répondre à driver  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Kovsky, le vendredi 18 janvier 2008 à 15:15:22
Je suis dans le même cas que toi "driver" si quelqu'un à la solution qu'il ne se prive pas :p
Répondre à Kovsky

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 Clemchan, le mardi 3 juin 2008 à 10:41:36
pour ta question, il aurait ete bon d'indiquer le langage de programmation.
enfin bon, la je pense pouvoir t'aider en VB6 vu que je bosse en stage sur un truc a peut pres du meme style ^^
je previen je ne suis pas sur a 100% du code car moi je recupere pas une mais plusieurs données que j'envoie sur des combobox differents XD


Private Sub cmb_nom_click()
Dim cnn As Connection
Dim recTmp1 As Recordset
Dim strSQL1 As String
dim selection as string
Dim champs As Variant 'pour mon truc j'utilise en variant car j'ai vu que ct conseille, mais tu pourras utiliser integer pour test si tu as envie ;)

Set cnn = New Connection

' Définition de la connexion
cnn.Provider = "Microsoft.jet.OLEDB.4.0"
' Ouverture
cnn.Open App.Path & "\nom_de_ton_fichier_access.mdb "

selection = cmb_nom.List(cmb_nom.ListIndex) 'tu recuperes la selection de ton combobox
strSQL1 = "SELECT note FROM etudiant WHERE nom = '" & selection & "'" 'la c ta requete SQL pour chercher la note
Set recTmp1 = New Recordset
recTmp1.Open strSQL1, cnn 'je pense que la c l'ouverture du fichier et l'utilisation de la requete
champs = Trim$(recTmp1!note) 'ta variable champs recupere la valeur de la note en supprimant les espaces autour de celle ci si y en a
txt_note.text = champs 'tu remplies ton txt_note de la valeur trouvé avec la requete SQL
recTmp1.Close 'tu fermes
Set recTmp1 = Nothing

end sub
Répondre à Clemchan
Logiciels pertinents trouvés dans les téléchargements
Télécharger Color Cop 5.3Color Cop - Color Cop permet de sélectionner une couleur directement à écran avec une pipette et de l'afficher dans un visualisateur...Catégorie: Couleur
Licence: Freeware/gratuit
Télécharger GLPI 0.71GLPI - GLPI est une application libre, distribuée sous licence GPL destinée à la gestion de parc informatique et de helpdesk. ...Catégorie: Gestion de parc
Licence: Freeware/gratuit
Télécharger ImageWell 3.5.3ImageWell - ImageWell n'est pas à proprement parler un logiciel de Retouche photo. Il permet plutôt de préparer des images pour le...Catégorie: Retouche photo
Licence: Freeware/gratuit
Télécharger Xtremsplit 1.2Xtremsplit - Il existe aussi une version LINUX <h2> </h2> Xtremsplit sert à découper des gros fichiers en petits morceaux de...Catégorie: Gestion de fichiers
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « requete select combobox »