Ceci est ma première intervention dans ce merveilleux forum, je commence avec Visual Basic 2008, et il y a plusieurs jours que j'ai ce problème. Je ne parviens pas à mettre à jour la base de données.
Je visualise les données dans un DataGridView, je les change, et le dataset accepte les modifications, mais ensuite je n'arrive pas à les renvoyer à la base de données.

Excuser mon français, je suis espagnol.

Voici le code:



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
Imports System.Data.OleDb
 
Public Class Form1
    Private ObjetConnection As OleDbConnection
    Private ObjetCommand As OleDbCommand
    Private ObjetDataAdapter As OleDbDataAdapter
    Private ObjetDataSet As New DataSet
    Private ObjetDataTable As New DataTable
    Private strSql As String
    Private strConn As String
    Private ObjetCB As OleDbCommandBuilder
    Private DB As String = "D:\Trabajo\pruebas\listin.mdb"
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        'Initialisation de la chaîne de paramètres pour la connexion
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & DB
        'Initialisation de la chaîne contenant l'instruction SQL
        strSql = "SELECT * FROM Listin"
        'Instanciation d'un Objet Connexion
        ObjetConnection = New OleDbConnection
        'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.ConnectionString = strConn
        'Ouvrir la connexion
        ObjetConnection.Open()
        'Instancier un objet Commande
        ObjetCommand = New OleDbCommand(strSql)
        'Instancier un objet Adapter
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        'initialiser l'objet Command
        ObjetCommand.Connection() = ObjetConnection
        'initialiser l'objet OleCBComandBuilder (sinon pas d'update)
        ObjetCB = New OleDbCommandBuilder(ObjetDataAdapter)
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataAdapter.Fill(ObjetDataSet, "Listin")
        'Créer une datatable à partir du dataset
        ObjetDataTable = ObjetDataSet.Tables("Listin")
        'Mettre dans le DataGrid une table  DataTable
        DataGridView1.DataSource = ObjetDataTable
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Mettre à jour
        ObjetDataAdapter.Update(ObjetDataSet, "Listin")
        End
    End Sub
End Class


et voici l'erreur : "Erreur de syntaxe dans 'UPDATE'"