Saber como usar o Visual Basic for Applications (VBA) ao trabalhar com o Microsoft Access você pode economizar tempo quando você precisa exibir o conteúdo em uma tabela de banco de dados. Você pode recuperar o conteúdo de uma tabela de banco de dados usando um objeto RecordSet . Registros consistem em registros (linhas) e campos (colunas) . Eles dão-lhe a flexibilidade de exibir ou manipular dados em uma tabela. A " For Loop " pode ser usado para percorrer todos os campos e registro em uma tabela de banco de dados . Coisas que você precisa
banco de dados Access Northwind
Show Mais instruções
1
Lançamento banco de dados Northwind 2007 e clique em " Ferramentas de banco de dados . " Clique em " Visual Basic" para abrir a janela do Microsoft Visual Basic . . " Módulo ", clique no menu "Inserir " e clique em
2
Digite o seguinte para criar um novo procedimento para executar :
stepThroughFields Private Sub ( )
On Error GoTo Err_stepThroughFields :
3
Digite o seguinte para criar variáveis utilizadas para ler a tabela Pedidos :
Dim dbs as Database
Dim rst Como Recordset
Dim rcrdCnt as Integer Dim
fldCnt as Integer
4
Digite o seguinte para definir o banco de dados para usar:
Set dbs = CurrentDb
5
Digite o seguinte para abrir um novo conjunto de registros usando a tabela Pedidos :
Set rst = dbs.OpenRecordset (" pedidos" )
6
Digite o seguinte para percorrer todos os campos na tabela e exibir o nome :
Para fldCnt = 0 To rst.Fields.Count - 1
Debug.Print rst.Fields ( fldCnt ) . Nome
Próxima fldCnt
7
Digite o seguinte para percorrer todos os campos em cada linha da tabela e exibir seu conteúdo :
rst.MoveFirst
Para rcrdCnt = 0 To rst.RecordCount - 1
Para fldCnt = 0 To rst.Fields.Count - . 1
Debug.Print rst.Fields ( fldCnt ) Valor
Próxima fldCnt
rst.MoveNext
Próxima rcrdCnt
8
Digite o seguinte para liberar as variáveis da memória :
rst.Close
dbs.Close
9
Digite o seguinte para terminar o seu processo e capturar todos os erros :
Exit_stepThroughFields :
Exit Sub
Err_stepThroughFields :
MsgBox Err.Description
Resume ' Exit_stepThroughFields :
End Sub
Pressione " F5" para executar o procedimento e exibir informações de campo .
