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:
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.
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()
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.
Partager