Structured Query Language ( SQL) er den computer sprog, der bruges til styring af relationsdatabaser . Visual Basic for Applications ( VBA ) er det programmeringssprog udviklet af Microsoft til brug med Microsoft Office-programmer til at skabe dynamisk indhold. Microsoft Access er den database program indersiden af ​​Microsoft Office-pakken , der bruger både SQL og VBA til at håndtere data og yde automatisering til systematisk database funktioner. Brug af programmeringen shell bag Microsoft Access , kan du oprette forbindelse til de vigtigste database , søge efter data , tilføje nye data og slette data ved at kombinere SQL og VBA programmering kode. Instruktioner
1

Åbn den database, du vil arbejde med i Microsoft Access. Åbn Visual Basic Editor ved at klikke på " Database Tools " fanen og derefter på " Visual Basic ".
2

Klik på "Indsæt" og derefter " Module" i Visual Basic Editor.

3

Indtast koden for at oprette forbindelse til databasen. Du bliver nødt til at etablere en forbindelse for at bruge SQL-sætninger til databasen.

Sub SQLTutorial ()

'Konfigurer dine variabler til at holde de oplysninger,

Dim Conn som ADODB.Connection 'Dette er selve tilslutningen

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

Dim rsDelete som ADODB.Recordset

Dim rsInsert som ADODB.Recordset

Dim rsUpdate som ADODB.Recordset

Dim strSelectQuery som String ' Dette er den faktiske SQL SELECT kommando

Dim strDeleteQuery som String ' Dette vil holde SQL DELETE erklæring

Dim strInsertQuery som String 'Dette er den SQL INSERT erklæring

Dim strUpdateQuery som String ' Dette vil holde UPDATE-sætning

' Indtast detaljerne for at tilslutte til den database, du vil

Set Conn = Ny ADODB.Connection

Conn

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

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

Open

End With

din forbindelse til databasen er foretaget. Dernæst vil du tildele SQL-sætninger til de variabler, du allerede har erklæret ovenfor.
4

Indtast et "SELECT " SQL-sætning til at vælge data fra databasen . En SELECT- forespørgsel er normalt består sådan her: " SELECT kolonner fra tabellen" . Du kan tilføje kriterier til SELECT-sætning ved at tilføje i " WHERE "-klausul . For eksempel har du en tabel kaldet "kunder" som du ønsker at søge efter alle de kunder, med den sidste navnet " Smith ". VBA og SQL-kode vil se sådan ud : Hej

strSelectQuery = " SELECT * FROM tblCustomers WHERE efternavn = ' Smith '

stjerne (*) er et wildcard, hvilket betyder, at du ønsker at trække alle de oplysninger , eller kolonner på alle med efternavnet " . Smith " For at vælge bestemte kolonner , skal du bruge : Hej

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

Indtast " sLET " erklæring , hvis du ønsker at slette rækker af data fra en tabel koden for det er : Hej

strDeleteQuery = " DELETE FROM tblCustomers WHERE efternavn = ' Smith ' "

Denne erklæring vil slette alle rækker, hvor kunden har et efternavn med" Smith " fra" kunder " tabellen. den grundlæggende syntaks for en DELETE-sætning er " DELETE FROM tabel WHERE kolonne = ' værdi ' ".
6

Indtast syntaks til at indsætte en ny række i en tabel . Brug" INSERT "erklæring .

strInsertQuery =" INSERT INTO tblCustomers VALUES ( John , Smith , 123 Main Street , Cleveland, Ohio) "
p Hvis du havde en tabellen Kunder , der har Fornavn, Efternavn , Adresse, by og stat kolonner , vil denne erklæring indsætter i data i højre spalte. den komma fortæller koden til at springe til næste kolonne, før du kommer ind i værdierne. Vær sikker på at du skriver i værdierne i den rigtige rækkefølge af kolonnerne i tabellen , så dine data er konsistent.
7

Indtast SQL-sætningen til at ændre en række data . Dette er " UPDATE " erklæring .

strUpdateQuery = " UPDATE tblCustomers SET LastName = ' Jones' , Fornavn =" Jim " WHERE efternavn = ' Smith ' "

Denne erklæring ændrer alle, der har et efternavn " Smith " til " Jones ", og deres første navne til " Jim ". Du kan ændre flere kolonner af data på en gang i en UPDATE-sætning ved at adskille kolonnerne med komma. Den grundlæggende syntaks for en opdatering " UPDATE table SET kolonne1 = værdi1 , kolonne2 = værdi2 , kolonne3 = value3 , ... WHERE kolonne = value. "
8

Indtast VBA kode, der vil køre forespørgslen og gemme resultaterne til recordsets . Luk ud VBA-kode.

Set rsSelect = Ny ADODB . Recordset

rsSelect

Set. ActiveConnection = Conn

. CursorType = adOpenStatic

. Source = strSelectQuery

. Åbn < br >

End With

Set rsDelete = Ny ADODB.Recordset

rsDelete

Set. ActiveConnection = Conn

. CursorType = adOpenStatic < br >

. Kilde = strDeleteQuery

. Open

End With

Set rsInsert = Ny ADODB.Recordset

rsInsert
< p> Set. ActiveConnection = Conn

. CursorType = adOpenStatic

. Source = strInsertQuery

. Open

End With

Set rsUpdate = Ny ADODB.Recordset

rsDelect

Set. ActiveConnection = Conn

. CursorType = adOpenStatic

. Source = strUpdateQuery
< p > . Åbn

End With

' Indtast VBA-kode til at gøre arbejdet med de data , du har samlet gennem SQL-sætninger .

' Du kan bruge dataene til skrive i formularer i andre tabeller eller rapporter.

' Luk recordsets og forbindelse med du er færdig

rsSelect.Close

rsDelete.Close
< p > rsInsert.Close

rsUpdate.Close

End Sub