Discussion :

[skaraa]

Bonjour,

Je charge les données d'une base de données dans un listview d'un formulaire windows.
J'ai un bouton qui me permet d'ajouter des données dans la table (cela fonctionne)

En revanche je n'arrive pas à rafraîchir mon listview sans avoir besoin de le fermer.

Code :

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

Me.T_SleevesTableAdapter.Fill(Me.DataSet.T_Sleeves)

Concrètement il me faut forcer l’événement activated de ma form pour que ma listview se mette à jour
Comment forcer cet événement ? ou quelle est la meilleur façon de procéder dans ce cas? je sèche un peu...

(J'ai reussi avec une msgbox mais je voudrais que cela soit transparent pour l'utilisateur)

Merci pour votre aide

[micka132]

Tu peux utiliser la methode Update() de la grille.

[skaraa]

Tu peux utiliser la methode Update() de la grille.

Merci d'avoir pris le temps de mé répondre.
Même résultat...

En fait quand je clique sur un bouton j'ai le code ci-dessous qui s'execute :

Code :

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

1
2
3
4
Insérer_Dans_Table("[T_Lien_Internet]", "[Clé],[Nom],[URL]", Label_Clé.Text & "','" & Mise_En_Forme_Variable(valeur2) & "','" & Mise_En_Forme_Variable(valeur))
'MsgBox("ok")
actualiser_Internet()
Charger_Sites_Internet()

Insérer_Dans_Table = fonction d'ajout de données dans ma table
actualiser_Internet = fonction de mise à jour du dataadapter

Code :

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

1
2
3
Sub actualiser_Internet()
Me.T_Jeux_Lien_InternetTableAdapter.Fill(Me.LudothequeDataSet.T_Jeux_Lien_Internet)
End Sub

Charger_Sites_Internet() = fonction de chargement de ma listview avec les données de la table.

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
Sub Charger_Sites_Internet()
ListView_Internet.Items.Clear()
If Not Label_Clé.Text = "" Then
Dim table As DataTable = LudothequeDataSet.Tables("T_Lien_Internet")
Dim expression As String
expression = "[CléJeu] = '" & Label_Clé.Text & "'"
Dim foundRows() As DataRow
foundRows = table.Select(expression)
 
Dim i As Integer
For i = 0 To foundRows.GetUpperBound(0)
Dim Nom As String
Dim URL As String
Nom = foundRows(i)("Nom")
URL = foundRows(i)("URL")
ListView_Internet.Items.Add(Nom)
ListView_Internet.Items.Item(0).SubItems.Add(URL)
Next i
End If
End Sub

Bref... cela fonctionne en décalé, si j'insère une valeur je n'ai rien dans ma listview, lors de l'ajout de la seconde valeur j'ai la première etc...
Surement tout bête le souci mais je bloque...

cela fonctionne si j'active la msgbox dans le code du bouton...

[micka132]

Essaye un Update(), suivit d'un Refresh()

[skaraa]

Même résultat (je vais devenir fou)

Sans doute que j'applique pas au bon endroit... qu'entend tu par grille?

[micka132]

Même résultat (je vais devenir fou)

Sans doute que j'applique pas au bon endroit... qu'entend tu par grille?

Ben ta ListView_Internet ? C'est bien elle qui ne se mets pas à jour?

[skaraa]

C'est bien ça, donc je confirme même résultat...

[skaraa]

EN fait je pense que c'est "normal" que ma listview ne soit pas à jour.

Car

Code :

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

foundRows.GetUpperBound(0)

retourne l'ancien index (dans la fonction Charger_Sites_Internet() plus haut donc c'est comme si ma table ne actualisait pas malgrés

Code :

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

Me.T_Jeux_Lien_InternetTableAdapter.Fill(Me.LudothequeDataSet.T_Jeux_Lien_Internet)

Mais pourquoi ce comportement? qu'est ce je rate... (Je rappelle qu'une msgbox placé juste avant corrige ce problème mais j’espère ne pas avoir à écrire une message-box a chaque modification de ma table ...

comment forcer le rafraîchissement? ou de quoi?

Merci pour votre aide.