Bonjour

dans une appli web, j'ai la requete suivante pour modifier un enregistrement dans une table Acces :

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
Quand je lance l'appli, je n'ai pas de beug, et l'enregistrement n'est pas modifié.
Pouvez-vous m'indiquer l'erreur
Merci pour vos réponses
JCM