Requete select combobox

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

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. Je suis dans le même cas que toi "driver" si quelqu'un à la solution qu'il ne se prive pas :p
    1. 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