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'"
Partager