Bonjour à tous.
Est-ce quelqu'un peut me dire pourquoi la ligne en gras ne fait pas la mise à jour demandée tandis que celle en italique fonctionne parfaitement (évidemment je teste l'une ou l'autre en désactivant le commentaire)
Parce que moi je comprends vraiment pas !
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 Dim wCommand As New OleDb.OleDbCommand LibelleArticle = Me.tbx_LibelleDef.Text With wCommand .Connection = G_cnClient '.CommandText = "UPDATE Articles SET Articles.LibelleDef=@LibArt WHERE (((Articles.AbrDef)=@CodeArticle))" '.CommandText = "UPDATE Articles SET Articles.LibelleDef='" & LibelleArticle & "' WHERE (((Articles.AbrDef)=@CodeArticle))" .CommandType = CommandType.Text .Parameters.Add(New OleDbParameter("@CodeArticle", OleDbType.VarChar, 50)).Value = CodeArticle .Parameters.Add(New OleDbParameter("@LibArt", OleDbType.VarChar, 255)).Value = LibelleArticle .ExecuteNonQuery() wCommand = Nothing End With
Partager