Veta hur man bestämmer datatypen för ett visst fält i en tabell kan göra din databas ansökan mer dynamisk . Microsoft Office Access är en relationsdatabas management system som ingår i Microsoft Office-paketet som ofta används för att utforma lokala databaser . En fråga används för att hämta data från en databas tabell . Visual Basic for Applications , eller VBA , är en dator programmeringsspråk som används för att automatisera rutinuppgifter i Access och andra Microsoft Office-program . Saker du behöver
Microsoft Office Access
Northwind databas
Visa fler instruktioner
1
Öppna Northwind Microsoft Office Access-databas . Northwind-databasen ingår i Microsoft Office-paketet . Välj " Infoga " -menyn och klicka
2
Kopiera och klistra in följande i din nya modulen för att slinga genom fälten i " Employee " tabellen och visa sina datatyper " Modul . " :
Private Sub getDataTypes ( ) katalog
Dim Varnum As Variant
Dim rst Som Recordset
Dim dbs Som Database
Dim fldCnt As Integer
Set dbs = CurrentDb
strSQL = " SELECT Anställda * FROM Anställda ,. "
Set rst = dbs.OpenRecordset ( strSQL ) katalog
För fldCnt = 0 att rst.Fields.Count - 1
Varnum = rst.Fields ( fldCnt ) Typ
Select Case Varnum
Case Is = dbBigInt
. Debug.Print " Data Type är stora heltal "
Case Is = dbBinary
Debug.Print " Data Type är Binary "
Case Is = dbBoolean
Debug.Print " Data Type är Boolean "
Case Is = dbByte
Debug.Print " Data Type är byte "
Case Is = dbChar
Debug.Print " Data Type är Char "
Case Is = dbCurrency
Debug.Print " Data Type är Valuta "
Case Is = dbDate
Debug.Print " Data Type är Date /Time "
Case Is = dbDecimal
Debug.Print " Data Type är Decimal "
Case är dbDouble =
Debug.Print " Data Type är Double "
Case Is = dbFloat
Debug.Print " datatyp Float "
Case Is = dbGUID
Debug.Print " Data Type är Guid "
Case Is = dbInteger
Debug.Print " Data Type är Integer"
Case Is = dbLong
Debug.Print " datatypen Long "
Case Is = dbLongBinary
Debug.Print " Data Type är Lång Binary ( OLE-objekt ) "
Case Is = DBMemo
Debug.Print " Data Type är Memo "
Case Is = dbNumeric
Debug.Print " Data Type är numerisk "
Case Is = dbSingle
Debug.Print " Data Type är singel "
Case Is = dbText
Debug.Print " Datatyp Text är "
Case Is = dbTime
Debug.Print " Data Type är Time "
Case Is = dbTimeStamp
Debug.Print " datatyp Time Stamp "
Case är = dbVarBinary
Debug.Print " Data Type är varbinary " Välj
End
Nästa fldCnt
End Sub
3
Tryck " F5 " för att köra din subrutin . De fältdatatyper för " Anställd " tabellen visas genom Immediate Window .
