Leren hoe om meerdere waarden uit een query uitvoeren kan uw computer applicatie dynamischer te maken . Een programma dat u kunt gebruiken om een database tabel bevragen is Microsoft Office Access . Access is een relationele database management systeem vaak gebruikt voor kleine lokale databases . Visual Basic for Applications is een programmeertaal gebruikt om routinematige taken in Access en andere Microsoft Office-toepassingen te automatiseren . Een query wordt gebruikt om informatie op te halen uit een database tabel . Instructies
1 Start Microsoft Office Access 2010 en selecteer " Lege database , " en klik op "Create . " Klik op " Database Tools" en selecteer " Visual Basic . " Klik op het veld " Insert " en selecteer " Module . "
Druk op " Ctrl " 2 en " A " en druk op " Delete " om alle bestaande code te verwijderen .
Kopieer 3 en plak de code hieronder in uw module . De subroutine wordt een nieuwe tabel te maken , records toe te voegen en vervolgens meerdere velden bevragen . De query meerdere waarden voor deze velden uitvoeren en weergeven door middel van een bericht . Private Sub accessMultipleQueryValues
( ) op Dim dbs als Database Dim rst
als Recordset < br Dim strSQL > As String Dim X
als Geheel Set
dbs = CurrentDb strSQL
= " CREATE TABLE multipleValues ( Field1 TEKST , Field2 TEKST , Field3 TEKST ) , " DoCmd.RunSQL ( strSQL ) strSQL
= " INSERT INTO multipleValues ( Field1 , Field2 , Field3 ) "
strSQL = strSQL & " VALUES ( ' field1Data rij 1 ' , ' field2Data rij 1 ' , ' field3Data rij 1 ' ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL ( strSQL ) strSQL =
" INSERT INTO multipleValues ( Field1 , Field2 , Field3 ) "
strSQL = strSQL & " VALUES ( ' field1Data rij 2 ' , ' field2Data rij 2 ' , ' field3Data rij 2 ' ) ; "
DoCmd . SetWarnings Valse DoCmd.RunSQL ( strSQL ) strSQL
= " INSERT INTO multipleValues ( Field1 , Field2 , Field3 ) "
strSQL = strSQL & " VALUES ( ' field1Data rij 3 ' , ' field2Data rij 3 ' , ' field3Data rij 3 ' ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL ( strSQL ) strSQL =
" Select multipleValues . * van multipleValues "
strSQL = strSQL & " WHERE multipleValues.Field1 = ' field1Data rij 2 " ; " Set
rst = dbs.OpenRecordset ( strSQL ) rst
. MoveLast
rst.MoveFirst
Voor X = 0 Om rst.RecordCount - 1 MsgBox
" Veld1 gegevens: " . & rst.Fields ( 0 ) Value & " , Field2 gegevens: " . _
& rst.Fields ( 1 ) Value & " , Field3 gegevens: . " & rst.Fields ( 2 ) Waarde
rst.MoveNext
X
rst.Close dbs.Close End Sub
Druk op " F5 " Next
4 om uw subroutine draaien . < br >
|
