Weten hoe het datatype van een bepaald gebied te bepalen in een tabel kan uw database applicatie dynamischer te maken . Microsoft Office Access is een relationele database management systeem opgenomen in de Microsoft Office suite vaak gebruikt om lokale databases te ontwerpen . Een query wordt gebruikt om gegevens uit een database tabel te halen . Visual Basic for Applications , of VBA is een programmeertaal gebruikt om routinematige taken in Access en andere Microsoft Office-toepassingen te automatiseren . Wat je nodig hebt
Microsoft Office Access
Noordenwind Database
Toon Meer Aanwijzingen
1 Open de Noordenwind Microsoft Office Access-database . De database Noordenwind is opgenomen in de Microsoft Office suite . Selecteer in het menu "Invoegen " en klik
Copy 2 en plak het volgende in je nieuwe module voor het doorlussen van de velden van de " Werknemer" tafel en tonen hun data types "Module . " : < Br Private Sub getDataTypes > ( ) Dim Varnum
als Variant Dim rst
als Recordset
Dim dbs als Database Dim fldCnt
als Geheel < br Set > dbs = CurrentDb strSQL
= " SELECT * FROM Werknemers Werknemers ; . " Set rst = dbs.OpenRecordset ( strSQL ) op
Voor fldCnt = 0 Om rst.Fields.Count - 1 Varnum
= rst.Fields ( fldCnt ) Type Select Case Varnum Case
Is = dbBigInt
. Debug.Print "Data Type is Big Integer " Case
is = dbBinary
Debug.Print "Data Type is Binary " Case
is = dbBoolean
Debug.Print " gegevenstype Boolean " Case
is = dbByte
Debug.Print " gegevenstype Byte " Case
is = dbChar
Debug.Print " gegevenstype Char " Case
is = dbCurrency
Debug.Print " gegevenstype Valuta " Case
is = dbDate
Debug.Print "Data Type is Date /Time " Case
is = dbDecimal Debug.Print
"Data Type wordt Decimal " Case
is = dbDouble
Debug.Print " gegevenstype Double" Case
is = dbFloat
Debug.Print "Data Type wordt Float " Case
is = dbGUID
Debug.Print "Data Type is Guid " Case
is = dbInteger
Debug.Print " gegevenstype Integer " Case
is = dbLong
Debug.Print "Data Type wordt Long " Case
is = dbLongBinary
Debug.Print " gegevenstype Long Binary ( OLE-object ) " Case
is = dbMemo
Debug.Print " gegevenstype Memo " Case
is = dbNumeric
Debug.Print "Data Type wordt Numeriek " Case
is = dbSingle
Debug.Print "Data Type Single " Case
is = dbText
Debug.Print "Data Type wordt tekst " Case
is = dbtime
Debug.Print "Data Type is Time " Case
is = dbTimeStamp Debug.Print "Data Type wordt Time Stamp "
Case
wordt = dbVarBinary
Debug.Print "Data Type wordt varbinary " End of Selecteer
Volgende fldCnt End Sub
< br
> Druk op " F5 " 3 aan uw subroutine draaien . De veldgegevenstypen voor de " Werknemer" tafel wordt getoond door middel van de venster Direct .
|
