creer une base de donnees

Question

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

miate · Answer

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

damd · Answer

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

BasicInstinct · Answer

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.

miate · Answer

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

Creer une base de donnees

4 réponses

Discussions similaires