Bonsoir,
Voici le code :
Dim dbsBase As dao.Database
Dim accTable As dao.TableDef
Set dbsBase = dao.OpenDatabase(strCheminBase & "c:\Test.mdb")
Set accTable = dbsBase.CreateTableDef("tbl_Test")
With accTable
.Fields.Append .CreateField("Nom", dbText)
.Fields.Append .CreateField("Prénom", dbText)
.Fields.Append .CreateField("Adresse1", dbText)
.Fields.Append .CreateField("Adresse2", dbText)
.Fields.Append .CreateField("CodePostal", dbText)
.Fields.Append .CreateField("Ville", dbText)
End With
dbsBase.TableDefs.Append accTable
dbsBase.Close
Set dbsBase = Nothing
Ne pas oublier dans les référence de prendre DAO
Cordialement
-------------------------------
Réponse au message :
-------------------------------
jejestyle
Comme je le dit dans le sujet j'aimerai savoir comment crer une table avec vb6.répondre please c'est important. je commmence avec vb6 et je voudrait refaire entièrement une base que j'ai fais sur access. Si vous avez lz temps réponder a mon autre question qui est dans le forum et dontr le sujet est "AA-problème de base de données.Aidez moi please!!!"
aider moi je vous en prie
merci infiniment d'avance.
|