Requete select combobox

driver -  
 Clemchan -
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

  1. Kovsky
     
    Je suis dans le même cas que toi "driver" si quelqu'un à la solution qu'il ne se prive pas :p
    0
  2. Clemchan
     
    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
    0