Vide, hvordan at bestemme datatypen for et bestemt felt i en tabel kan gøre din database ansøgning mere dynamisk. Microsoft Office Access er en relationel database management system inkluderet i Microsoft Office-pakken ofte bruges til at designe lokale databaser . En forespørgsel bruges til at hente data fra en database tabel . Visual Basic for Applications eller VBA , er en computer programmeringssprog, der anvendes til at automatisere rutineopgaver i Access og andre Microsoft Office-programmer. Ting du skal
Microsoft Office Access
Northwind Database
Vis Flere Instruktioner
1

Åbn Northwind Microsoft Office Access -database. Databasen Northwind er inkluderet i Microsoft Office-pakken. Vælg "Indsæt " menuen og klik
2

Kopier og indsæt følgende i din nye modul til at sløjfe gennem felterne i " Medarbejder " bord og vise deres datatyper " Modul ". : < Br >

Private sub getDataTypes ()

Dim Varnum Som Variant

Dim rst Som Recordset

Dim dbs som database

Dim fldCnt As Integer < br >

Set dbs = CurrentDb

strSQL = " SELECT medarbejdere * FROM ansatte . "

Set rst = dbs.OpenRecordset ( strSQL )

fldCnt = 0 at rst.Fields.Count - 1

Varnum = rst.Fields ( fldCnt ) Type

Select Case Varnum

Case Er = dbBigInt

. Debug.Print "Data Type er Big Integer "

Case er = dbBinary

Debug.Print "Data Type er Binary "

Case er = dbBoolean
< p > Debug.Print "Data Type er Boolean "

Case er = dbByte

Debug.Print "Data Type er Byte "

Case er = dbChar
< p > Debug.Print "Data Type er Char "

Case er = dbCurrency

Debug.Print "Data Type er Valuta "

Case er = dbDate
< p > Debug.Print "Data Type er Date /Time"

Case er = dbDecimal

Debug.Print "Data Type er Decimal "

Case er = dbDouble

Debug.Print "Data Type er Double"

Case er = dbFloat

Debug.Print "Data Type er Float "

Case er = dbGUID

Debug.Print "Data Type er Guid "

Case er = dbInteger

Debug.Print "Data Type er Integer "

Case er = dbLong

Debug.Print "Data Type er Long "

Case er = dbLongBinary

Debug.Print "Data Type er Long Binary ( OLE-objekt ) "

Case er = dbMemo

Debug.Print "Data Type er Memo "

Case er = dbNumeric

Debug.Print "Data Type er Numerisk "

Case er = dbSingle

Debug.Print "Data Type er Single "

Case er = dbText

Debug.Print "Data Type er tekst "

Case er = dbTime

Debug.Print "Data Type er Time "

Case er = dbTimeStamp

Debug.Print "Data Type er tidsstempel "

Case er = dbVarBinary

Debug.Print "Data Type er vARBINARY "

End Vælg

Næste fldCnt

End Sub
< br > 3

Tryk på " F5" for at køre din subrutine . Feltet datatyper til " Employee "-tabellen vises via Immediate Window .