Bonjour
Je viens demander de l'aide pour trouver ce qui ne va pas dans ce code.
Je n'ai aucune erreur dans le fonctionnement, le code va jusqu'au bout avec le MsgBox("Delete Success") bien affiché mais la ligne sélectionnée n'est pas supprimée .
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
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=""E:\PROJET VB_BASIC\TE_RH\Mas_" &
        "projet\Mas_projet\bin\Debug\MAS_Database.accdb"""
 
 
        connString = provider & dataFile
        myConnection.ConnectionString = connString
        myConnection.Open()
        Dim str As String
        str = "Delete from [Table1] where ID = " & 9
        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
        MsgBox("Delete Success")
        Try
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            myConnection.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
            End Try
 
    End Sub
je me trompe peut etre mais je pense qu'il y a un hic dans
Code : Sélectionner tout - Visualiser dans une fenêtre à part
str = "Delete from [Table1] where ID = " & 9
Merci d'avance de votre aide

Cordialement