Programmation du bouton enregistrer (visual basic 6)
cs_idelphonse
- Messages postés
- 17
- Date d'inscription
- mercredi 1 juin 2005
- Statut
- Membre
- Dernière intervention
- 18 juillet 2007
- Messages postés
- 398
- Date d'inscription
- vendredi 22 avril 2005
- Statut
- Membre
- Dernière intervention
- 24 février 2015
A voir également:
- Bouton enregistrer
- Code bouton ajouter visual basic - Meilleures réponses
- Programmer un bouton en visual basic - Meilleures réponses
- Code bouton enregistrer c# - Forum - C# / .NET
- Bouton enregistrer ✓ - Forum - C# / .NET
- Code pour boutons - Forum - Visual Basic
- Un bouton enregistrer dans mon fichier ✓ - Forum - Javascript / DHTML
- Bouton enregistrer sous ✓ - Forum - Java
3 réponses
Meilleure réponse
- Messages postés
- 940
- Date d'inscription
- jeudi 20 février 2003
- Statut
- Membre
- Dernière intervention
- 3 février 2011
En utilisant ADO et une requête INSERT en SQL, tu peux le faire.
Le code est facilement trouvable sur ce site.
TBBUIM
Le code est facilement trouvable sur ce site.
TBBUIM
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
209 internautes nous ont dit merci ce mois-ci
- Messages postés
- 398
- Date d'inscription
- vendredi 22 avril 2005
- Statut
- Membre
- Dernière intervention
- 24 février 2015
bonjour,
ajoute la bibliothèque "Microsoft active x data object 2.x library" x dans 2.x est un chiffre (projet=>références=> et la biblio)
si tu veux mettre un controle adodc pour pouvoir naviguer dans ta BD va a la fiche 503777
option explicit
dim tabase as new adodb.connection
dim tatable as new adodb.recordset
la partie ecrite en bleu devrait se trouver dans form_Load
et dans ce cas tabase.close devrait se trouver dans le bouton quitter
mais si tu ne veux q'ajouter des données tu peux tout mettre dans le bouton enregistrer
private sub cmdenr_click()
tabase.provider="Microsoft.oledb.4.0"
tabase.open "data source = chemin et nom de ta base.mdb"
tatable.open "tatable",tabase,adopendynamic,adlockoptimistic
tatable.addnew
tatable("Nom duchamp")= controle associe au champ (ex:text1.text)
'ainsi de suite pour toutes les textbox
tatable.update
tabase.close
voila sinon poste un autre message si il y a un problème
doro
ajoute la bibliothèque "Microsoft active x data object 2.x library" x dans 2.x est un chiffre (projet=>références=> et la biblio)
si tu veux mettre un controle adodc pour pouvoir naviguer dans ta BD va a la fiche 503777
option explicit
dim tabase as new adodb.connection
dim tatable as new adodb.recordset
la partie ecrite en bleu devrait se trouver dans form_Load
et dans ce cas tabase.close devrait se trouver dans le bouton quitter
mais si tu ne veux q'ajouter des données tu peux tout mettre dans le bouton enregistrer
private sub cmdenr_click()
tabase.provider="Microsoft.oledb.4.0"
tabase.open "data source = chemin et nom de ta base.mdb"
tatable.open "tatable",tabase,adopendynamic,adlockoptimistic
tatable.addnew
tatable("Nom duchamp")= controle associe au champ (ex:text1.text)
'ainsi de suite pour toutes les textbox
tatable.update
tabase.close
voila sinon poste un autre message si il y a un problème
doro