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