Code source des bouton enregistrer supprimer et modifier en c# application Windo
amirakaddour
- Messages postés
- 1
- Date d'inscription
- mercredi 27 avril 2011
- Statut
- Membre
- Dernière intervention
- 27 avril 2011
- Messages postés
- 1
- Date d'inscription
- mardi 29 mars 2011
- Statut
- Membre
- Dernière intervention
- 24 juillet 2012
A voir également:
- Methode ajouter modifier et supprimer avec c#
- Code bouton enregistrer c# - Meilleures réponses
- Bouton ajouter c# - Meilleures réponses
- Visual Basic / VB.NET : Ajout, modifier et supprimer sans access et pour toute les tables en .net - - Guide
- Désormais programmer les bouttons ajouter,modifier et supprimer n'est qu'un jeu d'enfants. - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- PHP : Fonction caddie : ajouter/modifier/supprimer des éléments - CodeS SourceS - Guide
- Visual Basic / VB.NET : Ajouter - modifier - supprimer dans une bdd access sous vb2010 (partie 3) - - Guide
- PHP : Simple interface Ajouter,Modifier,Supprimer et Rechercher /Mysql - CodeS SourceS - Guide
3 réponses
Meilleure réponse
- Messages postés
- 1
- Date d'inscription
- mardi 29 mars 2011
- Statut
- Membre
- Dernière intervention
- 24 juillet 2012
Dim save As String = "insert into client values('" & TextBox1.Text & " ','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & ComboBox2.Text & "','" & TextBox7.Text & "','" & TextBox2.Text & "')"
Dim cmd As New SqlCommand(S, con)
cmd.ExecuteNonQuery()
MsgBox("l'ajouter est fait avec succee")
modifier
Dim s As String = "update client set typeclient='" & ComboBox1.Text & "',nomclient='" & TextBox3.Text & "',prenomclient= '" & TextBox4.Text & "',adresseclient='" & TextBox5.Text & "',paysdeclient='" & ComboBox2.Text & "',Télephone='" & TextBox7.Text & "',Fax='" & TextBox2.Text & "'where numclient='" & TextBox1.Text & "'"
Dim cmd As New SqlCommand(s, con)
cmd.ExecuteNonQuery()
MsgBox("la modification est fait avec succee"
nouveau
TextBox1.Text = ""
ComboBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
combobox2.Text = ""
TextBox7.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
Dim srt As String = " delet client where Numclient= " & TextBox1.Text & " "
Dim cmd As New SqlCommand(srt, con)
cmd.ExecuteNonQuery()
TextBox1.Text = ""
ComboBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ComboBox2.Text = ""
TextBox7.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
MsgBox("la suppression est fait avec succée")
Dim cmd As New SqlCommand(S, con)
cmd.ExecuteNonQuery()
MsgBox("l'ajouter est fait avec succee")
modifier
Dim s As String = "update client set typeclient='" & ComboBox1.Text & "',nomclient='" & TextBox3.Text & "',prenomclient= '" & TextBox4.Text & "',adresseclient='" & TextBox5.Text & "',paysdeclient='" & ComboBox2.Text & "',Télephone='" & TextBox7.Text & "',Fax='" & TextBox2.Text & "'where numclient='" & TextBox1.Text & "'"
Dim cmd As New SqlCommand(s, con)
cmd.ExecuteNonQuery()
MsgBox("la modification est fait avec succee"
nouveau
TextBox1.Text = ""
ComboBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
combobox2.Text = ""
TextBox7.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
Dim srt As String = " delet client where Numclient= " & TextBox1.Text & " "
Dim cmd As New SqlCommand(srt, con)
cmd.ExecuteNonQuery()
TextBox1.Text = ""
ComboBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ComboBox2.Text = ""
TextBox7.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
MsgBox("la suppression est fait avec succée")
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 642
- Date d'inscription
- mercredi 10 septembre 2008
- Statut
- Membre
- Dernière intervention
- 9 février 2017
Je veux...
[b]"Chez ceux qui semblent très vertueux se cachent en général la vanité, l'orgueil, l'intolérance".
P.Coehlo (Maktub 2004)/b