Jak używać zmiennych w zapytaniach SQL w VBA

Wykorzystywanie zmiennych w instrukcjach SQL może być nieco skomplikowane, ale daje dużą elastyczność – pozwala na jednorazowe zdefiniowanie zapytania i jego wielokrotne użycie z różnymi kryteriami. W języku Visual Basic for Applications (VBA) można tworzyć ciągi SQL zawierające kryteria tekstowe. Aby wstawić zmienną typu String do takiego ciągu, należy użyć podwójnych cudzysłowów ("…") jako delimitera ciągu oraz otoczyć zmienną pojedynczymi cudzysłowami ('). Dzięki temu nie trzeba przepisywać całego zapytania przy każdej zmianie warunku.

Krok 1 – deklaracja zmiennych

Na początku zdefiniuj dwie zmienne: jedną do przechowywania wartości kryterium, a drugą do budowania samego zapytania SQL.

Dim mySQLVariable As String
Dim strSQL As String

Krok 2 – przypisanie wartości

Przypisz zmiennej mySQLVariable wartość, którą chcesz użyć w warunku WHERE.

mySQLVariable = "Sales Manager"

Krok 3 – budowanie ciągu SQL

Utwórz zapytanie, konkatenując kolejne fragmenty tekstu. Na końcu zamień stały warunek na zmienną.

strSQL = "SELECT Employees.[First Name], "
strSQL = strSQL & "Employees.[Last Name], "
strSQL = strSQL & "Employees.[Job Title] "
strSQL = strSQL & "FROM Employees "
strSQL = strSQL & "WHERE (((Employees.[Job Title])='Sales Manager'));

W miejsce tekstu 'Sales Manager' wstaw zmienną:

strSQL = strSQL & "WHERE (((Employees.[Job Title])='" & mySQLVariable & "'));"

Teraz zapytanie strSQL zawiera dynamiczny warunek, który można łatwo modyfikować, zmieniając jedynie wartość zmiennej mySQLVariable.