Discussion :

[hugoclo]

bonsoir,
Sur un form j'ai un datagridview et un bouton.
Mon datagridview se remplie avec une base access.
Si je modifie mon datagridview je souhaite quand cliquant sur mon bouton ma base se mette a jour. voici mon 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
49
50
51
52
  Inherits System.Windows.Forms.Form
 
 
  Private ObjetConnection As OleDbConnection
    ' Déclaration Objet Commande
    Private ObjetCommand As OleDbCommand
    ' Déclaration Objet DataAdapter
    Private ObjetDataAdapter As OleDbDataAdapter
    ' Déclaration Objet DataSet
    Private ObjetDataSet As New DataSet
    ' Déclaration Objet DataTable
    Private ObjetDataTable As New DataTable
    'String contenant la 'Requête SQL'
    Private strSql As String
    'Paramêtres de connexion à la DB
    Private strConn As String
    ' Déclaration d'un OleDbCommandBuilder
    Private ObjetCB As OleDbCommandBuilder
 
 
    Private Sub FormAjout_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim pathsonar As String
        pathsonar = lireINI("Base de données", "madb")
        'Initialisation de la chaîne de paramètres pour la connexion
        strConn = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = " & pathsonar
        'Initialisation de la chaîne contenant l'instruction SQL
        strSql = "SELECT * FROM freque"
        '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, "freque")
        'Créer une datatable à partir du dataset
        ObjetDataTable = ObjetDataSet.Tables("freque")
        'Mettre dans le DataGrid une table DataTable
        DataGridView1.DataSource = ObjetDataTable
    End Sub
 
    Private Sub btnajout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnajout.Click
        ObjetDataAdapter.Update(ObjetDataSet, "freque")
    End Sub

quand je clique j'ai cette erreur :

Erreur de syntaxe dans l'instruction INSERT INTO.

Quelqu'un voit il d'ou cela vient

[Graffito]

A priori, le code me semble OK.

Toutefois, il faudrait valider le dernier champ modifié (de mémoire via un CommitEdit). Pour vérifier si le problème vient de la, revenir sur un autre champ dèjà modifié avant d'appuyer sur le bouton.