Discussion :

[leeloo95]

Bonjour,

J'ai fait pas mal de delete déjà mais je vois pas ou celui la coince... si vous avez une idée car après une journée de réflexion et après de multiple tentative de compréhension je bloque toujours :

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
 
Private Sub btn_supprimer_action_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_supprimer_action.Click
        Try
            opendb()
            Dim req1 As OleDb.OleDbCommand = connexion.CreateCommand()
            req1.CommandText = "Delete * from INTERVENANTS where Num_intervenants = '" & cb_nom_inter_panel_supprimer.Text & "'"
            Dim monadaptater As New OleDb.OleDbDataAdapter(req1)
            monadaptater.DeleteCommand = req1
            monadaptater.DeleteCommand.ExecuteNonQuery()
            closedb()
 
            MsgBox("Intervenant Supprimé ")
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub

Je veux supprimer une ligne de ma table INTERVENANTS correspond au choix d'une combobox (cb_nom_inter_panel_supprimer).

Il me sort une erreur à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

monadaptater.DeleteCommand.ExecuteNonQuery()

avec comme explication :

Type de données incompatible dans l'expression du critère.

[leeloo95]

Trouvé... et j'ai honte lol :

le problème se situait au niveau de la requête:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

req1.CommandText = "Delete * from INTERVENANTS where Num_intervenants = " & Val(cb_nom_inter_panel_supprimer.Text) & ""