cs_Charlie
Messages postés110Date d'inscriptionjeudi 9 mai 2002StatutMembreDernière intervention11 mars 2010
-
12 juin 2002 à 02:19
hadddock
Messages postés15Date d'inscriptionmardi 21 mai 2002StatutMembreDernière intervention26 novembre 2017
-
12 juin 2002 à 16:50
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!
hadddock
Messages postés15Date d'inscriptionmardi 21 mai 2002StatutMembreDernière intervention26 novembre 2017 12 juin 2002 à 16:50
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