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

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

No.2 ベストアンサー 回答者： chibita_papa 回答日時： 2009/04/20 20:49

例えば

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

参考にして下さい。

この回答へのお礼

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

お礼日時：2009/04/22 20:38

No.1 回答者： n-jun 回答日時： 2009/04/20 20:44

アクティブシートなら

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

と連結してあげるとか？

この回答へのお礼

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

お礼日時：2009/04/22 20:39