Probleme BDD ACCESS
Systech_Systems
Messages postés
15
Date d'inscription
lundi 22 septembre 2003
Statut
Membre
Dernière intervention
13 janvier 2010
-
8 juin 2009 à 17:21
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 - 8 juin 2009 à 22:50
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 - 8 juin 2009 à 22:50
A voir également:
- Probleme BDD ACCESS
- Vb access - Conseils pratiques -Visual Basic / VB.NET
- Stock access bde - Forum Delphi / Pascal
- Insert into access - Forum SQL
- Access sql date ✓ - Forum SQL
- Access like ✓ - Forum SQL
2 réponses
Systech_Systems
Messages postés
15
Date d'inscription
lundi 22 septembre 2003
Statut
Membre
Dernière intervention
13 janvier 2010
8 juin 2009 à 17:24
8 juin 2009 à 17:24
Private Sub Btn_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Add.Click
Dim NewClient As DataRow
NewClient = Datas.Clients.NewRow
NewClient("Nom") = Txt_Nom.Text
NewClient("Prénom") = Txt_Prenom.Text
NewClient("Adresse") = Txt_Adresse.Text
NewClient("CodePostal") = Txt_CodePostal.Text
NewClient("Ville") = Txt_Ville.Text
NewClient("Téléphone") = Txt_Telephone.Text
NewClient("Mobile") = Txt_Mobile.Text
NewClient("Mail") = Txt_Mobile.Text
NewClient("Commentaires") = Txt_Commentaires.Text
NewClient("Solde") = 0
Datas.Clients.Rows.Add(NewClient)
Datas.Tables("Clients").AcceptChanges()
Datas.AcceptChanges()
end Sub
Dim NewClient As DataRow
NewClient = Datas.Clients.NewRow
NewClient("Nom") = Txt_Nom.Text
NewClient("Prénom") = Txt_Prenom.Text
NewClient("Adresse") = Txt_Adresse.Text
NewClient("CodePostal") = Txt_CodePostal.Text
NewClient("Ville") = Txt_Ville.Text
NewClient("Téléphone") = Txt_Telephone.Text
NewClient("Mobile") = Txt_Mobile.Text
NewClient("Mail") = Txt_Mobile.Text
NewClient("Commentaires") = Txt_Commentaires.Text
NewClient("Solde") = 0
Datas.Clients.Rows.Add(NewClient)
Datas.Tables("Clients").AcceptChanges()
Datas.AcceptChanges()
end Sub
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
8 juin 2009 à 22:50
8 juin 2009 à 22:50
Salut,
La base access est Ou, si elle est dans le repertoire bin/debug elle ne sera pas mise à jour.
Bon dev
La base access est Ou, si elle est dans le repertoire bin/debug elle ne sera pas mise à jour.
Bon dev