セルの値を取得してSQL文に組み込みたい

質問

VBAで、ADOを使ってSQLServerに接続しています。
データベースからSQL文でデータを取得してセルに表示させています。
そこで、今はwhere 月 = '4月' …等としているのですが
4月の部分をA1等にして、セルから取得して可変できるようにしたいのです
どういうSQL文を書けば実現できるでしょうか？

回答No.2

chibita_papa · ベストアンサー

例えば
strSQL = "Select * From xxx "
strSQL = strSQL & "where 月 = '" & Range("A1") & "'"

参考にして下さい。

お礼

ありがとうございます、参考にさせて頂きました＾＾

回答No.1

n-jun

アクティブシートなら

sql = "～where 月 = '" & Range("A1").Value & "'…"

と連結してあげるとか？

お礼

ありがとうございます、参考にさせて頂きました＾＾