Openschema y Access

"Ruben Rodriguez" escribió:

Quisiera saber si es posible, a través del método Openschema de ADO,
recuperar datos de: formato, título, valor predeterminado, texto de
validación, etc., de los campos de una tabla de Microsoft Access

Hola, Rubén:

Y en lugar de utilizar el método «OpenSchema» de ADO, ¿por qué no utilizas
los objetos disponibles en la biblioteca de ADOX?

Si deseas probar el siguiente ejemplo, haz una referencia en tu proyecto VB
a la biblioteca «Microsoft ADO Ext. 2.x for DDL and Security»:

Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim fld As ADOX.Column
Dim prp As ADOX.Property

' Creo un nuevo objeto catálogo
Set cat = New ADOX.Catalog

' Establezco la conexión con la base de datos
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Mis documentos\Bd1.mdb"

' Referenciamos una tabla de nuestra base de datos
Set tbl = cat.Tables("Clientes")

' Recorremos todos los campos de la tabla para ver sus propiedades
For Each fld In tbl.Columns
For Each prp In fld.Properties
MsgBox "Nombre del campo: " & fld.Name & vbCrLf & _
"Tipo de dato: " & prp.Type & vbCrLf & _
"Valor del campo: " & prp.Value, , _
"Nombre de la propiedad: " & prp.Name
Next
Next

Un saludo.

Enrique Martínez
[MS MVP - VB]