Discussion :

[Entela]

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 ^^

[lysiandad]

Etes-vous sûr que votre requete "SELECT" retourne des lignes depuis la BDD ?

[Entela]

Certaine je l'ai tester seul ...
Je me demande si le problème ne vient pas du fait que je fait la connexion et sur la fenêtre GererPayeur et AjouterPayeur...
Pourtant quand j'ai fait ce bout de programme en test (dans se cas la GererPayeur était parent) le programme fonctionnais

[Entela]

En fait le problème semble venir du fait que mes fenètres filles AjoutPayeur, et MofifPayeur ne sons plus lier à ma fenètre parents Gerepayeur, ...
Fin comment dire
quand je clique sur GererPayeur paf j'ia ma fenêtre niquel je selectionne la personne a modif dans ma liste box et en cliquant sur modif payeur sa devrai mafficher les infos de cette perconne ...
hors il ne les passe plus dans ma variable, comme si elle n'existait plus ?
Je sais pas si je me fait bien comprendre ...