Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como acessar VBA Resultados da Consulta
Saber ler os resultados de uma consulta do Microsoft Access pode ajudá-lo a fazer o seu pedido de acesso mais dinâmico. O acesso é parte da suíte Microsoft Office e é utilizado para criar bancos de dados relacionais . Visual Basic for Applications (VBA) pode ser usado no Access para criar aplicativos do Windows e recuperar dados do banco de dados . Uma consulta é construído usando Query Language ( SQL) estruturados para solicitar informações a partir de um banco de dados. Coisas que você precisa
Microsoft Office Access 2007
Show Mais instruções
1

Inicie o Microsoft Office Access 2007 e selecione " Banco de Dados em Branco ", clique em " Criar". Clique em "Ferramentas de banco de dados " e selecione "Visual Basic". Clique no botão " Inserir" campo e selecione "Module" .

Tipo " sub readQueryResults privados " e pressione " Enter" para criar uma nova sub-rotina.
2

Digite o seguinte para declarar variáveis ​​que você vai usar para ler os resultados da consulta :

Dim RecordSt Como Recordset

Dim dBase as Database

Dim stringSQL as String Dim

RCNT as Integer
3

Digite o seguinte para criar o " CityTbl " mesa :

stringSQL = " CREATE TABLE CityTbl (Cidade TEXT ( 25) , TEXT Estado (25) ); "

DoCmd.RunSQL ( stringSQL )
4

Digite o seguinte para adicionar dois novos registros para o seu" CityTbl "mesa :

stringSQL =" INSERT INTO CityTbl ( [City ], [ Estado ] ) "

stringSQL = stringSQL &" VALUES (' Fort Worth ', ' Texas ') ; "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( stringSQL )

stringSQL = " INSERT INTO CityTbl ( [City ], [ Estado ] ) "

stringSQL = stringSQL & " VALUES (' Dallas ', ' Texas '); "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( stringSQL )
5

Digite o seguinte para definir sua consulta e abrir o seu conjunto de registros:

stringSQL = "SELECT * FROM CityTbl CityTbl ; . "

Set RecordSt = dBase.OpenRecordset ( stringSQL )
6

Digite o seguinte para criar um " For Loop " e mostrar a sua resultados da consulta através de uma caixa de mensagem: .

RecordSt.MoveFirst

Para RCNT = 0 To RecordSt.RecordCount

MsgBox ( RecordSt.Fields ( " City" ) Value & " , "& RecordSt.Fields ( " Estado ") . Value)

RecordSt.MoveNext

Próxima RCNT

Pressione" F5 "para executar a sub-rotina.


Anterior :

Próximo : No
  Os artigos relacionados
·Como criar e excluir o objeto de VB6 
·Como fazer personalizado mensagens de erro do Windows 
·Como imprimir uma saída matriz na ordem inversa em Vis…
·Como converter um decimal para uma String em VB.NET 
·Valor de retorno da Função VBA 
·Como calcular o tamanho do arquivo em Visual Basic.NET 
·O que eu posso usar para preencher caixas de texto dado…
·Como fechar automaticamente uma caixa de mensagem em VB…
·Como abrir relatórios MS Access 2003 com Visual Basic …
·Como usar Vb.Net em HTML dinâmico 
  Artigos em destaque
·Como usar variáveis ​​em uma consulta Access VBA 
·Fazendo um Fluxograma 
·Como converter HTML para WAP 
·Como fazer Volumétrica Fog em Open GL 
·Como alterar o tipo de letra no Access VBA 
·Como contar o conteúdo de um dicionário em Python 
·Como desativar o Microsoft ActiveSync 
·Como acessar dados subformulário 
·Como adicionar strings em Javascript 
·Como calcular a série de Fourier em Python 
Cop e direita © Conhecimento computador https://ptcomputador.com Todos os Direitos Reservados