Discussion :

[helio500]

Bonjour à tous,

Je vous présente mon problème :

Je développe une application avec Visual Basic 2012 Express dans laquelle j'enregistre des données par l'intermédiaire de TextBox et à l'aide d'un bouton "Enregistrer".

Lors du clic sur ce bouton, voici ce qu'il se passe :

- Enregistrement des données dans une base de données Access
- rechargement des données pour que la ListView dans laquelle sont affichées les données soit rafraîchie mais cela ne fonctionne pas!

Dans pas mal d'applications que j'ai développé j'ai ce genre de code et je ne me rappelle pas avoir rencontré ce problème!
J'ai testé d'autres événements sur le bouton (MouseDown etc) mais rien ne fonctionne pas.

Merci de votre aide.

[Juaaah]

Essaie de faire :

ListView1.Clear
'Recrée tes colonnes
'Load la ListView

Sa va tout supprimer, ré-créer les colonnes, et charger les items.

[tomlev]

- rechargement des données pour que la ListView dans laquelle sont affichées les données soit rafraîchie mais cela ne fonctionne pas!

Si tu donnes pas plus de détails on va avoir du mal à t'aider...
- que signifie "ne fonctionne pas" ? il se passe quoi exactement ? Rien ? Une erreur ? Si oui, quelle erreur ?
- Quel code as-tu utilisé ?

[helio500]

Bonjour à tous,
Je remonte le problème car il n'est toujours pas réglé.
Je vais vous donner le plus d'information possible :

J'ai un bouton "Enregistrer" dans un formulaire Interventions et des TextBox ou ComboBox pour récupérer les valeurs des champs, voici le code sur l'évènement click :

Code :

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

1
2
3
4
Private Sub Enregistrer_Click(sender As Object, e As EventArgs) Handles Enregistrer.Click
	EnregInterventions(Champ1, Champ2, Champ3, Champ4, Champ5, Champ6)
	Call FrmInterventions_Load(sender, e)
End Sub

Malgré l'appel de Call FrmInterventions_Load(sender, e), ma ListViewInter dans laquelle seront affichées les champ1, champ2 etc. n'est pas mise à jour,
je dois fermer le formulaire Interventions et le relancer.
En revanche si dans la procédure EnregInterventions je mets cette ligne de code :

Code :

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

MsgBox("Enregistrement en cours...")

cela fonctionne mais je souhaiterais ne pas avoir ce msgbox.

code de la procédure EnregInterventions :

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
28
29
Sub EnregInterventions (Champ1 As Integer, Champ2 As Integer, Champ3 As String, Champ4 As String, Champ5 As String, Champ6 As String)
        Dim conn As New ADODB.Connection
        Dim MonRs As New ADODB.Recordset
        Dim SQL As String
 
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents\Database1.mdb;"
 
        conn.Open()
 
        SQL = "interventions"
 
        MonRs.Open(SQL, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents\Database1.mdb;", CursorTypeEnum.adOpenKeyset, LockTypeEnum.adLockOptimistic)
 
        MonRs.AddNew()
        MonRs.Fields(1).Value = Champ1
        MonRs.Fields(2).Value = Champ2
        MonRs.Fields(3).Value = Champ3
        MonRs.Fields(4).Value = Champ4
        MonRs.Fields(5).Value = Champ5
        MonRs.Fields(6).Value = Champ6
 
        MonRs.Update()
 
        'MsgBox("Enregistrement en cours...")
 
        MonRs.Close()
        conn.Close()
 
End Sub

Code de FrmInterventions_Load :

Code :

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

1
2
3
4
 
Private Sub FrmInterventions_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	ChargInterventions(ListViewInter)
End Sub

Code de ChargInterventions(ListViewInter) :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub ChargInterventions(ListX As ListView)
 
        Dim conn As New ADODB.Connection
        Dim MonRs As New ADODB.Recordset
        Dim CptInter As Integer
 
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents\Database1.mdb;"
 
        conn.Open()
 
        MonRs.Open("SELECT * FROM Interventions ORDER BY Interventions.Champ1 DESC", conn)
 
        With ListX
            .Clear()
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
        End With
 
        ListX.Columns.Add("Champ1", 125)
        ListX.Columns.Add("Champ2", 150)
        ListX.Columns.Add("Champ3", 50)
        ListX.Columns.Add("Champ4", 100)
        ListX.Columns.Add("Champ5", 100)
        ListX.Columns.Add("Champ6", 200)
 
        CptInter = 0
 
        While Not MonRs.EOF()
            Dim lv As ListViewItem = ListX.Items.Add(MonRs.Fields(1).Value)
            lv.SubItems.Add(MonRs.Fields(2).Value)
            lv.SubItems.Add(MonRs.Fields(3).Value)
            lv.SubItems.Add(MonRs.Fields(4).Value)
            lv.SubItems.Add(MonRs.Fields(5).Value)
            lv.SubItems.Add(" " + MonRs.Fields(6).Value)
            MonRs.MoveNext()
            CptInter = CptInter + 1
        End While
 
End Sub

Merci.

[wallace1]

Combien as tu de formulaires dans ton projet hormis frminterventions ??
Il ne faut pas mettre "call Frminterventions" lorsque tu veux mettre a jour ton listview c est inutile et les arguments dans sa signature sont incorrectes.

[helio500]

Mon application contient 1 formulaire MDI parent et 4 formulaires MDI enfants.

Je viens de remplacer "Call FrmInterventions_Load" par la procédure ChargInterventions(ListViewInter), j'ai toujours le même souci.

J'ai l'impression que les données n'ont pas le temps de s'enregistrer dans la base Access et que lors de la recharge, je n'ai pas encore les nouvelles données. Mais je ne vois pas d'où cela pourrait venir?

Merci.