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

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




-------------------------------
Réponse au message :
-------------------------------

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

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


-------------------------------
Réponse au message :
-------------------------------

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




-------------------------------
Réponse au message :
-------------------------------

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

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.

-------------------------------
Réponse au message :
-------------------------------

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


-------------------------------
Réponse au message :
-------------------------------

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




-------------------------------
Réponse au message :
-------------------------------

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

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



-------------------------------
Réponse au message :
-------------------------------

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.

-------------------------------
Réponse au message :
-------------------------------

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


-------------------------------
Réponse au message :
-------------------------------

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




-------------------------------
Réponse au message :
-------------------------------

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