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
-
5 juil. 2005 à 11:03
Doro81079 Messages postés 380 Date d'inscription vendredi 22 avril 2005 Statut Membre Dernière intervention 24 février 2015 - 5 juil. 2005 à 20:48
Doro81079 Messages postés 380 Date d'inscription vendredi 22 avril 2005 Statut Membre Dernière intervention 24 février 2015 - 5 juil. 2005 à 20:48
A voir également:
- Boton guardar en visual basic
- Visual basic 2005 - Conseils pratiques -Visual Basic / VB.NET
- If visual basic - Conseils pratiques -Visual Basic / VB.NET
- Visual basic commentaire ✓ - Forum VB.NET
- Passer en commentaire plusieurs lignes de code VBA rapidement ✓ - Forum Visual Basic
- Mettre en commentaire tout un bloc ✓ - Forum Visual Basic
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
9
5 juil. 2005 à 11:29
5 juil. 2005 à 11:29
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
56
5 juil. 2005 à 20:46
5 juil. 2005 à 20:46
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
Doro81079
Messages postés
380
Date d'inscription
vendredi 22 avril 2005
Statut
Membre
Dernière intervention
24 février 2015
56
5 juil. 2005 à 20:48
5 juil. 2005 à 20:48
oups la fiche c'est 503262
