Structured Query Language ( SQL) er datamaskinen språket som brukes for å administrere relasjonsdatabaser. Visual Basic for Applications ( VBA ) er programmeringsspråket som er utviklet av Microsoft for å bruke med Microsoft Office- programmer for å lage dynamisk innhold . Microsoft Access er database program innsiden av Microsoft Office-pakken som bruker både SQL og VBA til å drive dataforvaltning og automasjon til systematiske database funksjoner . Bruke programmering shell bak Microsoft Access , kan du koble til den sentrale databasen , søke etter data , legge til nye data og slette data ved å kombinere SQL og VBA programmering kode . Instruksjoner
en

Åpne databasen du vil arbeide med i Microsoft Access. Åpne Visual Basic-redigering ved å klikke på " Database Verktøy "-fanen og deretter " Visual Basic. "
2

Klikk på " Insert" og deretter " Module " i Visual Basic Editor .

3

Skriv inn koden for å koble til databasen . Du blir nødt til å opprette en tilkobling for å kunne bruke SQL-setninger til databasen .

Sub SQLTutorial ()

' Sett opp variabler å holde informasjonen

Dim Conn som ADODB.Connection 'Dette er selve tilkoblingen

Dim rsSelect som ADODB.Recordset ' Dette er hvor du vil lagre data

Dim rsDelete som ADODB.Recordset

Dim rsInsert som ADODB.Recordset

Dim rsUpdate som ADODB.Recordset

Dim strSelectQuery som String 'Dette er selve SQL SELECT -kommando

Dim strDeleteQuery som String ' Dette vil holde SQL DELETE-setningen

Dim strInsertQuery som String 'Dette er SQL INSERT-setning

Dim strUpdateQuery som String ' Dette vil holde UPDATE statement

' Skriv inn detaljene for å koble til databasen som du ønsker

Set Conn = Ny ADODB.Connection
p Med Conn

ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; " . & _

"Data Source = C: \\ Documents \\ SampleDatabase.mdb " .

Åpen

End With

nå tilkoblingen til databasen har blitt gjort . Deretter vil du gi SQL-setninger til variablene du allerede erklært ovenfor.
4

Skriv inn et "SELECT" SQL-setning for å velge data fra databasen . En SELECT- spørring er vanligvis laget opp som dette : "SELECT kolonner FROM tabell" . Du kan legge til kriterier for SELECT-setningen ved å legge på "hvor" klausul . For eksempel, har du en tabell som kalles " kunder" som du ønsker å søke etter alle kundene med etternavnet "Smith ". VBA og SQL -koden vil se slik ut : en

strSelectQuery = "SELECT * FROM tblCustomers HVOR Etternavn = ' Smith '

asterisk (* ) er et wildcard , noe som betyr at du ønsker å trekke all informasjon , eller kolonner , på alle med etternavnet " . Smith " Å velge bestemte kolonner , vil du bruke : en

strSelectQuery = " SELECT Fornavn, Etternavn FROM tblCustomers WHERE Etternavn = ' Smith ' " .
5

Skriv inn " dELETE " statement om du vil slette rader med data fra en tabell koden til det er : en

strDeleteQuery = " dELETE FROM tblCustomers WHERE Etternavn = ' Smith ' "

Denne uttalelsen vil slette alle rader der kunden har et etternavn på " Smith "fra " kunder " tabellen . den grunnleggende syntaks for en dELETE-setningen er " DELETE fROM tabell WHERE kolonne = ' verdi ' . "
6

Skriv inn syntaks å sette inn en ny rad i en tabell . Bruk" INSERT "statement.

strInsertQuery =" INSERT INTO tblCustomers VALUES ( John Smith , 123 Main Street , Cleveland , Ohio ) "
p Hvis du hadde en Kunder-tabell som har Fornavn, Etternavn , Adresse , by og stat kolonner , vil dette utsagnet setter i dataene inn i høyre kolonne. den komma forteller koden for å hoppe til neste kolonne før du går inn i verdiene . Vær sikker på at du skriver inn verdiene i riktig rekkefølge på kolonnene i tabellen , slik at dataene er konsistent.
7

Skriv inn SQL-setning for å endre en rad med data . Dette er " UPDATE " statement.

strUpdateQuery = "OPPDATERING tblCustomers SET Etternavn = ' Jones ' , Fornavn =" Jim " WHERE Etternavn = ' Smith ' "

Denne uttalelsen endrer alle som har et etternavn på "Smith " til " Jones " og deres første navnene til " Jim . " Du kan endre flere kolonner med data på en gang i en UPDATE-setningen ved å skille kolonnene med komma. Den grunnleggende syntaks for en oppdatering "OPPDATERING tabellen SET kolonne 1 = verdi 1 , kolonne 2 = value2 , kolonne 3 = verdi3 , ... WHERE kolonne = verdi . "
8

Skriv inn VBA-kode som vil kjøre spørringen og lagre resultatene i recordsets . Lukk ut VBA-kode.

Sett rsSelect = Ny adodb . Recordset
p Med rsSelect

Set. ActiveConnection = Conn

. CursorType = adOpenStatic

. Source = strSelectQuery

. Åpen

End With

Sett rsDelete = Ny ADODB.Recordset
p Med rsDelete

Set. ActiveConnection = Conn

. CursorType = adOpenStatic

. Source = strDeleteQuery

. Åpen

End With

Sett rsInsert = Ny ADODB.Recordset
p Med rsInsert
< p> Set . ActiveConnection = Conn

. CursorType = adOpenStatic

. Source = strInsertQuery

. Åpen

End With

Set rsUpdate = Ny ADODB.Recordset
p Med rsDelect

Set. ActiveConnection = Conn

. CursorType = adOpenStatic

. Source = strUpdateQuery
< p > . Åpen

End With

' Skriv inn VBA-kode til å utføre arbeid med de dataene du har samlet gjennom SQL-setninger .

' Du kan bruke dataene til å poste i former, i andre tabeller eller i rapporter .

' Lukk recordsets og tilkobling med du er ferdig

rsSelect.Close

rsDelete.Close
< p > rsInsert.Close

rsUpdate.Close

End Sub