Discussion :

[demando77]

Bonjour à tous,
Je suis entrain de développer une petite application pour la gestion des articles d'un supermarché.
J'ai comme ceci créé ma requête de suppression:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Dim SupProd As SqlConnection = New SqlConnection("Data Source=MICHELTSHODI\MICHELTSHODI4VS;Initial Catalog=BdGestionArticles;Integrated Security=True")
        SupProd.Open()
        MsgBox("Connexion à la base réussie", MessageBoxIcon.Information, "Réussite")
        'Dim code As Integer
        'code = CInt(txtId.Text)
        Dim SupCmd As SqlCommand = AddProd.CreateCommand()
        SupCmd.CommandText = "DELETE FROM TFournisseur WHERE IdFourn= '" + Int32.Parse(txtId.Text) + "'"
        MsgBox("" + AddCmd.CommandText)
        SupCmd.ExecuteNonQuery()
        MsgBox("Fournisseur supprimé avec succès", vbInformation, "Confirmation")
        SupProd.Close()

En exécutant le projet, il s'affiche une erreur du genre "erreur de casting", alors que dans la BD, mon champ IdFourn est bien du type entier.
J'ai essayé par la même méthode de supprimer avec un champ autre chargé depuis un Combobox, ca ne marche toujours pas.
J'aimerais au fait laisser à l'utilisateur le choix de supprimer à partir du champ de la table qu'il souhaite (sélectionné dans le combo) et la valeur de la clé (saisie dans le textbox).
Merci des contributions svp.

[DotNetMatt]

Sujet deja traite maintes et maintes fois sur le forum : il faut toujours utiliser des requetes parametrees.

A lire : .Net, SQL Server, et les requêtes paramétrées (VB.Net)

Ton erreur ici c'est que tu concatenes ta valeur entre ' et ' ce qui pour le SGBD signifie que lui envoies un string.

[demando77]

Sujet deja traite maintes et maintes fois sur le forum : il faut toujours utiliser des requetes parametrees.

A lire : .Net, SQL Server, et les requêtes paramétrées (VB.Net)

Ton erreur ici c'est que tu concatenes ta valeur entre ' et ' ce qui pour le SGBD signifie que lui envoies un string.

Bonjour et merci de cette réponse.
Merci aussi de m'aider avec un exemple de requête paramétrée. Je le fait bien avec INSERT, mais je ne sais pas avec les autres.

[jcdentons]

Bonjour demando77,

La logique est la même pour un update ou un delete (pour un select c'est légèrement différent, car il y a une valeur de retour).

Cela donne à peu près ceci dans votre cas, à la gestion des exceptions près :

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
Dim SupProd As SqlConnection = New SqlConnection("Data Source=MICHELTSHODI\MICHELTSHODI4VS;Initial Catalog=BdGestionArticles;Integrated Security=True")
 
        MsgBox("Connexion à la base réussie", MessageBoxIcon.Information, "Réussite")
        'Dim code As Integer
        'code = CInt(txtId.Text)
 
        Dim Requete As String = "DELETE FROM TFournisseur WHERE IdFourn= @idFourniture"
        Dim SupCmd As SqlCommand = New SqlCommand(Requete, SupProd)
        With SupCmd.Parameters
            .Add(New SqlParameter("@idFourniture", SqlDbType.Int, 4))
        End With
        With SupCmd.Parameters
            .Parameters("@idFourniture").Value = CInt(txtId.Text)
        End With
        SupProd.Open()
        SupCmd.ExecuteNonQuery()
        SupProd.Close()