Bonjour

J'ai un probléme sur une application en visual basic 2008, la base de donnée est en Access

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
'déclaration des variables
 
    Private cnx As OleDbConnection
    Private cmd As OleDbCommand
    Private dta As OleDbDataAdapter
    Private cmdb As OleDbCommandBuilder
    Private dts As New DataSet
    Private dtt As DataTable
    Private dtc As DataColumn
    Private dtr As DataRow
    Private rownum As Integer
    Private conn As String
    Private sql As String
 
Try
 
 
            'crátion d'une nouvelle ligne avec les données des textbox
 
            dtr = dts.Tables("Table").NewRow
            dtr("Titre") = Me.txttitre.Text
            dtr("Société") = Me.txtsociété.Text
 
            'ajout de la ligne dans le DataSet
            dts.Tables("Table").Rows.Add(dtr)
 
            'création et exécution du commandbuilder
            'pour mettre à jour le DataAdapter
            cmdb = New OleDbCommandBuilder(dta)
 
            'mise à jour des données du DataAdapter
            'à partir du commandbuilder
 
            dts.AcceptChanges()
 
            dta.Update(dts, "Table")
 
            'on vide le dataset pour le recréer avec 
            'les nouvelles données 
            dts.Clear()
            dta.Fill(dts, "Table")
            dtt = dts.Tables("Table")
 
            'mise à jour de la datagrid
 
            DataGrid1.SetDataBinding(dts, "Table")
 
            'aller au début du fichier
            rownum = 0
 
            'affichage des données dans les texbox
            Me.txtref.Text = dtt.Rows(rownum).Item("Numéro")
            Me.txttitre.Text = dtt.Rows(rownum).Item("Titre")
            Me.txtsociété.Text = dtt.Rows(rownum).Item("Société")
 
 
            'activation des boutons
            btnp.Enabled = True         'premier
            btnprec.Enabled = True      'précédent
            btnsui.Enabled = True       'suivant
            btnder.Enabled = True       'dernier
 
            btnmod.Enabled = True
            btnsup.Enabled = True
 
            btnajou.Enabled = True
            btnenr.Enabled = False      'valider
 
            btnajou.Text = "Ajouter"
        Catch ex As OleDbException
 
            MsgBox(ex.Message)
 
        End Try

Le probléme c'est que la base de donnees n'est pas mise a jours concernant l'ajout, suppression et modification

Merci de m'aider.