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()
Partager