SQL et VB.NET
Stikmou
-
Stikmou -
Stikmou -
Bonjour à tous,
voici mon petit soucis (qui est peut être un gros :p)
Voila, chez deux combobox (combobox1 (qui est un nom) et combobox2 (qui est une taille)). Quand je selectionne un choix dans chacune des combobox et que j'appuis sur le bouton supprimer, ca me supprime à la base la ligne ou il y avait le nom et la taille des combobox. Le problème le voici : Dans mes combobox, on peux choisir un Nom et une Taille qui n'existe pas dans ma table et quand on appuis sur supprimer ca fait comme si ca supprimer (alors que ca change rien au niveau de ma table).
Voici ma question : Comment je pourrai faire en sorte qu'un msgBox s'ouvre en disant "cette taille et ce nom ne sont pas associé" quand j'appuis sur le bouton supprimer.
J'ai pensai a un if, du genre :
if (taille et nom) comparé à (table PRODUIT) exist
alors requete
else
msgbox("cette taille et ce nom ne sont pas associé")
end if
Voici mon code :
voici mon petit soucis (qui est peut être un gros :p)
Voila, chez deux combobox (combobox1 (qui est un nom) et combobox2 (qui est une taille)). Quand je selectionne un choix dans chacune des combobox et que j'appuis sur le bouton supprimer, ca me supprime à la base la ligne ou il y avait le nom et la taille des combobox. Le problème le voici : Dans mes combobox, on peux choisir un Nom et une Taille qui n'existe pas dans ma table et quand on appuis sur supprimer ca fait comme si ca supprimer (alors que ca change rien au niveau de ma table).
Voici ma question : Comment je pourrai faire en sorte qu'un msgBox s'ouvre en disant "cette taille et ce nom ne sont pas associé" quand j'appuis sur le bouton supprimer.
J'ai pensai a un if, du genre :
if (taille et nom) comparé à (table PRODUIT) exist
alors requete
else
msgbox("cette taille et ce nom ne sont pas associé")
end if
Voici mon code :
Dim db As DAO.Database Dim RST1 As DAO.Recordset Set RST1 = CurrentDb.OpenRecordset("PRODUIT", dbOpenTable) DoCmd.RunSQL ("DELETE code,reference,nom,fournisseur,taille from PRODUIT where nom = '" + ComboBox1 + "' and taille = '" + ComboBox6 + "'") MsgBox ("La taille " + ComboBox1 + " à été supprimé avec succès") 'Actualisation de la table produit Me.Refresh End If
A voir également:
- SQL et VB.NET
- Logiciel sql - Télécharger - Bases de données
- Requete sql pix - Forum PHP
- Additions et multiplication dans des requêtes SQL ✓ - Forum MySQL
- Ora-00933: la commande sql ne se termine pas correctement ✓ - Forum Oracle
- Sql query download - Télécharger - Gestion de données