Crear tablas Access con ADOX en VB

[jcl]

Hola,

Usando DAO, para crear una tabla Access y fijar los atributos y propiedades de las columna, se puede hacer con algo así:


Dim dbDataBase As Database

Dim TableDef1 As TableDef

Set dbDataBase = OpenDatabase(…..)

Set TableDef1 = dbDataBase.CreateTableDef(“MiTabla”)
….

With TableDef1
…….
…….
.Fields.Append .CreateField("Color", dbText, 10)
…….
…….
.Fields("Color").DefaultValue = "Amarillo"
…….
…….
End With

dbDataBase.TableDefs.Append TableDef1

Ello crea “MiTabla” y el “Valor predeterminado” de la columna “Color” se fija en “Amarillo” , es decir, que cada vez que se crea un registro, esa columna tendrá este valor por defecto.

Ahora bien, deseo hace eso mismo pero en lugar de utilizar DAO quiero usar ADOX, pero no se cual es el valor que se debe asignar y tampoco como se llama o cual es esta propiedad en ADOX que me permita hacer eso ¿alguien sabe?

Tengo identificadas (quince) 15 propiedades y las encontré en el forum de

www.freevbcode.com:

colAutoincrement = 0
colDefault = 1
colDescription = 2
colNullable = 3
colFixedLength = 4
colSeed = 5
colIncrement = 6
colValidationText = 7
colValidationRule = 8
colIISNotLastColumn = 9
colAutoGenerate = 10
colOneBlobPerPage = 11
colCompressedUnicode = 12
colAllowZeroLength = 13
colHyperlink = 14

Con ADOX la cosa sería algo así:
....
....
Set Table = New Table
Set Table.ParentCatalog = Catalog

With Table
....
....
.Columns.Append "Color", adVarWChar, 10
….
Bla, Bla, Bla ....

Aquí sólo estoy definiendo la columna pero no se como establecer el “Valor predeterminado”

Por favor, el que no sepa podría aprovechar su tiempo en otra cosa, en lugar de auto invitarse en participar o decir u opinar sobre este tema si conocer sobre el asunto.

(Recuerden, es ADOX y no otra cosa )

Gracias.