Discussion :

[tibblou]

Bonsoir,

Je solicite une nouvelle fois votre aide

Sous VB2005

Après avoir sélectionné une des trois tables de ma BD access, mon programme affiche une DataGridView de la table sélectionnée, puis permet à l'utilisateur de modifier son intégralité.

Un bouton Mise à jour, permet de réactualiser les données de mon DataAdapter (j'en ai crée 3 différents)

Pour deux des trois tables, la mise à jour s'effectue sans problème, mais pour l'une d'entre elles, j'ai une erreur visiblement de syntaxe (voir l'image jointe)

Je pense que mon erreur doit venir des paramètres de ma BD access mais je ne trouve pas

Qu'en pensez-vous ?

Merci d'avance pour votre aide

Ci-dessous une partie de code, sachant que la connexion est établie, et l'affichage du datagridview est correct.

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
        dataConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Application.StartupPath & "\bd1.mdb;"
        dataSql = "SELECT UTILISATEUR.* FROM UTILISATEUR"
        dataSql1 = "SELECT PC.* FROM PC"
        dataSql2 = "SELECT LOGICIEL.* FROM LOGICIEL"
 
        'Création des objets 
        DataConnection = New OleDbConnection
        DataConnection.ConnectionString = dataConn
        DataConnection.Open()
 
        DataCommand = New OleDbCommand(dataSql)
        DataCommand1 = New OleDbCommand(dataSql1)
        DataCommand2 = New OleDbCommand(dataSql2)
 
        DataDataAdapter = New OleDbDataAdapter(DataCommand)
        DataDataAdapter1 = New OleDbDataAdapter(DataCommand1)
        DataDataAdapter2 = New OleDbDataAdapter(DataCommand2)
 
        DataCommand.Connection() = DataConnection
        DataCommand1.Connection() = DataConnection
        DataCommand2.Connection() = DataConnection
 
 
        'Pour modifier les valeurs changées dans le DataAdapter
        DataCB = New OleDbCommandBuilder(DataDataAdapter)
        DataCB1 = New OleDbCommandBuilder(DataDataAdapter1)
        DataCB2 = New OleDbCommandBuilder(DataDataAdapter2)
 
 
 
If RadioButton1.Checked = True Then
            DataGridView1.Visible = True
            Try
                DataDataAdapter.Update(DataDataSet, "UTILISATEUR")
            Catch
                MessageBox.Show("La Mise a échouée")
            End Try
 
            MessageBox.Show("La Mise à jour a été effectuée")
 
            'On actualise
            DataGridView1.Refresh()
 
        ElseIf RadioButton2.Checked = True Then
            DataGridView1.Visible = True
            Try
                'Mettre à jour
                DataDataAdapter1.Update(DataDataSet1, "PC")
            Catch
                MessageBox.Show("La Mise a échouée")
            End Try
 
            MessageBox.Show("La Mise à jour a été effectuée")
            'On actualise
            DataGridView1.Refresh()
 
        ElseIf RadioButton3.Checked = True Then
            DataGridView1.Visible = True
            Try
                'Mettre à jour
                DataDataAdapter2.Update(DataDataSet2, "LOGICIEL")
            Catch
                MessageBox.Show("La Mise a échouée")
            End Try
            MessageBox.Show("La Mise à jour a été effectuée")
 
            'On actualise
            DataGridView1.Refresh()