Imparare come emettere più valori da una query può rendere l'applicazione del computer più dinamico . Un programma può essere utilizzato per interrogare una tabella di database è Microsoft Office Access . Access è un sistema di gestione di database relazionale spesso usata per piccoli database locali . Visual Basic, Applications è un linguaggio di programmazione per computer utilizzato per automatizzare le attività di routine in Access e altre applicazioni di Microsoft Office . Una query viene utilizzato per recuperare informazioni da una tabella di database . Istruzioni
1

Avviare Microsoft Office Access 2010 e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su "Strumenti database" e selezionare " Visual Basic ". Fare clic sul campo "Inserisci" e selezionare " Modulo ".
2

Premere " Ctrl" e "A" e premere il tasto "Cancella" per cancellare tutto il codice esistente.
3

Copia e incolla il codice sottostante nel tuo modulo . La subroutine crea una nuova tabella , aggiungere record ad esso e quindi eseguire query su più campi . La query produrrà più valori per quei campi e visualizzarli attraverso una finestra di messaggio .

AccessMultipleQueryValues ​​Private Sub ()

Dim dbs As Database Dim rst

come Recordset < br >

Dim strSQL As String

Dim X As Integer

Set dbs = CurrentDb

strSQL = " CREATE TABLE multipleValues ​​( Campo1 TESTO , TESTO Campo2 , Field3 TESTO ) , "

DoCmd.RunSQL ( strSQL ) per

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL

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

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

DoCmd . SetWarnings False

DoCmd.RunSQL ( strSQL ) per

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

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

DoCmd.SetWarnings falsi

DoCmd.RunSQL ( strSQL )

strSQL = " Seleziona multipleValues . * da multipleValues ​​"

strSQL = strSQL & " WHERE multipleValues.Field1 = ' field1Data fila 2 '; "

Set rst = dbs.OpenRecordset ( strSQL ) per

RST . MoveLast

rst.MoveFirst

For X = 0 To rst.RecordCount - 1

MsgBox " Campo1 dati: " . & rst.Fields ( 0 ) Value & " , Campo2 dati: " . _

& rst.Fields ( 1 ) Value & " , Campo3 dati: . "& rst.Fields ( 2) Valore

rst.MoveNext
< p > Avanti X

rst.Close

dbs.Close

End Sub
4

Premere " F5 " per eseguire la subroutine .