Suppression données dans datagridview et base access

Version imprimable

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:

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:

str = "Delete from [Table1] where ID = " & 9

Merci d'avance de votre aide

Cordialement

11/10/2018, 10h31
FLYeRNeT
Essaie ça :

Code:

str = "Delete from [Table1] where ID = 9"

Si tu veux passer le ID avec une variable tu fais (si ton ID est un entier) :
Code:

1 2 3 dim iIDToDelete as integer = 9 str = "Delete from [Table1] where ID = " + iIDToDelete.ToString()
à la place de "iIDToDelete.ToString()" tu peux aussi écrire "CStr(iIDToDelete)".

Ta requête est une chaîne de caractères donc tu dois convertir ton ID qui est un entier en chaîne --> .ToString() ou CStr()

Après la suppression de l'enregistrement en BDD n'oublie pas de recharger les données de la grille pour voir disparaître ta ligne...

Je crois que c'est ton index qui est mal exprimé :
Essaye donc :

Dim Index As Integer = 9
"DELETE FROM TAble1 WHERE (Id = " & Index & ")")

Perso, j'utilise la procédure suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Private Sub SauveSuppress(ByVal IdArticle As Integer) ' Mode connecté : exécution d'un ordre SQL
        Dim ConnexionTMP As OleDbConnection = Nothing
        Dim MaCommande As OleDlCommand = Nothing
        ConnexionTMP = OuvreConnexion(ChaineConnexion, True)
        MaCommande = CreeCommande(MaConnexion, "DELETE FROM TProduit WHERE (Id = " & IdArticle & ")")
        ' Il peut y avoir rejet …
        Try
            If MaCommande.ExecuteNonQuery() < 1 Then
                Throw New Exception("Identifiant non trouvé")
            End If
        Catch Ex As Exception
            MessageBox.Show(Ex.Message & CR & "Suppression refusée" & CR & "Tables en mémoire rechargées")
        Finally
            MonStock.AcceptChanges()
        End Try
        ConnexionTMP.Close()
    End Sub

Bien sûr, si tu veux utiliser cette procédure, tu dois adapter un peu, chez moi :

ChaineConnexion est connue dans tout le programme
OuvreConnexion réalise l'Open
CreeCommande crée la commande et lui fournit sa chaine SQL

J'espère que cela t'aidera ...