Sabendo como determinar o tipo de dados de um campo particular em uma tabela pode fazer seu aplicativo de banco de dados mais dinâmico. Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional incluído no pacote Microsoft Office, muitas vezes usado para projetar bancos de dados locais. Uma consulta é usado para recuperar dados de uma tabela de banco de dados. Visual Basic for Applications, ou VBA, é uma linguagem de programação de computador usado para automatizar tarefas de rotina em Access e outros aplicativos do Microsoft Office.
Coisas que você precisa
- Microsoft Office Access
- Adamastor base de dados
Abra a base de dados Adamastor do Microsoft Office Access. O banco de dados Northwind está incluído no pacote Microsoft Office. Selecione os "Inserir" Menu e clique "Módulo."
Copie e cole o seguinte em seu novo módulo para percorrer os campos do "Empregado" mesa e exibir seus tipos de dados:
Private Sub getDataTypes ()
Dim varnum As Variant
Dim primeiro Como Recordset
dbs Dim como banco de dados
Dim fldCnt As Integer
Definir dbs = CurrentDb
strSQL = "Os funcionários SELECT. * FROM Employees-"
Defina primeiro = dbs.OpenRecordset (strSQL)
Para fldCnt = 0 Para rst.Fields.Count - 1
varnum = rst.Fields (fldCnt) .TipoSelect Case varnum
Caso é = dbBigInt
Debug.Print "Tipo de dados é grande Integer"
Caso é = dbBinary
Debug.Print "Tipo de dados é binário"
Caso é = dbBoolean
Debug.Print "Tipo de dados é booleana"
Caso é = dbByte
Debug.Print "Tipo de dados é Byte"
Caso é = dbChar
Debug.Print "Tipo de dados é Char"
Caso é = dbCurrency
Debug.Print "Tipo de dados é Moeda"
Caso é = dbDate
Debug.Print "Tipo de dados é Data / Hora"
Caso é = dbDecimal
Debug.Print "Tipo de dados é Decimal"
Caso é = dbDouble
Debug.Print "Tipo de dados é duplo"
Caso é = dbFloat
Debug.Print "Tipo de dados é Float"
Caso é = dbGUID
Debug.Print "Tipo de dados é Guid"
Caso é = dbInteger
Debug.Print "Tipo de dados é Integer"
Caso é = dbLong
Debug.Print "Tipo de dados é longo"
Caso é = dbLongBinary
Debug.Print "Tipo de dados é longo binário (OLE Object)"
Caso é = dbMemo
Debug.Print "Tipo de dados é Memo"
Caso é = dbNumeric
Debug.Print "Tipo de dados é numérico"
Caso é = dbSingle
Debug.Print "Tipo de dados é único"
Caso é = dbText
Debug.Print "Tipo de dados é Texto"
Caso é = dbtime
Debug.Print "Tipo de dados é Tempo"
Caso é = DBTimeStamp
Debug.Print "Tipo de dados é carimbo de tempo"
Caso é = dbVarBinary
Debug.Print "Tipo de dados é VarBinary"
End Select
Próximo fldCnt
End Sub
pressione "F5" para executar a sub-rotina. Os tipos de dados de campo para a "Empregado" tabela será exibido através da janela imediata.
Como vincular tabelas no acesso ms 2007
Como fazer somente leitura de dados em uma consulta de acesso
Como importar dados com estúdio de gerenciamento sql server
Como chamar um procedimento armazenado sql usando vba acesso ms
Como adicionar campos a uma tabela no acesso com visual basic