At lære at udsende flere værdier fra en forespørgsel kan gøre din computer ansøgning mere dynamisk. Et program du kan bruge til at søge en database tabel er Microsoft Office Access. Access er en relationel database management system anvendes ofte til små lokale databaser. Visual Basic for Applications er en computer programmeringssprog, der anvendes til at automatisere rutineopgaver i Access og andre Microsoft Office-programmer. En forespørgsel bruges til at hente information fra en database tabel . Instruktioner
1
Start Microsoft Office Access 2010 og vælg " Tom database " og derefter klikke på "Opret ". Klik på " Database Tools" og vælg " Visual Basic ". Klik på "Indsæt "-feltet og vælg " Modul ".
2
Tryk på " Ctrl" og "A " og tryk " Delete " for at slette alle eksisterende kode.
3
Kopier og indsæt koden nedenfor ind i din modul. Underrutinen vil oprette en ny tabel , føje poster til det, og derefter forespørge flere felter . Forespørgslen vil output flere værdier for disse områder og vise dem gennem en besked boks .
Private Sub accessMultipleQueryValues ()
Dim DBS Som Database
Dim rst Som Recordset < br >
Dim strSQL As String
Dim X As Integer
Set dbs = CurrentDb
strSQL = " CREATE TABLE multipleValues ( Felt1 TEKST , Felt2 TEKST , området3 TEXT) ; "
DoCmd.RunSQL ( strSQL )
strSQL =" INSERT INTO multipleValues ( Felt1 , Felt2 , området3 ) "
strSQL = strSQL &" VALUES ( ' field1Data rækken 1 ',' field2Data række 1 ',' field3Data række 1 '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL )
strSQL =" INSERT INTO multipleValues ( Felt1 , Felt2 , området3 ) "
strSQL = strSQL &" VALUES ( ' field1Data række 2 ', ' field2Data række 2 ', ' field3Data række 2 '); "
DoCmd . SetWarnings False
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO multipleValues ( Felt1 , Felt2 , området3 ) "
strSQL = strSQL & " VALUES ( ' field1Data rækken 3 ',' field2Data række 3 ',' field3Data række 3 '); "
DoCmd.SetWarnings Falske
DoCmd.RunSQL ( strSQL )
strSQL = " Vælg multipleValues . * fra multipleValues "
strSQL = strSQL &" WHERE multipleValues.Field1 = ' field1Data række 2 « "
Set rst = dbs.OpenRecordset ( strSQL )
rst . MoveLast
rst.MoveFirst
X = 0 Til rst.RecordCount - 1
MsgBox " felt1 data : ." & rst.Fields (0) Value & " , field2 data : . " _
& rst.Fields (1) Value &" , området3 data : . "& rst.Fields (2) Værdien
rst.MoveNext
< p> Næste X
rst.Close
dbs.Close
End Sub
4
Tryk på " F5 " for at køre din subrutine . < br >