Como saída vários valores de uma consulta de Acesso
Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como saída vários valores de uma consulta de Acesso
Aprender a saída de vários valores de uma consulta pode fazer o seu aplicativo de computador mais dinâmico. Um programa que você pode usar para consultar uma tabela de banco de dados é o Microsoft Office Access. Access é um sistema de gerenciamento de banco de dados relacional , muitas vezes usado para pequenos bancos de dados locais . Visual Basic for Applications é uma linguagem de programação de computador utilizado para automatizar tarefas de rotina em Access e outros aplicativos do Microsoft Office . Uma consulta é usada para recuperar informações de uma tabela do banco de dados . Instruções
1

Inicie o Microsoft Office Access 2010 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 ".
2

Pressione " Ctrl" e "A" e pressione " Delete" para apagar todos os códigos existentes .
3

Copie e cole o código abaixo em seu módulo. A sub-rotina irá criar uma nova tabela, adicionar registros para ele e , em seguida, consultar vários campos. Os valores múltiplos consulta saída para esses campos e exibi-las através de uma caixa de mensagem .

Sub accessMultipleQueryValues ​​particulares ()

Dim dbs As Database

Dim rst Como Recordset < br >

Dim strSQL As String

Dim X As Integer

Set dbs = CurrentDb

strSQL = "CREATE TABLE multipleValues ​​( campo1 TEXTO , Campo2 TEXTO, campo3 TEXT) , "

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO multipleValues ​​( campo1, Campo2 , Field3 ) "

strSQL = strSQL &" VALUES (' linha field1Data 1 ',' field2Data linha 1 ',' field3Data linha 1 '); "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO multipleValues ​​( campo1, Campo2 , Field3 ) "

strSQL = strSQL & " VALUES (' linha field1Data 2 ', ' linha field2Data 2 ', ' field3Data linha 2 ') ; "

DoCmd. SetWarnings Falso

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO multipleValues ​​( campo1, Campo2 , Field3 ) "

strSQL = strSQL & " VALUES (' linha field1Data 3 ',' field2Data linha 3 ',' field3Data linha 3 '); "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( strSQL )

strSQL =" Selecione multipleValues . * de multipleValues ​​"

strSQL = strSQL & " ONDE multipleValues.Field1 = ' linha field1Data 2' ; "

Set rst = dbs.OpenRecordset ( strSQL )

RST . MoveLast

rst.MoveFirst

Para X = 0 To rst.RecordCount - 1

MsgBox "Dados campo1 " . & rst.Fields (0) Value & " , Dados campo2 " . _

& rst.Fields (1) Value & " , Dados campo3 : ". & rst.Fields (2) Valor

rst.MoveNext
< p> Em seguida X

rst.Close

dbs.Close

End Sub
4

Pressione " F5" para executar o seu sub-rotina.

Anterior :

Próximo : No
  Os artigos relacionados
·Como usar uma matriz para girar em VB.NET 
·Como verificar se uma caixa de texto está vazia em VB 
·Como imprimir inteiros em Visual Basic 
·Como usar um Timer em uma DLL VB6 
·Partes de uma janela do aplicativo Visual Basic 
·Como adicionar ODBC para VB.Net Express 
·Como criar uma linha de dentro de uma biblioteca de ví…
·Como se conectar ao banco de dados Oracle em Vb.Net OLE…
·Como enviar um Keystroke imprimir no VB 
·Como usar Sleep in VBA 
  Artigos em destaque
·Como editar um arquivo CAB 
·Como um Ler arquivo de texto em Python 
·Como detectar CJK em Java 
·Sobre o registro de dados 
·Como usar uma caixa de listagem em uma consulta 
·Como usar um serviço Web para exibir dados em Visual N…
·Como criar um Programa Slideshow 
·Como instalar Pygame Com Python 2.7 em um Mac 
·Como calcular o máximo Abertas cursores 
·Como faço para configurar um Feed RSS automático na m…
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados