Como usar o Access 2007 VBA para percorrer e checar campos

Escrito por jaime avelar | Traduzido por ilve maria
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como usar o Access 2007 VBA para percorrer e checar campos
Recupere dados de uma tabela do banco de dados utilizando o VBA (Jupiterimages/Photos.com/Getty Images)

Sabendo utilizar o Visual Basic para Aplicações (VBA) ao trabalhar com o Microsoft Access, você pode economizar tempo quando for necessário exibir o conteúdo em uma tabela de banco de dados, e é possível recuperar esse conteúdo utilizando um objeto RecordSet. Os Recordsets consistem em registros (linhas) e campos (colunas) e proporcionam flexibilidade de exibir ou manipular dados em uma tabela. Um loop "for" pode ser usado para percorrer todos os campos e registros de uma tabela de banco de dados.

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

O que você precisa?

  • Banco de dados Access Northwind

Lista completaMinimizar

Instruções

  1. 1

    Inicie o banco de dados Northwind 2007 e clique em "Database Tools" (Ferramentas de banco de dados). Clique em "Visual Basic" para abrir a janela do Microsoft Visual Basic. Clique no menu "Insert" (Inserir) e clique em "Module" (Módulo).

  2. 2

    Digite o seguinte para criar um novo procedimento para a execução:

    Private Sub stepThroughFields() On Error GoTo Err_stepThroughFields:

  3. 3

    Digite o seguinte para criar variáveis ​​utilizadas para ler a tabela Orders:

    Dim dbs As Database Dim rst As Recordset Dim rcrdCnt As Integer Dim fldCnt As Integer

  4. 4

    Digite o seguinte para definir o que o banco de dados irá usar:

    Set dbs = CurrentDb

  5. 5

    Digite o seguinte para abrir um novo conjunto de registros utilizando a tabela Orders:

    Set rst = dbs.OpenRecordset("Orders")

  6. 6

    Digite o seguinte para percorrer todos os campos na tabela e exibir o nome:

    For fldCnt = 0 To rst.Fields.Count - 1 Debug.Print rst.Fields(fldCnt).Name Next fldCnt

  7. 7

    Digite o seguinte para percorrer todos os campos em cada linha da tabela e exibir seu conteúdo:

    rst.MoveFirst For rcrdCnt = 0 To rst.RecordCount - 1

    For fldCnt = 0 To rst.Fields.Count - 1

    Debug.Print rst.Fields(fldCnt).Value

    Next fldCnt

    rst.MoveNext Next rcrdCnt

  8. 8

    Digite o seguinte para liberar variáveis ​​da memória:

    rst.Close dbs.Close

  9. 9

    Digite o seguinte para terminar o seu processo e capturar quaisquer erros:

    Exit_stepThroughFields: Exit Sub Err_stepThroughFields: MsgBox Err.Description Resume 'Exit_stepThroughFields: End Sub

    Pressione "F5" para executar o procedimento e exibir as informações.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível