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

Em seguida X

rst.Close

dbs.Close

End Sub
4

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