Code source des bouton enregistrer supprimer et modifier en c# application Windo
amirakaddour
1
Messages postés
mercredi 27 avril 2011Date d'inscription
27 avril 2011
Dernière intervention
-
27 avril 2011 à 17:14 - Dernière réponse :
asphaltsaleen
1
Messages postés
mardi 29 mars 2011Date d'inscription
24 juillet 2012
Dernière intervention
- 24 juil. 2012 à 10:34
- Code source des bouton enregistrer supprimer et modifier en c# application Windo
- Code vb.net pour boutons suivant, précédent, ajouter,supprimer, annuler et enregistrer
- Enregistré, ajouté, supprimée, suivant, précédent code en vbnet
- Bouton ajouter,supprimer,premier,precedent,suivant,dernier » Forum - VB.NET
- Projet VB horloge sept segments [Résolu] (Résolu) » Forum - VB.NET
- Bouton precedent et suivant sur VB [Résolu] » Forum - Visual Basic 6
- Action de bouton avec java » Forum - Java
- Probleme sur mon code d'enregistrement(bouton enregistrer) » Forum - VB.NET
3 réponses
Meilleure réponse
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")
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 93 internautes ce mois-ci
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.