Bonjour,
mon problème que j'arrive pas à savoir ma faute syntaxique au niveau de cette requête, lors de l'exécution, il m'envoie cet erreur:
Erreur de syntaxe dans l'instruction update
requête:
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 Dim check As Integer Dim conn As New OleDbConnection Dim oledbcom As New OleDbCommand If MsgBox("Voulez-vous enregistrer les modifications ?", MsgBoxStyle.OkCancel, "Modifier") = MsgBoxResult.Cancel Then Else Try conn = GetConnect() conn.Open() oledbcom = conn.CreateCommand oledbcom.CommandText = "UPDATE Stock SET Inventaire= '" & Trim(Inv2.Text) & "', Date_d'entrée= '" & Trim(Date2.Text) & "',Fournisseur= '" & Trim(Fourn2.Text) & "',Désignation= '" & Trim(Desi2.Text) & "',Quantité= '" & Numeric2.Value & "',Lieu= '" & Trim(Lieu2.Text) & "' WHERE Inventaire= " & Trim(Label15.Text) & "" check = oledbcom.ExecuteReader.RecordsAffected If check > 0 Then MsgBox("Modification avec succée", MsgBoxStyle.Information, "Modification") Else MsgBox("Modification échouer ", MsgBoxStyle.Information, "Modification") End If refresh_form() conn.Close() Catch ex As Exception MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly, "Connection Erreur !!""") End Try End If
Partager