Mise a jour base de données

**santacrus** · 06/06/2010, 14h42

Bonjour a tous,

Je debute en vb.net et j'essaie de retranscrire une vieille application access.
Apres avoir epluché le tuto de Lasserre et étudié plusieurs tuto sur le net, je n'arrive tjs pas à mettre à jour ma base de données.
Voici le bout de code de la connection lors de l'ouverture du formulaire:

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
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'ouverture de la connection
        conn = "provider = microsoft.ace.oledb.12.0 ; data source = " & "D:\BdD\Dossier Location\Location1.accdb;"
        cnx = New OleDbConnection
        cnx.ConnectionString = conn
        cnx.Open()
 
        sql = "select * from BAILLEUR" 'ORDER BY [Bailleur id]"
        cmd = New OleDbCommand(sql)
        dta = New OleDbDataAdapter(cmd)
        cmd.Connection() = cnx
 
 
        'chargement du DataSet à partir du DataAdapter                  
        dta.Fill(dts, "BAILLEUR")
 
        'chargement de la DataTable à partir du DataSet                 
        dtt = dts.Tables("BAILLEUR")

et voici le bout code de tentative de mise a jour de la base:

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
Private Sub btnenr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenr.Click
 
        'si un champ n'est pas rempli fin de procédure
        If Me.txtnom.Text = "" Or _
           Me.txtad1.Text = "" Or _
           Me.txtville.Text = "" Then
 
            MessageBox.Show("Vous devez remplir tous les champs !", "Erreur...", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
            Me.txtnom.Focus()
 
            Exit Sub
 
        End If
 
        'crátion d'une nouvelle ligne avec les données des textbox
        dtr = dts.Tables("BAILLEUR").NewRow
        dtr("bailleur nom") = Me.txtnom.Text
        dtr("bailleur adresse1") = Me.txtad1.Text
        dtr("bailleur ville") = Me.txtville.Text
 
        'ajout de la ligne dans le DataSet
        dts.Tables("BAILLEUR").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
 
        dta.Update(dts, "BAILLEUR")