** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - Saber el contenido de Descripcion de campo
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoSaber el contenido de Descripcion de campo

 Responder Responder
Autor
Mensaje
buho Ver desplegable
Administrador
Administrador
Avatar
Abuelo FELIZ

Unido: 10/Abril/2004
Localización: Valladolid
Estado: Sin conexión
Puntos: 11317
Enlace directo a este mensaje Tema: Saber el contenido de Descripcion de campo
    Enviado: 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



Expulsado de la cárcel por robar los barrotes
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable