VB5.0+SQL-Server7で日付を条件とした検索がうまくいかない。

質問

【やりたい事】
　XXXTBLのDATE1が今日より前のレコードを読みたい。
　SQL-ServerのDATE1属性は「datetime」です。

【やってみた事１】
Dim wk_Today As Date
wk_Today = Date
SQLText = " select *" & _
　　　　　" From XXXTBL" & _
　　　　　" Where DATE1 < " & "#" & wk_Today & "#"

【結果１】
実行時エラー　3146
ODBC呼び出しが失敗しました。

【やってみた事２】
Dim wk_Today As Date
wk_Today = Date
SQLText = " select *" & _
　　　　　" From XXXTBL" & _
　　　　　" Where DATE1 < " & wk_Today
【結果２】
　該当データなし。
　（条件に合致するレコードを作っておいたのに）

【やってみた事３】
SQLText = " select *" & _
　　　　　" From XXXTBL" & _
　　　　　" Where DateDiff('d',DATE1," & "#" & Date & "#" & ") > 0 "

【結果３】
　読めました。

【質問】
　なぜ、１と２は駄目だったのでしょうか？
　１か２の方法でできた方が素直な感じがするのですが。

　VBにもSQL-Serverにも精通しておらず、つたない
質問で申し訳ありませんが、不足する情報は補足しま
すので、ご教授お願いいたします。

回答No.2

todo36 · ベストアンサー

select * From XXXTBL Where DATE1 < '2005/02/16'
なら動くのでは？
あるいは、
select * From XXXTBL Where DATE1 < '2005/02/16 00:00:00'

お礼

ご回答ありがとうございます。

　ご指摘の通り、時間まで入れたところ、問題なく読めました。

wk_Today = Date & " " & Time
select * From XXXTBL Where DATE1 < " & "#" & wk_Today & "#

補足

'2005/02/16'とした場合

実行時エラー　'3464'
抽出条件でデータ型が一致しません。

'2005/02/16 00:00:00'とした場合

実行時エラー　'3464'
抽出条件でデータ型が一致しません。

　という結果でした。

回答No.1

todo36

SQLTextの値は？

補足

【その１】
select * From XXXTBL Where DATE1 < #2005/02/16#

【その２】
select * From XXXTBL Where DATE1 < 2005/02/16

【その３】
select * From XXXTBL Where DateDiff('d',DATE1,#2005/02/16#) > 0

　という補足でいいのでしょうか？