[VB.net 2005]Problème avec des windows form
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:
1
2
3
4
|
MsgBox("Payeur Ajouter")
GererPayeur.afficheLstBox()
Me.Close() |
Et l'affichage de ma listbox dans gererpayeur se fait ainsi :
Code:
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 ^^
