Creer une base de donnees

damd Messages postés 121 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 8 août 2008 - 22 nov. 2002 à 10:33
miate Messages postés 16 Date d'inscription mercredi 20 novembre 2002 Statut Membre Dernière intervention 24 mai 2006 - 23 nov. 2002 à 15:51
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

miate Messages postés 16 Date d'inscription mercredi 20 novembre 2002 Statut Membre Dernière intervention 24 mai 2006
22 nov. 2002 à 12:01
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
damd Messages postés 121 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 8 août 2008
22 nov. 2002 à 13:33
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
BasicInstinct Messages postés 1471 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 12
22 nov. 2002 à 13:38
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
miate Messages postés 16 Date d'inscription mercredi 20 novembre 2002 Statut Membre Dernière intervention 24 mai 2006
23 nov. 2002 à 15:51
Bien vu !!! et merci de la precision pour la reference DAO la prochaine fois j'ssaierai d'y penser.
0