Discussion :

[texnamor]

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

[FLYeRNeT]

Essaie ça :

Code :

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

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 :

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

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...

[Phil Rob]

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 :

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
    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 ...