Discussion :

[jpenja]

Bonjour,
j'ai crée une base données Access(Associations) que je visualise dans un windows form.Chaque champ de cette base étant rattaché à un textbox.Puis grace à une requete SQL j'extrait de cette base de données toutes les associations se rapportant à ma recherche.Je visualise ces associations dans une listbox.
tout ce qui précède pour définir le context.
PB => je voudrais qu'en cliquant sur une des possibilités qui s'affiche dans la listbox tous les champs du windows form s'alimentent avec la possibilité sélectionnée.
Ci dessous le code utilisé pour afficher la listbox :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If ListBox1.Items.Count > 0 Then
ListBox1.Items.Clear()
End If
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "z:\public\associations.mdb")
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT [nom association] FROM [table1] WHERE [nom association]LIKE '%" & TextBox1.Text & "%'"
MyConnexion.Open()
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
Do While myReader.Read()
ListBox1.Items.Add(myReader.GetString(0))
Loop
myReader.Close()
MyConnexion.Close()
If ListBox1.Items.Count >= 1 Then
ListBox1.Show()
End If
End Sub

il me manque ce qui devrait y avoir à la place des pointillés bleus
Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
..............................................................................
End Sub

[smyley]

sinon, en théroie ( ) tu devrais juste refaire une commande SELECT comme dans ton Button2_Click avec comme paramètre ListBox1.SelectedItem convertit en String

[jpenja]

Merci smyley d'avoir pris le temps de me répondre.Je ferais de mon mieux pour ne pas oublier les règles en vigueur, mais étant totalement novice ce n'est pas toujours facile.
J'ai essayé avec une nouvelle requète dont voiçi le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "z:\public\associations.mdb")
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
        Mycommand.CommandText = "SELECT [N°Infomil] FROM [table1] WHERE [nom association]= ' & ListBox1.SelectedItem & '"
        MyConnexion.Open()
        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()

et cette fois ci j'aie une erreur :
l'exeption oledbexception n'a pas été gérée :Aucune valeur donnée pour un ou plusieurs des paramètres requis.
elle se produit sur la dernière ligne du code que j'envoie
je ne comprends pas ce qui provoque cette erreur.
Merci à tous ceux qui pourraient me donner une explication.

[jpenja]

j'ai résolu mon problème.Merci à ceux qui m'ont aidé