Bonjour,

J'utilise une base de données Acces que j'ai intégré dans mon projet.

Lorsque que j'ajoute un enregistrement, tout marche correctement jusqu’à que je ferme le logiciel et a la réouverture tout a disparu.

La base de données ne se met pas a jour j'ai l'impression.

Pourtant je fais bien un update.

Voici un bout de code ou j'ajoute une ligne par exemple :

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
Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click
        Dim liReturnCode As Integer
        Try
            liReturnCode = frm_portefeuille.BddTableAdapter.MaxID
            liReturnCode = liReturnCode + 1
            Dim civil As String
            If rb_Mme.Checked Then
                civil = "Mme"
            End If
            If rb_Mr.Checked Then
                civil = "Mr"
            End If
            Dim Date_N As Date = DTI_date_naissance.Value
            Dim Date_i As Date = DTI_inter.Value
            Dim auj As Date = DateTime.Today
            frm_portefeuille.BddTableAdapter.Nouveau_client(txt_nom.Text, txt_prenom.Text, Date_N.ToString("d"), txt_adresse.Text, txt_code.Text, txt_ville.Text, txt_télephone.Text, txt_mail.Text, Date_i.ToString("d"), cmb_type_inter.Text, auj.ToString("d"), txt_commentaire.Text, liReturnCode.ToString, civil.ToString)
            frm_portefeuille.BddTableAdapter.Update(frm_portefeuille.BddDataSet.bdd)
            frm_portefeuille.BddTableAdapter.Fill(frm_portefeuille.BddDataSet.bdd)
 
            Me.Close()
        Catch Exc As Exception
            MessageBoxEx.Show(Exc.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
    End Sub