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
- Enregistrer dans table access par formulaire (Résolu) » Forum - Visual Basic 6
- Modifier les code source d'une page web » Forum - PHP
- Code du bouton enregistrer » Forum - C# / .NET
- Afficher / modifier le code source d'une page ouverte sur IE » Forum - Visual Basic
- Besoin du code source pour modifier le nom demarrer ou start » Forum - Visual Basic
3 réponses
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")
Cette réponse vous a-t-elle aidé ?
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.