ADOX NuméroAuto

Résolu
Signaler
Messages postés
348
Date d'inscription
mardi 6 avril 2004
Statut
Membre
Dernière intervention
6 novembre 2008
-
Messages postés
1352
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
-
bonjour,

comment fait-on pour specifier le type NuméroAuto lorsque l'on cre une base acces via adox ? (existe t'il un equivalent a addouble, adinteger, advarchar, ... ?)

merci a vous,

alonsyl

2 réponses

Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
36
Salut,

Esperantr que ca guide

amuses -toi bien









Set MaCol = New ADOX.Column

With MaCol

.DefinedSize = Choose(compteur, 0, 50, 14)

.Name = Choose(compteur, "Id", "Nom", "Tel")

.Type = Choose(compteur, adInteger, adVarWChar, adVarWChar)

.Attributes = Choose(compteur, 0, adColFixed, adColFixed +

adColNullable)

If compteur = 1 Then

Set .ParentCatalog = Catalogue

MaCol.Properties("Autoincrement") = True

MaCol.Properties("Seed") = CLng(1)

MaCol.Properties("Increment") = CLng(1)

End If

End With

MaTable.Columns.Append MaCol
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
1352
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
2
en DAO c'est dbAutoIncrField

en ADOX c'est AutoIncrement


Dim cat As New ADOX.Catalog
...
...
...

With col

.Name = "N°Contact"
.Type = adInteger
Set .ParentCatalog = cat
.Properties("AutoIncrement") = True

End With
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci