Bonjour
dans une appli web, j'ai la requete suivante pour modifier un enregistrement dans une table Acces :
Quand je lance l'appli, je n'ai pas de beug, et l'enregistrement n'est pas modifié.
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 Using connexion As OleDbConnection = Me.DBConn 'objet DataAdapter Dim DBUpdate As New OleDbCommand DBUpdate.CommandText = "Update EssMenus set " _ & "Designation=@Designation ," _ & " DescroMenu=@DescroMenu" _ & " Where IDmenu= @IDmenu and TypMenu=@TypMenu And NumP=@NumP" Dim myOleDbDataAdapter As New OleDbDataAdapter(DBUpdate) DBUpdate.Parameters.AddWithValue("Designation", TxtModifPlat.Text) DBUpdate.Parameters.AddWithValue("DescroMenu", LeComplement) DBUpdate.Parameters.AddWithValue("IDmenu", Session("LIDMenu")) DBUpdate.Parameters.AddWithValue("TypMenu", Session("PlatRubrique")) DBUpdate.Parameters.AddWithValue("NumP", VoirNum) DBUpdate.Connection = DBConn DBUpdate.Connection.Open() DBUpdate.ExecuteNonQuery() DBConn.Close() End Using
Pouvez-vous m'indiquer l'erreur
Merci pour vos réponses
JCM
Partager