Cómo acceder a los tipos de datos VBA

Conociendo la forma de determinar el tipo de un campo en particular los datos de 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 la suite de Microsoft Office de uso frecuente para el diseño de 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 en Access y otras aplicaciones de Microsoft Office . Cosas que necesitará
Microsoft Office Access
Northwind Database
Mostrar más instrucciones
1

Abra la base de datos Access Northwind de Microsoft Office. La base de datos Northwind se incluye en la suite de Microsoft Office. Seleccione el menú "Insertar" y haga clic en
2

Copie y pegue el código siguiente en el nuevo módulo para recorrer los campos de la tabla "Empleado" y mostrar sus tipos de datos "Módulo ". :

getDataTypes Private Sub ( ) guía

VARNUM Dim As Variant

rst As Recordset

Dim dbs como base de datos

fldCnt Dim As Integer

Set dbs = CurrentDb

strSQL = " Empleados SELECT * FROM Empleados ; ".

Set rst = dbs.OpenRecordset ( strSQL )

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

VARNUM = rst.Fields ( fldCnt ) Tipo

Select Case VARNUM

Case Is = dbBigInt

. Debug.Print " tipo de datos es entero grande "

Case Is = dbBinary

Debug.Print " tipo de datos es binario "

Case Is = dbBoolean
< p > Debug.Print "Tipo de datos Boolean es "

Case Is = dbByte

Debug.Print " tipo de datos es Byte "

Case Is = dbChar
< p > Debug.Print " tipo de datos es Char "

Case Is = dbCurrency

Debug.Print " tipo de datos es moneda "

Case Is = dbDate
< p > Debug.Print " tipo de datos es de fecha /hora "

Case Is = DBDECIMAL

Debug.Print "Tipo de datos es Decimal "

caso es = dbDouble

Debug.Print " tipo de datos es doble"

Case Is = dbFloat

Debug.Print "Tipo de datos es flotante "

Case Is = dbGUID

Debug.Print " tipo de datos es Guid "

Case Is = dbInteger

Debug.Print " tipo de datos es Integer "

Case Is = dbLong

Debug.Print "Tipo de datos es largo"

Case Is = dbLongBinary

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

caso es = dbMemo

Debug.Print " tipo de datos es Memo"

Case Is = DBNUMERIC

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

caso es = dbSingle

Debug.Print " tipo de datos es único"

Case Is = dbText

Debug.Print " tipo de datos es Texto"

caso es = dbtime

Debug.Print " tipo de datos es Tiempo "

Case Is = DBTimeStamp

Debug.Print "Tipo de datos está Sello de tiempo "

Case está = dbVarBinary

Debug.Print "Tipo de datos se VarBinary "

End Select

Siguiente fldCnt

End Sub

3

Press "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 .