Error al crear un campo en tabla Access, en tiempo de ejecución

Question

Buenas. Quiero crear campos en una tabla Access. Para ello estoy usando el siguiente método, que funciona bien hasta la línea de asteriscos. Lo que pretendo es que el campo que creo no sea "Requerido", y para ello trato de poner la propiedad "Nullable" a True, pero me da el siguiente error:

"-2147217887 - La operación de múltiples pasos de OLE DB generó errores. Compruebe los valores de estado de OLE DB si es posible. No se realizó ningún trabajo."

¿Alguna idea?

   Dim ConnMASTER    As New ADODB.Connection
   Dim ADOXcat       As New ADOX.Catalog
   Dim tblFichas     As ADOX.Table


   ConnMASTER.CursorLocation = adUseClient
   ConnMASTER.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & glbRutaBDD & "\MASTER.mdb"

   ADOXcat.ActiveConnection = ConnMASTER.ConnectionString
   Set tblFichas = ADOXcat.Tables("FICHAS2")


   tblFichas.Columns.Append "MiCampo", 130, 50    'Campo TEXTO, 50


   tblFichas("MiCampo").Properties("DESCRIPTION") = rstFichas("DESCRIPTION")
   tblFichas("MiCampo").Properties("Jet OLEDB:Allow Zero Length") = True

   tblFichas("MiCampo").Properties("Nullable") = True   '****************

Answer 1

Dim ConnMASTER    As New ADODB.Connection
   Dim ADOXcat       As New ADOX.Catalog
   Dim tblFichas     As ADOX.Table
   Dim col

   ConnMASTER.CursorLocation = adUseClient
   ConnMASTER.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & glbRutaBDD & "\MASTER.mdb"

   ADOXcat.ActiveConnection = ConnMASTER.ConnectionString
   Set tblFichas = ADOXcat.Tables("FICHAS2")


   tblFichas.Columns.Append "MiCampo", 130, 50    'Campo TEXTO, 50

     Set col = cat.Tables("FICHAS2").Columns("MiCampo")
     col.Properties("Nullable") = True


   col.Properties("DESCRIPTION") = rstFichas("DESCRIPTION")
   col.Properties("Jet OLEDB:Allow Zero Length") = True

---

Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

Answer 2

Gracias por responder.

Tampoco funciona, me da el mismo error. ¿Tendrá que ver algo la ConnectionString?

Answer 3

Lo conseguí, y aquí queda por si alguien lo necesita:

   Dim ADOXcat       As New ADOX.Catalog
   Dim tblFichas     As ADOX.Table  


...


   Set colCampo = New ADOX.Column
   Set colCampo.ParentCatalog = ADOXcat
   colCampo.Name = cNomcampo
   colCampo.Type = nTipoVar
   colCampo.DefinedSize = nAncho
   colCampo.Attributes = adColNullable
   
   tblFichas.Columns.Append colCampo
   ADOXcat.Tables.Refresh