Code source des bouton enregistrer supprimer et modifier en c# application Windo
Signaler
amirakaddour
asphaltsaleen
- Messages postés
- 1
- Date d'inscription
- mercredi 27 avril 2011
- Statut
- Membre
- Dernière intervention
- 27 avril 2011
asphaltsaleen
- 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
- Ajouter modifier supprimer datagridview c# - Meilleures réponses
- DATAGRID : Bouton Ajouter, Modifier, Supprimer ✓ - Forum - ASP / ASP.NET
- Datagridview : ajouter et supprimer des lignes - Forum - C# / .NET
- Code pour modifier et pour supprimer des données - Forum - Visual Basic 6
- Insérer, modifier, supprimer des enregistrements ACCESS/vb.net - Forum - VB.NET
- Ajout et suppression de ligne via le DataGridView - Forum - C# / .NET
3 réponses
asphaltsaleen
- 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")
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