Remplir une listebox

Version imprimable

Bonjour,

J'essaie d'adapter un script trouvé sur le net de remplissage d'une listebox. Le script fonctionne parfaitement, il affiche dans la listbox le nom et l'id de la ligne.
Je ne trouve pas comment faire pour afficher que le nom, et que le remplissage des cjamps concernés se fasse toujours...

Le code en déclaration :

Code:

1
2
3
4
5
6
7
8
9
10
11
Public Sub DBremplirListe(ByRef LST As ListBox) 'remarquez le ByRef
        Dim cmd = New SQLiteCommand("SELECT ID,Nom FROM MYDATA ORDER BY Nom", CON)
        Dim DR As SQLiteDataReader = cmd.ExecuteReader
        LST.Items.Clear()
        While (DR.Read())
            'DR(1) est le nom DR(0) est ID
            'LST.Items.Add(DR(1) & "-" & DR(0)) 'utilise le - pour la séparation.
            LST.Items.Add(DR(1))
        End While
        DR.Close()
    End Sub

Jusqu'a la pas de soucis je sait comment faire, c'est apres...

Le code de la listbox dans la form :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex = -1 Then Exit Sub
        Dim z As String = ListBox1.SelectedItem
        Dim p As Integer = z.IndexOf("-") 'utilise le - pour la séparation.
        Dim i As String = CInt(z.Substring(p + 1))
        Dim TBL_mydata As m_MYDATA = DBgetMYDATA(i)
        txtNom.Text = TBL_mydata.Nom
        txtDivers1.Text = TBL_mydata.Divers1
        txtLogin.Text = TBL_mydata.Login
        txtDivers2.Text = TBL_mydata.Divers2
        txtPass.Text = TBL_mydata.Pass
        SelID = TBL_mydata.ID
End Sub

La je bloque ke n'arrive pas à supprimer le - sans tout faire planter ou alors sans pouvoir remplir les champs concerné sur le cilc.

Merci pour vos infos/aide.

Cordialement.

02/10/2016, 15h08
rv26t

Bonjour,

Il vaut mieux avoir une approche différente plutôt que de découper des chaînes de caractères.
Regardez du coté de DisplayMember et ValueMember.

Bonjour,

Merci pour l'info mais ça ne solution pas mon pb. dans les cas ont sélectionne une ligne et ça je sait faire.

Ce que je cherche c'est comment remplir mes textbox avec les donnée de la bdd.

Avec :
Code:

1 2 3 4 5 6 7 8 9 Public Sub DBremplirListe(ByRef LST As ListBox) 'remarquez le ByRef Dim cmd = New SQLiteCommand("SELECT ID,Nom FROM MYDATA ORDER BY Nom", CON) Dim DR As SQLiteDataReader = cmd.ExecuteReader LST.Items.Clear() While (DR.Read()) 'DR(1) est le nom DR(0) est ID LST.Items.Add(DR(1)) End While DR.Close()
Je remplis la listbox

C'est apres que je n'arrive pas à traiter le code pour remplir les textbox. Il me faut l'ID mais je n'arrive pas/ne sait pas la récupérer
pour l'utiliser, comme dans l'exemple ci-dessous :
Code:

1 2 3 4 5 6 7 Dim TBL_mydata As m_MYDATA = DBgetMYDATA(ID à récupérée...) txtNom.Text = TBL_mydata.Nom txtDivers1.Text = TBL_mydata.Divers1 txtLogin.Text = TBL_mydata.Login txtDivers2.Text = TBL_mydata.Divers2 txtPass.Text = TBL_mydata.Pass SelID = TBL_mydata.ID
Cordialement

une classe qui décrit ton id et nom

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Class MyData
    Private _id As Integer
    Private _nom As String
    Public Sub New(ByVal ID As Integer, ByVal Nom As String)
        _nom = Nom
        _id = ID
    End Sub
    Public ReadOnly Property ID() As Integer
        Get
            Return _id
        End Get
    End Property
 
    Public ReadOnly Property Nom() As String
        Get
            Return _nom
        End Get
    End Property
End Class

une liste (Mydata) que tu rempli avec don DR (ici manuel pour l'exemple)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Dim data As List(Of MyData) = New List(Of MyData)
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
// remplir dans la boucle avec DR
        data.Add(New MyData(1, "Alabama"))
        data.Add(New MyData(2, "Washington"))
        data.Add(New MyData(3, "West Virginia"))
        data.Add(New MyData(4, "Wisconsin"))
        data.Add(New MyData(5, "Wyoming"))
 
        ListBox1.DataSource = data
        ListBox1.DisplayMember = "Nom"
        ListBox1.ValueMember = "ID"
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedIndex <> -1 Then
            TextBox1.Text = ListBox1.SelectedValue.ToString()
            TextBox2.Text = ListBox1.Text
        End If
    End Sub
End Class

pour résumer, après avoir créé ta classe (j'ai pas très bien choisi le nom, à toi de voir) :
- tu crées une instance

Code:

Dim data As List(Of MyData) = New List(Of MyData)

- tu fais les liens avec ta listbox

Code:

1
2
3
        ListBox1.DataSource = data
        ListBox1.DisplayMember = "Nom"
        ListBox1.ValueMember = "ID"

- tu remplis ta classe avec ton DR

- récuprération du code "ID"

Code:

Dim TBL_mydata As m_MYDATA = DBgetMYDATA(ListBox1.SelectedValue.ToString())

02/10/2016, 17h08
azorol

Cool merci pour l'explication et le code !