Voici un petit bout de code qui devrait repondre a votre question :
Sub CreationBaseAccess(NomDeLaBaseDeDonnees)
'declaration des objets
Dim DB As Database, TF As TableDef, FLD As Field
'creation de la base de donnees NomDeLaBaseDeDonnees
Set DB = DBEngine(0).CreateDatabase(NomDeLaBaseDeDonnees, dbLangGeneral)
'ouverture de la base de donnees NomDeLaBaseDeDonnees
Set DB = DBEngine(0).OpenDatabase(NomDeLaBaseDeDonnees)
'creation de la table «clients»
Set TF = DB.CreateTableDef("clients")
'creation du champ «id» format numerique entier
Set FLD = TF.CreateField("id", dbInteger)
'ajout du champ «id» à la table « clients »
TF.Fields.Append FLD
'creation du champ «nom» format texte de 20 caractères
Set FLD = TF.CreateField("nom", dbText,20)
'ajout du champ «nom» à la table «clients»
TF.Fields.Append FLD
'creation du champ «prenom» format texte de 20 caractères
Set FLD = TF.CreateField("prenom", dbText,20)
'ajout du champ «prenom» à la table «clients»
TF.Fields.Append FLD
'ajout de la table « clients » à la base DB
DB.TableDefs.Append TF
'etc.
End Sub
-------------------------------
Réponse au message :
-------------------------------
Allo...
Ce que je veux faire c'est créer une base de donnée a partir de VB. En fouillant sur le site, j'ai trouvé un petit exemple qui le fait à l'aide de DAO. Comme je ne comprend pas trop les base de données, je ne sais pas quelle est la différence entre une base de donnée DAO et ADO.
De plus, j'aimerais savoir comment utiliser la commande createdatabase de DAO... est-il possible de faire des liens faire des tables... comment créer des tables et les autres trucs de base utile genre spécifier le type de variable!
Merci!
|