Saber como determinar o tipo de um determinado campo de dados em uma tabela pode fazer o seu aplicativo de banco mais dinâmico. Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional incluídos na suíte Microsoft Office , muitas vezes usado para projetar bancos de dados locais . Uma consulta é usado para recuperar dados de uma tabela do banco de dados . Visual Basic for Applications, ou VBA, é uma linguagem de programação de computador utilizado para automatizar tarefas de rotina em Access e outros aplicativos do Microsoft Office . Coisas que você precisa
Microsoft Office Access
Northwind banco de dados
Show Mais instruções
1

Abra o banco de dados Northwind do Microsoft Office Access. O banco de dados Northwind está incluído no pacote do Microsoft Office . Selecione o menu "Inserir" e clique em " Módulo ".
2

Copie e cole o seguinte em seu novo módulo para percorrer os campos da tabela "Funcionário" e exibir seus tipos de dados : < br >

Private Sub getDataTypes ()

Dim varnum As Variant

Dim rst Como Recordset

Dim dbs As Database

Dim fldCnt As Integer

Set dbs = CurrentDb

strSQL = "SELECT * FROM Funcionários Colaboradores; . "

Set rst = dbs.OpenRecordset ( strSQL )

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

varnum = rst.Fields ( fldCnt ) Tipo

Select Case varnum
caso

Is = dbBigInt

Debug.Print " Tipo de dados é Big Integer "

Case Is = dbBinary

Debug.Print " Tipo de dados é binária "

Case Is = dbBoolean

Debug.Print " Tipo de dados é booleana "

Case Is = dbByte

Debug.Print " Tipo de dados é Byte "

Case Is = dbChar

Debug.Print " Tipo de dados é Char "

Case Is = dbCurrency

Debug.Print " Tipo de dados é a moeda "

Case Is = dbDate

Debug.Print " Tipo de dados é Data /Hora "

Case Is = dbDecimal

Debug.Print " Tipo de dados é Decimal "

Case Is = dbDouble

Debug.Print " Tipo de dados é duplo "

Case Is = dbFloat

Debug.Print " Tipo de dados é Float "

Case Is = dbGUID

Debug.Print " Tipo de dados é Guid "

Case Is = dbInteger

Debug.Print " Tipo de dados é Integer "

Case Is = dbLong

Debug.Print " Tipo de dados é longa "

Case Is = dbLongBinary

Debug.Print " Tipo de dados é longa Binary (OLE Object) "

caso é = dbMemo

Debug.Print " Tipo de dados é Memo "

Case Is = DBNUMERIC

Debug.Print " Tipo de dados é numérico "

caso é = dbSingle

Debug.Print " Tipo de dados é único "

Case Is = dbText

Debug.Print " tipo de dados é Texto "

caso é = dbtime

Debug.Print " Tipo de dados é Tempo "

Case Is = DBTIMESTAMP

Debug.Print " Tipo de dados é carimbo de hora "

Caixa é = dbVarBinary

Debug.Print " Tipo de dados é VarBinary "

End Select

Próxima fldCnt

End Sub
< br > 3

Pressione " F5" para executar o seu sub-rotina. Os tipos de dados de campo para a mesa "Employee " será exibido através da janela imediata .