SQL och VBA – en detaljerad handledning

SQL och VBA – en detaljerad handledning

SQL (Structured Query Language) är det språk som används för att hantera relationella databaser. VBA (Visual Basic for Applications) är Microsofts skriptspråk som låter dig automatisera uppgifter i Office‑programmen. Microsoft Access är en databasapplikation inom Office‑paketet som kombinerar SQL och VBA för att skapa dynamiska, automatiserade databaser.

Genom att skriva VBA‑kod kan du ansluta till en Access‑databas, söka, lägga till, uppdatera och ta bort poster – allt med hjälp av SQL‑satser.

Steg 1 – Öppna databasen och VBA‑redigeraren

1. Öppna den Access‑databas du vill arbeta med. 2. Gå till fliken Databasverktyg och klicka på Visual Basic för att öppna VBA‑redigeraren.

Steg 2 – Skapa ett nytt modul

Välj Infoga → Modul i VBA‑redigeraren. Detta skapar en tom modul där du kan skriva din kod.

Steg 3 – Etablera en anslutning

Här skapar vi en anslutning med ADODB och definierar variabler för våra SQL‑satser och recordsets:

Sub SQLTutorial()
    'Variabler
    Dim Conn As ADODB.Connection
    Dim rsSelect As ADODB.Recordset
    Dim rsDelete As ADODB.Recordset
    Dim rsInsert As ADODB.Recordset
    Dim rsUpdate As ADODB.Recordset
    Dim strSelectQuery As String
    Dim strDeleteQuery As String
    Dim strInsertQuery As String
    Dim strUpdateQuery As String
    
    'Anslutning
    Set Conn = New ADODB.Connection
    With Conn
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents\SampleDatabase.mdb"
        .Open
    End With
End Sub

Efter att anslutningen har öppnats kan du tilldela SQL‑satser till de deklarerade variablerna.

Steg 4 – SELECT‑sats

En typisk SELECT‑fråga ser ut så här:

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

Om du bara vill hämta vissa kolumner:

strSelectQuery = "SELECT FirstName, LastName FROM tblCustomers WHERE LastName = 'Smith'"

Steg 5 – DELETE‑sats

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

Detta tar bort alla poster där efternamnet är “Smith”.

Steg 6 – INSERT‑sats

För att lägga till en ny post använder du:

strInsertQuery = "INSERT INTO tblCustomers (FirstName, LastName, Address, City, State) VALUES ('John', 'Smith', '123 Main Street', 'Cleveland', 'Ohio')"

Observera att värdena måste anges i samma ordning som kolumnerna i tabellen.

Steg 7 – UPDATE‑sats

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

Detta ändrar efternamnet och förnamnet för alla poster med efternamnet “Smith”. Du kan uppdatera flera kolumner genom att separera dem med kommatecken.

Steg 8 – Kör SQL‑satserna i VBA

Efter att du har definierat alla satser kan du köra dem och spara resultaten i recordsets:

Set rsSelect = New ADODB.Recordset
With rsSelect
    .ActiveConnection = Conn
    .CursorType = adOpenStatic
    .Source = strSelectQuery
    .Open
End With

Set rsDelete = New ADODB.Recordset
With rsDelete
    .ActiveConnection = Conn
    .CursorType = adOpenStatic
    .Source = strDeleteQuery
    .Open
End With

Set rsInsert = New ADODB.Recordset
With rsInsert
    .ActiveConnection = Conn
    .CursorType = adOpenStatic
    .Source = strInsertQuery
    .Open
End With

Set rsUpdate = New ADODB.Recordset
With rsUpdate
    .ActiveConnection = Conn
    .CursorType = adOpenStatic
    .Source = strUpdateQuery
    .Open
End With

'Här kan du bearbeta data, skriva ut rapporter eller uppdatera formulär

'Stäng recordsets och anslutning
rsSelect.Close
rsDelete.Close
rsInsert.Close
rsUpdate.Close
Conn.Close
End Sub

Genom att kombinera VBA och SQL får du full kontroll över Access‑databaser och kan skapa kraftfulla, automatiserade lösningar.