Discussion :

[ahmed_kh]

Salut les pros.
j'ai un formulaire vb.net contenant une listbox. Je veux bien que lorsqu'on sélectionne l'un des élément de la listbox l'enregistrement sera supprimé de ma base de données (après validation bien sur).
J'ai utilisé le code suivant mais ça marche pas avec moi, merci de m'aider à trouver la faute SVP.

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
23
 
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim strsql As String
        Dim strConnexion As String = "Persist Security Info=true;Integrated Security=SSPI;database=parc municipal;server=USER-PC\AHMED"
        Dim x As Exception
        Try
            strsql = " delete  from categorie where nom_cat = '" & ListBox1.SelectedItem & "';"
            Dim oConnection As New SqlConnection(strConnexion)
            oConnection.Open()
            Dim cmd As New SqlCommand(strsql, oConnection)
            cmd.ExecuteNonQuery()
 
 
 
            oConnection.Close()
            MsgBox("ajout avec succes ", MsgBoxStyle.OkOnly, "ajout catégorie")
            Me.Hide()
        Catch x
            MsgBox("L'erreur suivante a été rencontrée :" & x.Message)
        End Try
 
 
    End Sub

Le msg d'erreur dit que le syntaxe de la requète est faux

l'opérateur '&' n'appartient pas à la chaine

merci bieeeeeeeen

[Invité]

tu as essayer de remplacer les & par un +

[ahmed_kh]

meme chose avec '+'.
le msg d'erreur dit:

l'opérateur '+' n'est pas défini pour la chaine "delete from categorie where...." et type 'dataRowView'.

[benny-blanco]

Je pense qu'il faut ajouter la fonction tostring

Code :

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

       strsql = " delete  from categorie where nom_cat = '" & ListBox1.SelectedItem.ToString & "';"

[ahmed_kh]

oui ca marche avec tostring mais la suppression n'est pas exécutée.

[benny-blanco]

j'ai récement créer une méthode pour supprimer :

Code :

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

1
2
3
4
5
6
7
8
9
 Sub supprimer(ByVal table As String, ByVal id As Integer)
        Dim cmd As New SqlCommand
        cmd.CommandType = CommandType.Text
        cmd = New SqlCommand("DELETE FROM " & table & " WHERE id = " & id, cxString)
        cmd.Connection = cxString
        cxString.Open()
        cmd.ExecuteNonQuery()
        cxString.Close()
    End Sub

Je vois que dans ta requête tu as mis

Code :

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

 DELETE FROM nom_categorie

Je suppose que c'est juste a titre informatif mais que dans ta requête tu passe bien

Code :

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

DELETE FROM nom_table

De plus je te conseil lors de tes prochain test dans le try catch de mettre plutôt

Code :

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

 Dim x As SQLexception

qui correspond a des erreur propre a ton SGDB