|
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
Debug.Print " type de données est booléenne "
Case Is = dbByte
Debug.Print " type de données est Byte"
Case Is = dbChar
Debug.Print " type de données est Char "
Case Is = dbCurrency
Debug.Print "Type de données est la monnaie "
Case Is = dbDate
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 .
|
