Bonjour à tous,
Je souhaite aller plus loin. J’entre les éléments des tableaux de ma base de données en utilisant une InputBox.
cela marche sans probleme.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Dim NewCable As String = InputBox("Ajouter Un Type de Cable", "Nouveau", "Entrer", 4, 4) Dim RequeteCable As String = "Insert into Cables(Type) values ('" + NewCable + "')"
Toutefois, je ne parviens pas à gérer les doublons. Je voudrai qu’une MsgBox s’ouvre et affiche un message de doublon sans ajouter l’élément dans la table chaque fois que ce dernier existe déjà dans la table. Lorsque l’élément n’existe pas encore, la MsgBox m’indique qu’un nouvel élément vient d’être ajouté. Qui a une idée?
Merci
Partager