Como extrair números em uma consulta Access

Escrito por jaime avelar | Traduzido por weber figueiredo
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como extrair números em uma consulta Access
Saiba como extrair números de uma consulta no Access usando VBA (Jupiterimages/Photos.com/Getty Images)

O Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional comumente utilizado para bancos de dados locais pequenos. Ele é parte integrante do pacote Microsoft Office e fornece todas as ferramentas necessárias para gerenciar um banco de dados relacional. As consultas (queries) são utilizadas para recuperar informações das tabelas no banco. Para extrair os números de uma consulta no Access, deve-se realizar o mesmo processo utilizado para os outros tipos de dados. Uma maneira de fazer isto é utilizar o Visual Basic for Applications. Em poucos passos, você poderá escrever códigos VBA, extrair números de uma consulta e exibi-los na tela.

Nível de dificuldade:
Moderadamente fácil

Outras pessoas estão lendo

O que você precisa?

  • Microsoft Office Access
  • Northwind database

Lista completaMinimizar

Instruções

  1. 1

    Abra o banco de dados Northwind do Microsoft Office Access. O banco de dados Northwind está incluído no pacote do Microsoft Office.

  2. 2

    Clique em "Database Tools" (Ferramentas de Banco de Dados) e selecione "Visual Basic" para abrir a janela do Microsoft Visual Basic. Clique no menu "Insert" (Inserir) e selecione "Module" (Módulo).

  3. 3

    Copie e cole o seguinte código em seu novo módulo para consultar a tabela "Produtos" e extrair os números no campo "Reordenar nível" superior a 15:

    Private Sub extrairNumeros()

    Dim strSQL As String Dim rst As Recordset Dim dbs As Database

    Set dbs = CurrentDb

    strSQL = "SELECT Produtos.[Nome Produtos], Produtos.[Reordenar Nivel] " strSQL = strSQL & "FROM Produtos " strSQL = strSQL & "WHERE (((Produtos.[Reordenar Nivel])>15));"

    Set rst = dbs.OpenRecordset(strSQL) rst.MoveLast rst.MoveFirst

    Debug.Print "Reordenar Nivel > 15:" Do While Not rst.EOF Debug.Print "Nome do produto:" & rst.Fields(0).Value Debug.Print " " Debug.Print "Reordenar nivel numero:" & rst.Fields(1).Value rst.MoveNext Loop End Sub

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