Imprimir página | Cerrar ventana

Saber el contenido de Descripcion de campo

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=77263
Fecha de impresión: 03/Junio/2020 a las 20:30


Tema: Saber el contenido de Descripcion de campo
Publicado por: buho
Asunto: Saber el contenido de Descripcion de campo
Fecha de publicación: 10/Agosto/2013 a las 08:12
Una funcion que utilizando ADO nos devuelve (Si lo tiene) la descripcion que escribimos en vista diseño de una campo de una tabla.
Las hay mas faciles, pero esta funciona admisiblimente rápido y además nos pone de manifiesto el acceso a tablas campos y propiedades de éstos, a través de ADO:

'Necesita referencias a:
'          Microsoft ADO 2.5
'          Microsoft ADO Ext. 2.5 for DDL and Security
Function DameDescripcion(MiTabla As String, Micampo As String) As String
    Dim cnx As ADODB.Connection, Cat As ADOX.Catalog
    Dim Tbl As ADOX.Table, Fld As ADOX.Column, Prop As ADOX.Property
    'Conecto a la base de datos local
    Set cnx = CurrentProject.Connection
    'Referencia al catálogo de objetos
    Set Cat = New ADOX.Catalog
    Cat.ActiveConnection = cnx
    'Referencia a la tabla
    Set Tbl = Cat.Tables(MiTabla)
    'Y referencia a la columna
    Set Fld = Tbl.Columns(Micampo)
    'Y recorro la colección de propiedades
    For Each Prop In Fld.Properties
        ' propiedad Description
        If UCase(Prop.Name) = "Description" Then
            DameDescripcion = Prop.Value
            Exit For
        End If
    Next
    Set Prop = Nothing
    Set Fld = Nothing
    Set Tbl = Nothing
    Set Cat = Nothing
    cnx.Close
    Set cnx = Nothing
End Function





-------------
Por fin he hecho algo bueno, ser abuelo ¡y porque no lo he hecho yo!



Imprimir página | Cerrar ventana