Problème d’actualisation des données dans un formulaire

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:

---

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

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

Citation:

---

Envoyé par micka132

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:

---

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:

---

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:

---

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

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

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

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

Citation:

---

Envoyé par skaraa

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?

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

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

Car

Code:

---

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:

---

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.