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
-
27 avril 2011 à 17:14
asphaltsaleen Messages postés 1 Date d'inscription mardi 29 mars 2011 Statut Membre Dernière intervention 24 juillet 2012 - 24 juil. 2012 à 10:34
asphaltsaleen Messages postés 1 Date d'inscription mardi 29 mars 2011 Statut Membre Dernière intervention 24 juillet 2012 - 24 juil. 2012 à 10:34
A voir également:
- Bouton modifier
- Que fait la fonction cmd dans le language vb - Meilleures réponses
- Modifier c# - Meilleures réponses
- Bouton de commande ✓ - Forum Visual Basic
- Bouton "Modifier" ✓ - Forum VBA Office (Excel, Word ...)
- Bouton grisé - Forum C# / .NET
- [->Javascript] Griser ou éteindre un bouton ✓ - Forum Javascript / DHTML
- Bouton rechercher ✓ - Forum Visual Basic
3 réponses
asphaltsaleen
Messages postés
1
Date d'inscription
mardi 29 mars 2011
Statut
Membre
Dernière intervention
24 juillet 2012
11
24 juil. 2012 à 10:34
24 juil. 2012 à 10:34
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")
