Bonjour,
Alors voilà j'ai un Windows Form principal : Accueil
Donc pour accéder à la gestion des payeurs, je clique dans le menu déroulant qui m'ouvre un Windows Form : GererPayeur
Pour ajouter un payeur je clique sur le bouton ajouter qui m'ouvre un Windows form : AjouterPayeur
Bon jusque là no soucis ...
Je rentre les données de mon nouveau payeur et là en théorie quand je clique sur valider cela ajoute le nouveau payeur dans ma base de donnée (sa pas de soucis )
Mais c'est censé aussi mettre a jour la listbox qui se trouve sur GererPayeur et ben sa sa ne fonctionne pas .... (ben oui tout n'est pas rose sinon j posterais pas ici ^^)
Bref c'est a se niveau la dans AjouterPayeur que j'apelle l'affichage de ma listbox dans gererpayeur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
MsgBox("Payeur Ajouter")
GererPayeur.afficheLstBox()
Me.Close()
Et l'affichage de ma listbox dans gererpayeur se fait ainsi :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    Public Sub afficheLstBox()
        Dim mySqlQuery As String = "SELECT * FROM Payeur ORDER BY NomP;"
        Dim mycommand As New MySqlCommand(mySqlQuery, connexionSQl)
        Dim myreader As MySqlDataReader = mycommand.ExecuteReader()
        Try
            '--- vider la listBox --- 
            ListBox1.Items.Clear()
            '--- pour gerer la répartition en plusieurs colonne dans la listbox ---
            ListBox1.UseTabStops = True
            ListBox1.UseCustomTabOffsets = True
            ListBox1.CustomTabOffsets.Add(80)
 
            If myreader.HasRows Then
                '--- Tant que le DataReader à une ligne d'enregistrements ---
                While myreader.Read
                    '--- Ajouter les données au ComboBox  ( vb tab : indique la separation entre 2 colonnes ---
                    ListBox1.Items.Add(myreader.GetValue(0) & vbTab & myreader.GetValue(1) & vbTab & myreader.GetValue(2) & vbTab & myreader.GetValue(4) & vbTab & myreader.GetValue(3) & vbTab & myreader.GetValue(5) & vbTab & myreader.GetValue(6) & vbTab & myreader.GetValue(7))
                End While
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If Not (myreader Is Nothing) Then myreader.Close()
        End Try
        myreader.Close()
        connexionSQl.Close()
    End Sub
Merci d'avance ^^