Jak použít proměnnou v SQL řetězci ve VBA

Úvod

Používání proměnných v SQL dotazech může být složité, ale umožňuje flexibilitu potřebnou k opakovanému použití jednoho SQL příkazu pro dotazování různých dat. Ve Visual Basic for Applications (VBA) můžete vytvářet SQL dotazy, které obsahují řetězcové kritéria. Pro vložení řetězcové proměnné do SQL příkazu je nutné použít dvojité uvozovky (") jako oddělovač řetězce a kolem proměnné přidat jednoduché uvozovky ('). Použití proměnných v SQL řetězci vám ušetří opakované přepisování dotazu při změně kritérií.

Kroky

Krok 1 – deklarace proměnných

Vytvořte dvě proměnné – jednu pro hodnotu a druhou pro samotný SQL řetězec. Do kódu VBA napište:

Dim mySQLVariable As String
Dim strSQL As String

Krok 2 – přiřazení hodnoty

Do proměnné, která bude použita v SQL dotazu, přiřaďte požadovanou hodnotu, např.:

mySQLVariable = "Sales Manager"

Krok 3 – sestavení SQL dotazu

Postupně sestavte celý SQL příkaz:

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'));"

Na posledním řádku nahraďte pevně zadaný text Sales Manager proměnnou mySQLVariable takto:

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

Tipy

• Používejte dvojité uvozovky pro ohraničení celého řetězce a jednoduché uvozovky uvnitř pro SQL řetězec.
• Pro ladění můžete výsledek strSQL zobrazit pomocí Debug.Print strSQL.