Visual Basic - Leer estructura de un DBF

Hola,

tengo un DBF y me gustaria comprobar sus campos, longitudes y tipo de datos.

Pero no he encontrado la forma de poder leer la estructura de este.

alguien sabe como hacerlo?

mil gracias!

Si estás utilizando ADO, puedes utilizar ADOX u OpenSchema para enumerar las tablas y las columnas, si estás utilizando DAO las enumeras a través del objeto Database.

Con ADOX, sería:

Dim objCatalog As Catalog, objTable As Table, objColumn As Column

Set objCatalog = New Catalog
Set objCatalog.ActiveConnection = TuObjetoConnectionADO

For Each objTable In objCatalog.Tables
Debug.Print objTable.Name
For Each objColumn In objTable.Columns
Debug.Print objColumn.Name
Next
Next

Con OpenSchema de ADO:

Set objRecordset = TuObjetoConnection.OpenSchema(adSchemaTables)

Set objRecordset = TuObjetoConnection.OpenSchema(adSchemaColumns)

Ya lo habia provado porqué lo leí en otro post.

El primer caso me daba un error en la deficinión de Catalog, no sé si me faltava alguna referencia en el proyecto.

En el segundo caso después de añadir las librerias ADO tampoco me funcionó. Me he imaginado que no funcionava con DBF's, y lo he hecho consultando la información de cada field del recordset. Però en los campos numéricos no obtengo la longitud original del DBF.

En todo caso muchas gracias.

PD: Me quedo con la duda de porqué no me funcionó... :_(

Un pequeño apunte:
Set objRecordset = TuObjetoConnection.OpenSchema(adSchemaTables)
me funcionaba.....

Set objRecordset = TuObjetoConnection.OpenSchema(adSchemaColumns)
ya no me funcionaba.....