Hoe voor de uitvoer van meerdere waarden uit een Access-Query

Hoe voor de uitvoer van meerdere waarden uit een Access-Query


Leren voor de uitvoer van meerdere waarden van een query kan uw computerapplicatie dynamischer maken. Een programma dat u gebruiken kunt om op te vragen van een databasetabel is Microsoft Office Access. Access is een relationeel databasebeheersysteem vaak gebruikt voor kleine lokale databases. Visual Basic for Applications is een computer-programmeertaal die wordt gebruikt voor het automatiseren van routinetaken in Access en andere Microsoft Office-toepassingen. Een query wordt gebruikt voor het ophalen van gegevens uit een databasetabel weer.

Instructies

1

Start Microsoft Office Access 2010 en selecteer "Lege Database" en klik op "Maken." Klik op 'Database Tools' en selecteer 'Visual Basic'. Klik op het veld "Invoegen" en selecteer "Module."

2

Druk op "Ctrl" en "A" en druk op "Verwijderen" om te verwijderen van alle bestaande code.

3

Kopieer en plak de onderstaande code in uw module. De subroutine wordt een nieuwe tabel maken, records toevoegen aan het en vervolgens een query uitvoert meerdere velden. De query zal output van meerdere waarden voor die velden en deze via een berichtvenster weer te geven.

Private Sub accessMultipleQueryValues()

Dim dbs als Database

Dim rst als Recordset

Dim strSQL As String

Dim X As Integer

Instellen van dbs = CurrentDb

strSQL = "CREATE TABLE multipleValues (veld1 tekst, Veld2 TEXT, Veld3 tekst);"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO multipleValues (veld1, Veld2, veld3)"

strSQL = strSQL & "waarden (" field1Data rij 1', ' field2Data rij 1', 'field3Data rij 1'); "

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO multipleValues (veld1, Veld2, veld3)"

strSQL = strSQL & "waarden (" field1Data rij 2', ' field2Data rij 2', 'field3Data rij 2'); "

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO multipleValues (veld1, Veld2, veld3)"

strSQL = strSQL & "waarden (" field1Data rij 3', ' field2Data rij 3', 'field3Data rij 3'); "

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

strSQL = "Selecteer multipleValues.* uit multipleValues"

strSQL = strSQL & "WHERE multipleValues.Field1 ="field1Data rij 2";"

Instellen van de eerste = dbs. OpenRecordset(strSQL)

RST. MoveLast

RST. MoveFirst

Voor X = 0 tot eerste. RecordCount - 1

MsgBox "Field1 Data: " & rst.Fields(0).Value & ", Field2 Data: " _

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

RST. MoveNext

Volgende X

RST. Sluiten

DBS. Sluiten

End Sub

4

Druk op "F5" aan uw subroutine uitgevoerd.