Nombrar Field.Type

[geokym]

Busque por el foro pero no encontre nada, espero no se molesten si el tema ya se encontraba y me encuentro un poco escazo de tiempo.

Lo que necesito es encontrar algun procedimiento en el cual dar nombre al fields.Type por ejemplo si tengo una campo de texto me devuelve el tipo 202 ó el 2 si es numerico, el punto es que son demasiados si alguien sabe donde puedo encontrar el procedimiento ya listo o alguien que me lo facilite por favor

Código:

    Select Case Dato
        Case 2
            Tipo_Dato = "Númerico"
        Case 202
            Tipo_Dato = "Cadena de texto"
        Case Else
            Tipo_Dato = Dato
    End Select

caballeros, de antemano muchas gracias...

[Avellaneda]

Iniciado por geokym

Busque por el foro pero no encontre nada, espero no se molesten si el tema ya se encontraba y me encuentro un poco escazo de tiempo.

Lo que necesito es encontrar algun procedimiento en el cual dar nombre al fields.Type por ejemplo si tengo una campo de texto me devuelve el tipo 202 ó el 2 si es numerico, el punto es que son demasiados si alguien sabe donde puedo encontrar el procedimiento ya listo o alguien que me lo facilite por favor

Código:

    Select Case Dato
        Case 2
            Tipo_Dato = "Númerico"
        Case 202
            Tipo_Dato = "Cadena de texto"
        Case Else
            Tipo_Dato = Dato
    End Select

caballeros, de antemano muchas gracias...

Bueno, es que el tipo de campo depende de la base de datos que estés utilizando.

[geokym]

emmm !! jaj vale si eso lo sé, el punto es si existe alguna función ya hecha... para no revisar uno por uno!

[Avellaneda]

Iniciado por geokym

emmm !! jaj vale si eso lo sé, el punto es si existe alguna función ya hecha... para no revisar uno por uno!

Repito:

eso depende de la base de datos que estés utilizando.

los tipos de campo no son iguales en una BD Access que en una de sql.

La función te la tienes que crear tu mismo dependiendo del tipo de BD.

¿Cual es la que utilizas?

[geokym]

Gracias Avellaneda primero por tu tiempo.

para este programa no existe una base de datos definida puede ser sql, mysql, access, etc. y rellena una grilla con los datos ...

para esto también necesito el tipo de dato y como solo me devuelve un número no me sirve, encontre por hay hace mucho tiempo una funcion o una ocx no recuerdo que le entregaba el valor, le decia la bdd que estaba usando y me daba el resultado ... pero ahora no lo he podido encontrar por ningún sitio.

te cuento esto por que realice un proyecto muy parecido aunque la finalidad es totalmente distinta ... gracias por tu ayuda.

[geokym]

Gracias Avellaneda primero por tu tiempo.

para este programa no existe una base de datos definida puede ser sql, mysql, access, etc. y rellena una grilla con los datos ...

para esto también necesito el tipo de dato y como solo me devuelve un número no me sirve, encontre por hay hace mucho tiempo una funcion o una ocx no recuerdo que le entregaba el valor, le decia la bdd que estaba usando y me daba el resultado ... pero ahora no lo he podido encontrar por ningún sitio.

te cuento esto por que realice un proyecto muy parecido aunque la finalidad es totalmente distinta ... gracias por tu ayuda.

[Txoco]

Qué tal?

VB define una serie de constantes, pero su valor y nombre varía si estás utilizando acceso DAO o ADO (probablemente, RDO también tenga las suyas, pero no lo he usado nunca).

Para DAO, los valores de Type empiezan por db (dbByte, dbDecimal...). Para ADO, empiezan por ad (adDate, adChar...). En ambos casos hay un montón y algunos incluso son redundantes o muy raros de ver.

Te adjunto una función que hice en su día para "resumir" los tipos de datos de un recordset ADO a sólo unos pocos que necesitaba, por si te sirve. Con un poco de información de la ayuda, puedes convertirla para accesos por DAO.

Código:

Public Enum FieldBriefFormatEnum    ' Formato resumido de campo
    FieldFormatUnknown = 0          '   Desconocido (tratar como cadena)
    FieldFormatInteger              '   Numérico (entero)
    FieldFormatDouble               '   Numérico (decimal)
    FieldFormatDate                 '   Fecha
    FieldFormatString               '   Caracter
    FieldFormatBool                 '   Booleano
End Enum

Public Function FieldTypeADO(tField As Integer) As FieldBriefFormatEnum
    Select Case tField
        Case adChar, _
             adBSTR, _
             adLongVarChar, _
             adLongVarWChar, _
             adVarChar, _
             adVarWChar, _
             adWChar:
                FieldTypeADO = FieldFormatString
        Case adDBDate, _
             adDBTime, _
             adDBTimeStamp:
                FieldTypeADO = FieldFormatDate
        Case adTinyInt, _
             adUnsignedTinyInt, _
             adBigInt, _
             adUnsignedBigInt, _
             adError, _
             adInteger, _
             adSmallInt, _
             adUnsignedBigInt, _
             adUnsignedInt, _
             adUnsignedSmallInt, _
             adSingle:
                FieldTypeADO = FieldFormatInteger
        Case adNumeric, _
             adSingle, _
             adDecimal, _
             adDouble:
                FieldTypeADO = FieldFormatDouble
        Case Else:
            FieldTypeADO = FieldFormatUnknown
    End Select
End Function

[geokym]

Muchas gracias revisaré el código!! =)

[geokym]

Otra vez muchas grácias por el aporte ...
y encontré este material, completisimo tal vez bastaría solo con traducirlo aunque este es de access :p.

algo explicativo: http://allenbrowne.com/ser-49.html
y el código: http://allenbrowne.com/func-06.html