Hvordan få tilgang VBA datatyper

Å vite hvordan man skal bestemme datatypen for et bestemt felt i en tabell kan gjøre databaseapplikasjon mer dynamisk. Microsoft Office Access er en relasjonsdatabase styringssystem inkludert i Microsoft Office-pakken ofte brukes til å utforme lokale databaser. Et søk blir brukt til å hente data fra en database tabell. Visual Basic for Applications, eller VBA, er et programmeringsspråk som brukes til å automatisere rutineoppgaver i Access og andre Microsoft Office-programmer.

Bruksanvisning

1 Åpne North Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken. Velg "Insert" -menyen og klikk på "Module".

2 Kopier og lim inn følgende inn i den nye modulen for å sløyfe gjennom feltene i "ansatt" bord og vise sine datatyper:

Private Sub getDataTypes ()

Dim Varnum As Variant

Dim rst As Recordset

Dim dbs som database

Dim fldCnt As Integer

Sett dbs = CurrentDb

strSQL = "SELECT Ansatte * FROM ansatte;".

Sett rst = dbs.OpenRecordset (strSQL)

For fldCnt = 0 For å rst.Fields.Count - 1

varNum = rst.Fields(fldCnt).Type

Velg Sak Varnum

Saken = dbBigInt

Debug.Print "Datatype er Big Integer"

Saken = dbBinary

Debug.Print "Datatype er Binary"

Saken = dbBoolean

Debug.Print "Datatype er boolsk"

Saken = dbByte

Debug.Print "Datatype er Byte"

Saken = dbChar

Debug.Print "Datatype er Char"

Saken = dbCurrency

Debug.Print "Datatype er Valuta"

Saken = dbDate

Debug.Print "Datatype er Dato / tid"

Saken = dbDecimal

Debug.Print "Datatype er Decimal"

Saken = dbDouble

Debug.Print "Datatype er Double"

Saken = dbFloat

Debug.Print "Datatype er Float"

Saken = dbGUID

Debug.Print "Datatype er Guid"

Saken = dbInteger

Debug.Print "Datatype er Integer"

Saken = dbLong

Debug.Print "Datatype er Long"

Saken = dbLongBinary

Debug.Print "Datatype er en Lang Binary (OLE objekt)"

Saken = dbMemo

Debug.Print "Datatype er Memo"

Saken = dbNumeric

Debug.Print "Datatype er Numerisk"

Saken = dbSingle

Debug.Print "Datatype er Single"

Saken = dbText

Debug.Print "Datatype er tekst"

Saken = dbTime

Debug.Print "Datatype er Time"

Saken = dbTimeStamp

Debug.Print "Datatype er Time Stamp"

Saken = dbVarBinary

Debug.Print "Datatype er varbinary"

End Select

Neste fldCnt

End Sub

3 Trykk "F5" for å kjøre subrutine. De feltdatatyper for "ansatt" tabellen vises gjennom Immediate Window.