Hvordan få tilgang VBA Query SQL

Visual Basic for Applications (VBA) er et programmeringsspråk utviklet av Microsoft og brukes til å automatisere rutineoppgaver i Access. Access er en relasjonsdatabase styringssystem inkludert i Microsoft Office-pakken. En Structured Query Language (SQL) spørring brukes til å hente data fra en database tabell. Utgangs resultatene av en SQL-spørring er tilgjengelig via en Recordset objekt. I noen få trinn kan du skrive VBA-kode for å opprette en SQL-spørring og vise poster hentet.

Bruksanvisning

1 Åpne North Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken.

2 Klikk "Databaseverktøy", velg deretter "Visual Basic" for å åpne Microsoft Visual Basic-vinduet. Klikk på "Sett inn" feltet og velg "Module".

3 Kopier og lim inn følgende kode inn i den nye modulen for å vise det første navnet og telefonnummeret til virksomheten i "Kunden" tabell:

Private Sub customerQuery ()

Dim strSQL As String

Dim custRst As Recordset

Dim dbs som database

Dim rstCntr As Integer

Dim custStr As String

Sett dbs = CurrentDb

strSQL = "Velg Kunder. [fornavn],"

strSQL = strSQL & "Kundene. [Business Phone]"

strSQL = strSQL & "fra kunder;"

Sett custRst = dbs.OpenRecordset (strSQL)

custRst.MoveLast

custRst.MoveFirst

For rstCntr = 0 For å custRst.RecordCount - 1

custStr = custStr & custRst.Fields(0).Value & _

"Er en kunde, og deres virksomhet telefonen er" & custRst.Fields (1) .Value & vbCr

custRst.MoveNext

Neste rstCntr

MsgBox custStr

custRst.Close

dbs.Close

End Sub

4 Kjør rutine ved å trykke "F5".