Lære å sende ut flere verdier fra en spørring kan gjøre datamaskinen programmet mer dynamisk . Et program du kan bruke til å søke en database tabell er Microsoft Office Access . Access er en relasjonsdatabase styringssystem ofte brukt for små lokale databaser. Visual Basic for Applications er et programmeringsspråk som brukes til å automatisere rutineoppgaver i Access og andre Microsoft Office-programmer . En spørring brukes til å hente informasjon fra en database tabell . Instruksjoner
en

start Microsoft Office Access 2010 og velg "Blank Database ," klikk " Opprett". Klikk "Database Verktøy" og velg " Visual Basic. " Klikk på " Insert "-feltet og velg " Module ".
2

Trykk " Ctrl" og " A" og trykk "Delete " for å slette all eksisterende kode .
3

Kopier og lim inn koden nedenfor i modulen . Subrutinen vil opprette en ny tabell , legge til poster til den og så spørre flere felt . Forespørselen vil sende flere verdier for disse feltene og vise dem gjennom en meldingsboks.

Private Sub accessMultipleQueryValues ​​()

Dim DBS Som Database

Dim rst Som Recordset

Dim strSQL As String

Dim X As Integer

Set dBS = CurrentDb

strSQL = "Opprett bord multipleValues ​​( Felt1 TEKST, felt2 TEKST, Field3 TEKST ) ; "

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO multipleValues ​​( Felt1 , felt2 , Field3 ) "

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO multipleValues ​​( Felt1 , felt2 , Field3 ) "

strSQL = strSQL &" VERDIER ( field1Data rad 2 ',' field2Data rad 2 ',' field3Data rad 2 '); "

DoCmd . VisAdvarsler False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO multipleValues ​​( Felt1 , felt2 , Field3 )"

strSQL = strSQL & " VERDIER ( field1Data rad 3 ',' field2Data rad 3 ',' field3Data rad 3 '); "

DoCmd.SetWarnings falske

DoCmd.RunSQL ( strSQL )

strSQL = " Velg multipleValues . * fra multipleValues ​​"

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

Set rst = dbs.OpenRecordset ( strSQL )

rst . MoveLast

rst.MoveFirst

For X = 0 For å rst.RecordCount - en

MsgBox " felt1 data : " . & rst.Fields ( 0 ) Value & " , felt2 data : " . _

& rst.Fields ( 1 ) Value & " , Field3 data : . "& rst.Fields ( 2 ) Verdi

rst.MoveNext
< p> Neste X

rst.Close

dbs.Close

End Sub
4

Trykk " F5 " for å kjøre subrutine .