Structured Query Language ( SQL ) är datorspråk som används för att hantera relationsdatabaser . Visual Basic for Applications ( VBA ) är det programmeringsspråk som har utvecklats av Microsoft för att använda med Microsoft Office-program för att skapa dynamiskt innehåll . Microsoft Access är en databas program inne i Microsoft Office-paketet som använder både SQL och VBA att hantera data och ge automatisering för systematiska databas funktioner . Använda programmering skalet bakom Microsoft Access , kan du ansluta till den viktigaste databasen , söka efter data , lägga till nya uppgifter och ta bort data genom att kombinera SQL och VBA programmeringskod . Instruktioner
1
Öppna databasen du vill arbeta med i Microsoft Access . Öppna Visual Basic Editor genom att klicka på " Databas Verktyg " fliken och sedan " Visual Basic . "
2
Klicka på " Infoga " och sedan " modul " i Visual Basic Editor .
3
Skriv in koden för att ansluta till databasen . Du måste upprätta en anslutning för att använda SQL-satser till databasen .
Sub SQLTutorial ( ) katalog
" Ställ in dina variabler för att hålla informationen
Dim Conn som ADODB.Connection " Detta är den verkliga anslutningen
Dim rsSelect som ADODB.Recordset " det är där du kommer att spara uppgifterna
Dim rsDelete som ADODB.Recordset
Dim rsInsert som ADODB.Recordset
Dim rsUpdate som ADODB.Recordset
Dim strSelectQuery As String ' Detta är den faktiska SQL SELECT kommando
Dim strDeleteQuery As String ' Detta kommer att hålla SQL DELETE
Dim strInsertQuery As String ' Detta är SQL INSERT-sats
Dim strUpdateQuery As String ' Detta kommer att hålla UPDATE
" Typ i detaljerna för att ansluta till den databas som du vill
Set Conn = Ny ADODB.Connection
Conn
ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; " . & _
" Data Source = C: \\ Documents \\ SampleDatabase.mdb " .
Open
End With
nu anslutningen till databasen har gjorts . Härnäst kommer du tilldela SQL-satser för de variabler som du redan förklarats ovan .
4
Skriv in ett " SELECT " SQL-sats för att välja data från databasen . Ett SELECT-fråga består vanligtvis ut så här : " markera kolumnerna från tabellen " . Du kan lägga till villkor i SELECT genom att lägga i " WHERE " klausul . Till exempel, du har en tabell som heter "Kunder" som du vill söka efter alla kunder med efternamnet " Smith . " VBA och SQL-kod ser ut så här :
strSelectQuery = " SELECT * FROM tblCustomers WHERE Efternamn = ' Smith '
asterisk ( * ) är ett wildcard , vilket innebär att du vill dra all information , eller pelare , på någon med efternamnet " . Smith " att välja vissa kolumner , skulle du använda :
strSelectQuery = " SELECT Förnamn, Efternamn FROM tblCustomers WHERE Efternamn = ' Smith ' " .
5
Skriv in " DELETE " uttalande om du vill ta bort rader med data från en tabell koden för detta är :
strDeleteQuery = " DELETE FROM tblCustomers WHERE Efternamn = ' Smith ' "
Detta uttalande kommer att radera alla rader där kunden har ett efternamn på " Smith " från " Kunder " tabellen . grundläggande syntax för en DELETE -sats " DELETE FROM tabell WHERE kolumn = ' värde ' . "
6
typ i syntaxen för att infoga en ny rad i en tabell . Använd " INSERT " uttalande .
strInsertQuery = " INSERT INTO tblCustomers VALUES ( John Smith , 123 Main Street , Cleveland , Ohio ) "
p Om du hade en tabellen Kunder som har Förnamn, Efternamn , Adress , Ort och kolumner statliga , kommer detta uttalande infoga i uppgifterna i den högra kolumnen . kommatecknet berättar koden för att hoppa till nästa kolumn innan i värdena . Kontrollera att du skriver in värden i rätt ordning på kolumnerna i tabellen så att dina data är konsekvent .
7
Skriv i SQL-uttryck för att ändra en rad med data . Detta är den " UPDATE " uttalande .
strUpdateQuery = " UPDATE tblCustomers SET Efternamn = ' Jones ' , förnamn = " Jim " WHERE Efternamn = ' Smith ' "
Detta uttalande ändrar alla som har ett efternamn på " Smith " till " Jones " och deras förnamn till " Jim . " Du kan ändra flera kolumner med data på en gång i en UPDATE-sats genom att separera kolumner med kommatecken . grundläggande syntax för en uppdatering " UPDATE table SET kolumn1 = värde1 , kolumn2 = värde2 , kolumn3 = value3 , ... WHERE kolumn = värde . "
8
Typ i VBA-kod som kommer att köra frågan och spara resultaten i postuppsättningar . Stänga ute VBA-kod .
Set rsSelect = Ny adodb . Recordset
rsSelect
Set . ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strSelectQuery
. Open
End With
Set rsDelete = Ny ADODB.Recordset
rsDelete
Set . ActiveConnection = Conn
. CursorType = adOpenStatic
. Källa = strDeleteQuery
. Öppen
End With
Set rsInsert = Ny ADODB.Recordset
Med rsInsert
Set. ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strInsertQuery
. Open
End With
Set rsUpdate = Ny ADODB.Recordset
rsDelect
Set . ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strUpdateQuery
. Öppna
End With
" Type i VBA-kod för att göra arbetet med de data du samlat genom de SQL-satser .
" du kan använda uppgifterna för att skicka in blanketter , i andra tabeller eller i rapporter .
" Stäng postuppsättningar och anslutning med du är klar
rsSelect.Close
rsDelete.Close
rsInsert.Close
rsUpdate.Close
End Sub
