Lernen, wie man mehrere Werte aus einer Abfrage ausgeben kann Ihren Computer Anwendung dynamischer. Ein Programm, das Sie verwenden, um eine Datenbank-Tabelle abfragen kann, ist Microsoft Office Access . Access ist ein relationales Datenbank- Management-System oft für kleine lokale Datenbanken verwendet. Visual Basic für Applikationen ist eine Programmiersprache verwendet, um Routineaufgaben in Access und anderen Microsoft Office-Anwendungen automatisieren. Eine Abfrage wird verwendet, um Informationen aus einer Datenbank -Tabelle abzurufen. Anleitung
1

Starten Sie Microsoft Office Access 2010 und wählen Sie " Blank -Datenbank", klicken Sie dann auf " Erstellen". Klicken Sie auf " Database Tools " und wählen Sie " Visual Basic. " Klicken Sie auf " Insert "-Feld und wählen Sie " Module".
2

Drücken Sie "Strg " und " A" und drücken Sie "Löschen" , um alle vorhandenen Code löschen.
3

Kopieren Sie den folgenden Code in das Modul . Das Unterprogramm wird eine neue Tabelle erstellen , hinzuzufügen , um es dann Abfrage mehrere Felder . Die Abfrage wird ausgegeben mehrere Werte für diese Felder und zeigt sie durch eine Message-Box .

Private Sub accessMultipleQueryValues ​​() Dim dbs

As Database Dim rst

Als Recordset

Dim strSQL As String Dim

X As Integer

Set dbs = CurrentDb

strSQL = " CREATE TABLE Mehrfachwert ( Feld1 TEXT , TEXT Field2 , Field3 TEXT ) ; "

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO Mehrfachwert ( Feld1 , Feld2 , Field3 ) "

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

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO Mehrfachwert ( Feld1 , Feld2 , Field3 ) "

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

DoCmd . SetWarnings Falsch

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO Mehrfachwert ( Feld1 , Feld2 , Field3 ) "

strSQL = strSQL & " VALUES (' field1Data Reihe 3 ',' field2Data Zeile 3 ',' field3Data Zeile 3 '); "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( strSQL )

strSQL = " Select Mehrfachwert . * vom Mehrfachwert "

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

Set rst = dbs.OpenRecordset ( strSQL )

rst . MoveLast

rst.MoveFirst

Für X = 0 To rst.RecordCount - 1 of

MsgBox " Feld1 Daten: " . & rst.Fields (0) Value & " , Field2 Daten: " . _

& rst.Fields (1) Value & " , Field3 Daten: ". & rst.Fields ( 2) Wert

rst.MoveNext
< p> Weiter X

rst.Close

dbs.Close

End Sub
4

Presse "F5" zu laufen Ihr Unterprogramm .