Savoir comment déterminer le type d'un champ particulier de données dans une table peut rendre votre application de base de données plus dynamique. Microsoft Office Access est un système de gestion de base de données relationnelle inclus dans la suite Microsoft Office souvent utilisé pour concevoir des bases de données locales. Une requête est utilisée pour extraire des données d' une table de base de données. Visual Basic pour Applications, ou VBA, est un langage de programmation informatique utilisé pour automatiser des tâches de routine dans Access et d'autres applications Microsoft Office. Choses que vous devez
Microsoft Office Access
base de données Northwind
Afficher plus Instructions
1

Ouvrez la base de données Access Northwind Microsoft Office . La base de données Northwind est inclus dans la suite Microsoft Office. Sélectionnez le menu "Insertion " et cliquez sur
2

Copiez et collez le texte suivant dans votre nouveau module de boucle à travers les champs de la table " employé" et d'afficher leurs types de données "Module ". : < Br >

getDataTypes Private Sub ()

VARNUM As Variant

rst As Recordset

Dim dbs As Database

fldCnt As Integer

Set dbs = CurrentDb

strSQL = " SELECT * Les employés FROM Employees ; ».

Set rst = dbs.OpenRecordset ( strSQL )

fldCnt = 0 Pour rst.Fields.Count - 1 x

VARNUM = rst.Fields ( fldCnt ) type de

Select VARNUM

Case Case Is = dbBigInt

. Debug.Print " type de données est grand entier "

Case Is = dbBinary

Debug.Print " type de données est binaire"

Case Is = dbBoolean
< p > Debug.Print " type de données est booléenne "

Case Is = dbByte

Debug.Print " type de données est Byte"

Case Is = dbChar
< p > Debug.Print " type de données est Char "

Case Is = dbCurrency

Debug.Print "Type de données est la monnaie "

Case Is = dbDate
< p > Debug.Print " type de données est date /Heure"

Case Is = dbDecimal

Debug.Print " type de données est décimal"

cas est = dbDouble

Debug.Print " type de données est double"

Case Is = dbFloat

Debug.Print " type de données est float"

Case Is = DBGUID

Debug.Print " type de données est Guid "

Case Is = dbInteger

Debug.Print "Type de données Integer est "

Case Is = dbLong

Debug.Print " type de données est long"

Case Is = dbLongBinary

Debug.Print " type de données long est binaire ( objet OLE ) "

Case est = dbMemo

Debug.Print " type de données est Memo "

Case Is = dbNumeric

Debug.Print " type de données est numérique "

Case est = dbSingle

Debug.Print " type de données est unique"

Case Is = dbText

Debug.Print " type de données est texte"

Case est = dbtime

Debug.Print " type de données est temps"

Case Is = DBTIMESTAMP

Debug.Print " type de données est Horodatage "

Case est = dbVarBinary

Debug.Print " type de données est VarBinary "

End Select

Suivant fldCnt

End Sub
< br > 3

Appuyez sur " F5 " pour exécuter votre routine . Les types de données sur le terrain pour le tableau « employés» seront affichées dans la fenêtre Exécution .