Créer une BD a partir de VB

Signaler
Messages postés
110
Date d'inscription
jeudi 9 mai 2002
Statut
Membre
Dernière intervention
11 mars 2010
-
Messages postés
15
Date d'inscription
mardi 21 mai 2002
Statut
Membre
Dernière intervention
26 novembre 2017
-
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!

1 réponse

Messages postés
15
Date d'inscription
mardi 21 mai 2002
Statut
Membre
Dernière intervention
26 novembre 2017

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
0