Menggunakan Pembolehubah dalam SQL String VBA

Memanfaatkan pembolehubah dalam kenyataan SQL boleh menjadi mencabar, tetapi ia memberi fleksibiliti yang diperlukan untuk mengulang satu kenyataan SQL bagi mengira data yang berbeza. Di Visual Basic for Applications (VBA), anda boleh membina kenyataan SQL yang mengandungi kriteria teks. Untuk menggunakan pembolehubah teks dalam kenyataan SQL, anda perlu menggunakan petikan dua (") sebagai pemisah string dan menambah petikan tunggal (') di sekitar pembolehubah.

Langkah 1

Buat dua pembolehubah yang akan anda gunakan dalam kod VBA: satu untuk menyimpan nilai pembolehubah dan satu lagi untuk menyimpan string SQL.

Dim mySQLVariable As String
Dim strSQL As String

Langkah 2

Tetapkan nilai kepada pembolehubah yang akan anda gunakan dalam string SQL, contoh:

mySQLVariable = "Sales Manager"

Langkah 3

Bentuk string SQL anda secara terpisah:

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

Kemudian, tukar nilai tetap “Sales Manager” dengan pembolehubah anda:

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