Savoir comment déterminer le type d`un domaine 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 récupérer des données à partir d`une table de base de données. Visual Basic pour Applications, ou VBA, est un langage de programmation informatique utilisé pour automatiser les tâches de routine dans Access et d`autres applications Microsoft Office.
Choses que vous devez
- Microsoft Office Access
- Base de données Northwind
Ouvrez la base de données Northwind Microsoft Office Access. La base de données Northwind est inclus dans la suite Microsoft Office. Sélectionnez le "Insérer" menu et cliquez "Module."
Copiez et collez le suivant dans votre nouveau module à boucle à travers les champs de la "Employé" table et afficher leurs types de données:
Private Sub getDataTypes ()
Dim Varnum As Variant
Dim premier Comme Recordset
dbs Dim Comme base de données
Dim fldCnt As Integer
Set dbs = CurrentDb
strSQL = "Les employés SELECT. * FROM Salariés"
Set rst = dbs.OpenRecordset (strSQL)
Pour fldCnt = 0 To rst.Fields.Count - 1
Varnum = rst.Fields (fldCnt) .TypeSelect Case Varnum
Case Is = dbBigInt
Debug.Print "Type de données est Big Integer"
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 devise"
Case Is = dbDate
Debug.Print "Type de données est Date / Heure"
Case Is = dbDecimal
Debug.Print "Type de données est Decimal"
Case Is = 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 est Entier"
Case Is = dbLong
Debug.Print "Type de données est longue"
Case Is = dbLongBinary
Debug.Print "Type de données est longue binaire (objet OLE)"
Case Is = dbMemo
Debug.Print "Type de données est Memo"
Case Is = dbNumeric
Debug.Print "Type de données est numérique"
Case Is = dbSingle
Debug.Print "Type de données est unique"
Case Is = dbText
Debug.Print "Type de données est Texte"
Case Is = DBTIME
Debug.Print "Type de données est temps"
Case Is = DBTIMESTAMP
Debug.Print "Type de données est Time Stamp"
Case Is = dbVarBinary
Debug.Print "Type de données est VarBinary"
End Select
Suivant fldCnt
End Sub
presse "F5" pour faire fonctionner votre sous-programme. Les types de données sur le terrain pour la "Employé" tableau sera affiché à travers la fenêtre Exécution.
