Créer une table et des champs dans une base access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 649 fois - Téléchargée 46 fois

Contenu du snippet

Ceci est un exemple pour créer une table et des champs dans une base Access existante.

Source / Exemple :


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

Conclusion :


Article du MSDN :

Syntaxe de CreateField :

CreateField(name, type, size)

name : Facultatif. Donnée de type Variant (sous-type String) attribuant un nom unique au nouvel objet Field.

type : Facultatif. Constante déterminant le type de données du nouvel objet Field.

size : Facultatif. Donnée de type Variant (sous-type Integer) qui indique la taille maximale, en octets, d'un objet Field contenant du texte. Cet argument n'est pas pris en compte dans le cas de champs numériques ou de taille fixe.

Les constantes pour l'argument 'type'
Constante Description
--------- -----------
dbBigInt Big Integer
dbBinary Binary
dbBoolean Boolean
dbByte Byte
dbChar Char
dbCurrency Currency
dbDate Date/Time
dbDecimal Decimal
dbDouble Double
dbFloat Float
dbGUID GUID
dbInteger Integer
dbLong Long
dbLongBinary Long Binary (OLE object)
dbMemo Memo
dbNumeric Numeric
dbSingle Single
dbText Text
dbTime Time
dbTimeStamp Time Stamp
dbVarBinary VarBinary

A voir également

Ajouter un commentaire

Commentaires

mobbarley
Messages postés
3
Date d'inscription
jeudi 19 juillet 2007
Statut
Membre
Dernière intervention
23 juillet 2007
-
cool ta source,
mais comment peut on faire le chemin inverse avec les types?
cad que j'ai une table deja remplie et je voudrai obtenir le type des champs a partir d'excel...
merciiiii!
odan71
Messages postés
140
Date d'inscription
mardi 8 juillet 2003
Statut
Membre
Dernière intervention
11 décembre 2007
-
juste merci...
Rakarth2002
Messages postés
27
Date d'inscription
lundi 27 janvier 2003
Statut
Membre
Dernière intervention
16 mai 2003
-
Merci pour la doc
Derrick soft
Messages postés
97
Date d'inscription
jeudi 10 mai 2001
Statut
Membre
Dernière intervention
20 juin 2005
-
Bonjour,

Désoler, je ne travaille pas en ADO, je trouve le développement trop long et lourd.

Cordialement

Stéphane
leptidev
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007
-
Comment on fait avec ADO ???

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.