whereで変数込みの抽出条件

質問

office2010,oracle 11g

oracleからexcelへの抽出条件で、(1)と(2)は、それぞれで動作します。
(1)と(2)をor条件で接続したいのですが、どの様な書式になるか教えていただきたく。

Dim t As String
t = Mid(Sheets("macro").Range("I1").Value, 1, 8)
　I1セルには式=TEXT(NOW(),"yyyymmdd")が入っています。

(1)
rs.Open "select * from USER where (A ='B' and C ='D' and E <>'F' and E <>'G' and not E like '使用不可%') or ( A ='B' and C ='H') ", cn, adOpenDynamic, adLockOptimistic, adCmdText
(2)
rs.Open "select * from USER where K ='L' and M >" & t, cn,adOpenDynamic,adLockOptimistic, adCmdText

where (…) or (…) or (…) , cn,adOpenDynamic,adLockOptimistic, adCmdText
という構成でエラーになるのです。

※なお、条件分は、本来のものと変えています。

回答No.1

ushi2015 · ベストアンサー

こんにちは
rs.Open "select * from USER where ((A ='B' and C ='D' and E <>'F' and E <>'G' and not E like '使用不可%') or ( A ='B' and C ='H') or (K ='L' and M >" & t & ") ", cn, adOpenDynamic, adLockOptimistic, adCmdText
では、ダメだったという事でしょうか？

お礼

いけました。
ありがとうございます。

rs.Open "select * from USER where ((A ='B' and C ='D' and E <>'F' and E <>'G' and not E like '使用不可%') or ( A ='B' and C ='H') or (K ='L' and M >" & t ") ", cn, adOpenDynamic, adLockOptimistic, adCmdText

の様に、tの後ろの＆がなくてコンパイルエラーと表示されていました、