Cómo acceder a los tipos de datos VBA

Conocer cómo determinar el tipo de datos de un campo en particular en una tabla puede hacer que su aplicación de base de datos más dinámico. Microsoft Office Access es un sistema de gestión de base de datos relacional incluido en el paquete de Microsoft Office a menudo se utiliza para diseñar bases de datos locales. Una consulta se utiliza para recuperar datos de una tabla de base de datos. Visual Basic para Aplicaciones, o VBA, es un lenguaje de programación utilizado para automatizar tareas rutinarias de acceso y otras aplicaciones de Microsoft Office.

Instrucciones

1 Abra la base de datos Neptuno Microsoft Office Access. La base de datos Northwind se incluye en el paquete de Microsoft Office. Seleccione el menú "Insertar" y haga clic en "módulos".

2 Copiar y pegar el siguiente en su nuevo módulo de bucle a través de los campos de la tabla "Empleado" y mostrar sus tipos de datos:

getDataTypes Private Sub ()

Dim VARNUM como variante

Dim primera medida de registros

DBS dévil como Base de Datos

Dim fldCnt como número entero

Set dbs = CurrentDb

strSQL = "SELECT * FROM Empleados Empleados;".

Establecer primera = dbs.OpenRecordset (strSQL)

Para fldCnt = 0 Para rst.Fields.Count - 1

varNum = rst.Fields(fldCnt).Type

Seleccione la caja VARNUM

Caso es = dbBigInt

Debug.Print "tipo de datos es entero grande"

Caso es = dbBinary

Debug.Print "tipo de datos es binario"

Caso es = dbBoolean

Debug.Print "Tipo de datos booleano es"

Caso es = dbByte

Debug.Print "tipo de datos es Byte"

Caso es = dbChar

Debug.Print "tipo de datos es Char"

Caso es = dbCurrency

Debug.Print "tipo de datos es moneda"

Caso es = dbDate

Debug.Print "tipo de datos es la fecha / hora"

Caso es = dbDecimal

Debug.Print "tipo de datos es decimal"

Caso es = dbDouble

Debug.Print "tipo de datos es doble"

Caso es = dbFloat

Debug.Print "tipo de datos es Float"

Caso es = dbGUID

Debug.Print "tipo de datos es Guid"

Caso es = dbInteger

Debug.Print "Tipo de datos es entero"

Caso es = dbLong

Debug.Print "tipo de datos es largo"

Caso es = dbLongBinary

Debug.Print "tipo de datos es binario largo (objeto OLE)"

Caso es = dbMemo

Debug.Print "tipo de datos es Memo"

Caso es = dbNumeric

Debug.Print "tipo de datos es numérico"

Caso es = dbSingle

Debug.Print "tipo de datos es único"

Caso es = dbText

Debug.Print "tipo de datos es texto"

Caso es = DBTIME

Debug.Print "tipo de datos es la hora"

Caso es = DBTimeStamp

Debug.Print "tipo de datos es de marca de tiempo"

Caso es = dbVarBinary

Debug.Print "tipo de datos es VarBinary"

End Select

Siguiente fldCnt

End Sub

3 Pulse la tecla "F5" para ejecutar la subrutina. Los tipos de datos de campo para la tabla "Empleado" se mostrarán a través de la ventana Inmediato.