Kaip VBA naudoti kintamuosius SQL užklausose

Naudoti kintamuosius SQL užklausose gali būti sudėtinga, tačiau tai suteikia galimybę perkelti vieną užklausą į skirtingus duomenų rinkinius be jos perrašymo. VBA (Visual Basic for Applications) leidžia kurti SQL sakinius, kuriuose galima įterpti teksto kriterijus. Norint į SQL eilutę įterpti teksto kintamąjį, reikėtų naudoti dvigubas kabutes (") kaip eilutės ribotuvą ir viengubas kabutes (') aplink kintamąjį.

Žingsniai

1. Sukurkite kintamuosius

Pradžioje VBA kode deklaruokite du kintamuosius: vieną, kuriame bus saugoma kintamojo reikšmė, ir kitą – kuriame bus sukuriama SQL užklausa.

Dim mySQLVariable As String
Dim strSQL As String

2. Priskirkite reikšmę kintamajam

Į mySQLVariable įrašykite norimą filtrą, pvz.:

mySQLVariable = "Sales Manager"

3. Sudarykite SQL užklausą

Statykite SQL tekstą naudojant eilutės sujungimą (&). Pavyzdžiui:

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

Užklausos paskutinę eilutę pakeiskite taip, kad vietoje fiksuoto teksto būtų naudojamas kintamasis:

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

Tokiu būdu užklausa tampa dinamiška ir gali būti naudojama su bet kokia mySQLVariable reikšme.