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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 868 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

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!
Messages postés
140
Date d'inscription
mardi 8 juillet 2003
Statut
Membre
Dernière intervention
11 décembre 2007

juste merci...
Messages postés
27
Date d'inscription
lundi 27 janvier 2003
Statut
Membre
Dernière intervention
16 mai 2003

Merci pour la doc
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
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 ???
Afficher les 8 commentaires

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.