Hvordan Utgang flere verdier fra en tilgang spørring

Lære å utgangs flere verdier fra en spørring kan gjøre datamaskinen programmet mer dynamisk. Et program du kan bruke til å spørre en database tabell er Microsoft Office Access. Access er en relasjonsdatabase management system 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 blir brukt til å hente informasjon fra en database tabell.

Bruksanvisning

1 Start Microsoft Office Access 2010 og velg "Blank Database," klikk "Opprett". Klikk "Database Verktøy" og velg "Visual Basic." Klikk på "Sett inn" feltet og velg "Module".

2 Trykk "Ctrl" og "A" og trykk "Delete" for å slette alle eksisterende kode.

3 Kopier og lim inn koden nedenfor i din modul. Subrutinen vil opprette en ny tabell, legge poster til den og så spørre flere felt. Spørringen vil produksjonen flere verdier for disse feltene og vise dem gjennom en meldingsboks.

Private Sub accessMultipleQueryValues ​​()

Dim dbs som database

Dim rst As Recordset

Dim strSQL As String

Dim x As Integer

Sett dbs = CurrentDb

strSQL = "CREATE TABLE multipleValues ​​(Felt1 TEKST, Felt 2 TEKST, Field3 tekst);"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO multipleValues ​​(field1, Felt 2, Field3)"

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

DoCmd.SetWarnings falske

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO multipleValues ​​(field1, Felt 2, Field3)"

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

DoCmd.SetWarnings falske

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO multipleValues ​​(field1, Felt 2, 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';"

Sett rst = dbs.OpenRecordset (strSQL)

rst.MoveLast

rst.MoveFirst

For X = 0 For å rst.RecordCount - 1

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

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

rst.MoveNext

Neste X

rst.Close

dbs.Close

End Sub

4 Trykk "F5" for å kjøre subrutine.