Ako Access VBA Dátové typy

Vedieť , ako určiť typ dát určitého poľa v tabuľke môže vaše databázy programu dynamickejšie . Microsoft Office Access je relačný databázový systém zahrnuté do balíka Microsoft Office sa často používa pre návrh lokálnej databázy . Otázka sa používa na načítanie dát z databázovej tabuľky . Visual Basic for Applications alebo VBA je programovací jazyk použiť na automatizáciu rutinných úloh v programe Access a ďalších aplikácií balíka Microsoft Office . Veci , ktoré budete potrebovať v Microsoft Office Access
Northwind databázy
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte databázu Northwind aplikácie Microsoft Office Access . Databáza Northwind je súčasťou balíka Microsoft Office . Zvoľte menu " Vložiť " a kliknite na tlačidlo " modul " .
2

Skopírujte a vložte nasledujúci do nového modulu do slučky cez pole na " zamestnanca " tabuľky a zobrazenie ich dátové typy :

Private Sub getDataTypes ( )

Dim Varnum As Variant

Dim rst ako Recordset

Dim dbs ako databáza

Dim fldCnt As Integer

Nastaviť DBS = CurrentDb

strSQL = " SELECT * FROM Zamestnanci Zamestnanci ; . "

Set rst = dbs.OpenRecordset ( strSQL )

fldCnt = 0 Pre rst.Fields.Count - . 1

Varnum = rst.Fields ( fldCnt ) Typ

Select Case Varnum

prípade , že je = dbBigInt

Debug.Print " Typ dát je veľký Integer "

Case Is = dbBinary

Debug.Print " Typ dát je binárna "

Case Is = dbBoolean

Debug.Print " dátový typ Boolean "

Case Is = dbByte

Debug.Print " dátový typ je Byte "

Case Is = dbChar

Debug.Print " Typ dát je Char "

Case Is = dbCurrency

Debug.Print " Typ dát je mena "

Case Is = dbDate

Debug.Print " Typ dát je Date /Time "

Case Is = dbDecimal

Debug.Print " Typ dát je Decimal "

Case Is = dbDouble

Debug.Print " Typ dát je Double "

Case Is = dbFloat

Debug.Print " Typ dát je Float "

Case Is = dbGUID

Debug.Print " Typ dát je Guid "

prípade , že je = dbInteger

Debug.Print " typ dát je celé číslo "

Case Is = dbLong

Debug.Print " dátový typ Long "

prípade , že je = dbLongBinary

Debug.Print " Typ dát je dlhá binárne ( objekt OLE ) "

prípade , že je = dbMemo

Debug.Print " Typ dát je Memo "

prípade , že je = dbNumeric

Debug.Print " Typ dát je číselný "

prípade , že je = dbSingle

Debug.Print " dátový typ Single "

prípade , že je = dbText

Debug.Print " dátový typ je text "

prípade , že je = dbTime

Debug.Print " Typ dát je čas "

Case Is = DBTIMESTAMP

Debug.Print " Typ dát je časová pečiatka "

Case je = dbVarBinary

Debug.Print " Typ dát je varbinary "

End Select

Next fldCnt

End Sub

3

Stlačte " F5 " spustiť podprogram . Dátové typy polí pre " zamestnancov " tabuľke budú zobrazené prostredníctvom okna Immediate .

• Predchádzajúca strana: Ako vytieňovať každý druhý riadok vo Visual Basic 6 
• Ďalšia strana: Ako zakázať dáta v DateTimePicker v Visual Basic 6