Creer une base de donnees

Signaler
Messages postés
121
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
8 août 2008
-
Messages postés
16
Date d'inscription
mercredi 20 novembre 2002
Statut
Membre
Dernière intervention
24 mai 2006
-
salut a tous

j'aimerai creer une base de donnees sous visual basic.
j'ai deja essayer plein de truc, et rien n'a marché.
en fait je veut un truc simple :
- je cree ma base sous access (une table de 40 colonnes et de 19 lignes )
- je rentre les donnees
- je valide l'enregistrer

si quelqu'un a vraiment une idee tres simple du probleme.
merci

4 réponses

Messages postés
16
Date d'inscription
mercredi 20 novembre 2002
Statut
Membre
Dernière intervention
24 mai 2006

Si tu utilise DAO essaies ceci
Dim wrk as Workspace
Dim db as Database
Dim tb as Tabledef
Dim fld as Field

si la base n'est pas deja crée
Set wrk=DBengine.Workspace(0)
Set db=wrk.CreateDatabase("Newdb.mdb")
Si la base existe
Set db=OpenDatabase("Newdb.mdb")
Création de Table
Set tb=db.CreateTabledef("Newtb")
With tb
'Creation des champs
.Fields.Appen.Createfield("toto",dbText)
End With
db.Tabledefs.Append tb

Pour tes 40 champs tu peux mettre la methode
.Fields.Append.Createfield dans une boucle et indexé le nom du champ sinon c'est 40 fois la meme la constante dbText determine le type de champ dbText dbInteger dbDate etc...
En esperant avoir repondu à ta demande
0
Messages postés
121
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
8 août 2008

j'ai essaye ce que tu m'a conseille et j'ai trois petites questions :
- ou est-ce que la base est creee car appres avoir lancer juste ces instructions je ne l'ai pas trouve
- est-ce que tu peux expliquer la ligne
Set wrk=DBengine.Workspace(0)
- vb n'a pas accepte l'instruction
.Fields.Appen.Createfield("toto",dbText)
car il voulais un signa "=" alors j'ai mis
.Fields.Appen = Createfield("toto",dbText)

encore merci
0
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
menu Projet/réference

rajoute microsoft dao 2.5/3.51......
pour que vb accepte le code.

Set wrk=DBengine.Workspace(0)
defini un espace de travail. Necessaire pour pouvoir acceder a une base de donnees.
0
Messages postés
16
Date d'inscription
mercredi 20 novembre 2002
Statut
Membre
Dernière intervention
24 mai 2006

Bien vu !!! et merci de la precision pour la reference DAO la prochaine fois j'ssaierai d'y penser.
0