Bonjour à tous,

J'ai créer un formulaire windows qui affiche les données d'une table Access.
Voici le code qui m'affiche les données dans mes différentes textbox (rattachées à ma base Access)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 Private Sub Fiche_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.T_JeuxTableAdapter.Fill(LudothequeDataSet.T_Jeux)
 End Sub
Je voudrai actualiser les données de ma base access si un utilisateur fait des modifications dans les différentes textbox.
Voici le code de mon bouton de Mise a jour

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
41
42
43
44
45
46
47
48
Private Sub Button_MAJ_Click(sender As Object, e As EventArgs) Handles Button_MAJ.Click
        Dim deletedChildRecords As LudothequeDataSet.T_JeuxDataTable =
            CType(Me.LudothequeDataSet.T_Jeux.GetChanges(Data.DataRowState.Deleted), LudothequeDataSet.T_JeuxDataTable)
 
        Dim newChildRecords As LudothequeDataSet.T_JeuxDataTable =
            CType(Me.LudothequeDataSet.T_Jeux.GetChanges(Data.DataRowState.Added), LudothequeDataSet.T_JeuxDataTable)
 
        Dim modifiedChildRecords As LudothequeDataSet.T_JeuxDataTable =
            CType(Me.LudothequeDataSet.T_Jeux.GetChanges(Data.DataRowState.Modified), LudothequeDataSet.T_JeuxDataTable)
 
        Try
            If deletedChildRecords IsNot Nothing Then
                T_JeuxTableAdapter.Update(deletedChildRecords)
            End If
 
            T_JeuxTableAdapter.Update(Me.LudothequeDataSet.T_Jeux)
 
            If newChildRecords IsNot Nothing Then
                T_JeuxTableAdapter.Update(newChildRecords)
            End If
 
            If modifiedChildRecords IsNot Nothing Then
                T_JeuxTableAdapter.Update(modifiedChildRecords)
            End If
 
            Me.LudothequeDataSet.AcceptChanges()
 
            ' MessageBox.Show(LudothequeDataSet.Tables("T_Jeux").Rows(0).Item("Age").ToString)
 
        Catch ex As Exception
            MessageBox.Show("Erreur")
 
        Finally
            If deletedChildRecords IsNot Nothing Then
                deletedChildRecords.Dispose()
            End If
 
            If newChildRecords IsNot Nothing Then
                newChildRecords.Dispose()
            End If
 
            If modifiedChildRecords IsNot Nothing Then
                modifiedChildRecords.Dispose()
            End If
 
        End Try
 
    End Sub
Le souci c'est qu'à chaque ouverture de mon formulaire mes données sont perdue (la valeur de la message box en commentaire elle est bien modifiée)

Une idée du problème?

Merci d'avance de m'apporter vos lumières...