Programmation du bouton enregistrer (visual basic 6)
Signaler
cs_idelphonse
Doro81079
- Messages postés
- 17
- Date d'inscription
- mercredi 1 juin 2005
- Statut
- Membre
- Dernière intervention
- 18 juillet 2007
Doro81079
- Messages postés
- 380
- 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
- Bouton enregistrement - Meilleures réponses
- Un bouton enregistrer dans mon fichier ✓ - Forum - Javascript / DHTML
- Bouton enregistrer sous ✓ - Forum - Java
- Bouton enregistrement ✓ - Forum - Visual Basic 6
- Bouton enregistrer ✓ - Forum - C# / .NET
- Bouton Enregistrer Spécifique et bouton quitter ✓ - Forum - Visual Basic 6
3 réponses
tbbuim1
- 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
Doro81079
- Messages postés
- 380
- 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