Sapere come determinare il tipo di dati di un determinato campo di una tabella può rendere l'applicazione di database più dinamico . Microsoft Office Access è un sistema di gestione di database relazionali incluso nella suite Microsoft Office spesso usato per la progettazione di database locali . Una query viene utilizzato per recuperare i dati da una tabella di database . Visual Basic, Applications o VBA , è un linguaggio di programmazione per computer utilizzato per automatizzare le attività di routine in Access e altre applicazioni di Microsoft Office . Cose che ti serviranno
Microsoft Office Access
Northwind Database
Show More Istruzioni
1

Aprire il database di Access Northwind di Microsoft Office . Il database Northwind è incluso nella suite Microsoft Office . Selezionare il menu "Inserisci" e fare clic su
2

Copia e incolla il seguente nel nuovo modulo a ciclo tra i campi della tabella "Dipendente" e visualizzare i loro tipi di dati "Modulo ". :

getDataTypes private Sub ()

Dim VARNUM As Variant

Dim rst come Recordset

Dim dbs As Database Dim

fldCnt As Integer < br

Set> dbs = CurrentDb

strSQL = " SELECT * FROM Dipendenti I dipendenti ; ».

Set rst = dbs.OpenRecordset ( strSQL ) per

fldCnt = 0 Per rst.Fields.Count - 1

VARNUM = rst.Fields ( fldCnt ) Tipo

Select Case VARNUM

Case Is = dbBigInt

. Debug.Print " Tipo dati è Big Integer "

Case Is = dbBinary

Debug.Print " Tipo dati è binaria"

Case Is = dbBoolean

Debug.Print " Tipo dati è booleano"

Case Is = dbByte

Debug.Print " Tipo dati è Byte "

Case Is = dbChar

Debug.Print " Tipo dati è Char "

Case Is = dbCurrency

Debug.Print " Tipo dati è valuta "

Case Is = DBDate

Debug.Print " Tipo dati è Data /Ora"

Case Is = DBDECIMAL

Debug.Print " Tipo dati è decimale "

caso è = dbDouble

Debug.Print " Tipo dati è doppia"

Case Is = dbFloat

Debug.Print " Tipo dati è flottante "

Case Is = DBGUID

Debug.Print " Tipo dati è Guid "

Case Is = dbInteger

Debug.Print " Tipo dati è Integer "

Case Is = dbLong

Debug.Print " Tipo dati è lungo"

Case Is = dbLongBinary

Debug.Print " Tipo dati è lungo binario ( OLE Object ) "

Case Is = dbMemo

Debug.Print " Tipo dati è appunto "

Case Is = DBNUMERIC

Debug.Print "Tipo di dati è numerico "

Case Is = dbSingle

Debug.Print " Tipo dati è unico"

Case Is = dbText

Debug.Print " Tipo dati è un testo "

Case Is = dbtime

Debug.Print " Tipo dati è Tempo "

Case Is = DBTIMESTAMP

Debug.Print " Tipo dati è temporale"

caso è = dbVarBinary

Debug.Print "Tipo di dati è di tipo varbinary "

End Select

Avanti fldCnt

End Sub

3

Premere " F5 " per eseguire la subroutine . I tipi di dati di campo per la tabella " Dipendente" verranno visualizzati attraverso la finestra immediata .

• Come ombreggiatura a righe in Visual Basic 6 
• Come disattivare le date del DateTimePicker in Visual Basic 6