ADOX Creare tabella e campi

Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
'

Set cat = New ADOX.Catalog
Set tbl = New ADOX.Table
'

' Abrir el catálogo

cat.ActiveConnection = _
"Provider=" & cboProvider.Text & ";" & _
"Data Source=" & txtNombreBase.Text & ";"
'

' Crear la nueva tabla

With tbl
.Name = txtNombreTabla.Text
' Crear los campos y añadirlos a la tabla.

' Esto hay que hacerlo antes de añadir la tabla a la colección de tablas

.Columns.Append "ID", adInteger
' Dependiendo del tipo de proveedor, los datos de cadena serán de un tipo u otro


' Para Access 2000

.Columns.Append "Nome", adVarWChar, 50 ' Una cadena de 50 caracteres
.Columns.Append "email", adVarWChar, 100
.Columns.Append "Telefono", adVarWChar
.Columns.Append "Observaciones", adLongVarWChar ' Una cadena larga, (Memo)

.Columns("Nome").Attributes = adColNullable ' Permite contener nulos
.Columns("email").Attributes = adColNullable
.Columns("Telefono").Attributes = adColNullable
.Columns("Observaciones").Attributes = adColNullable
End With
'

' Añadir la nueva tabla a la base de datos

cat.Tables.Append tbl
'

Set tbl = Nothing
Set cat = Nothing