SQL文 日付

VB6.0　
ACCESS2000

Dim strToday As Date

text1.text = 2002年12月1日

strToday = Format(Form1.Text1.Text, "yyyy/mm/dd")

strSQL = "SELECT * From DAPT_生産指示 WHERE 予定作業開始日時 = strToday" & _
"ORDER BY 予定作業開始日時"

として実行すると
クエリ式の構文エラー：演算子がありません
とでます。

よろしくお願いします。

No.4 ベストアンサー 回答者： maruru01 回答日時： 2003/01/10 17:02

＞例えばbetween A and B　の場合はどうなんですか

BETWEEN #A# AND #B#

という風に、比較する値（日付を表す文字列変数）の前後に個々に付けます。
もちろん、文字列の"(ダブルクォーテーション)の位置には注意して下さい。

例

strA = "2003/01/01"
strB = "2003/01/10"

strSQL = "SELECT * FROM DAPT_生産指示 " & _
　　　　"WHERE 予定作業開始日時 BETWEEN #" & strA & "# AND #" & strB & "# " & _
　　　　"ORDER BY 予定作業開始日時"

この回答へのお礼

毎回、毎回質問したら丁寧に答えてくださってありがとうございます。

お礼日時：2003/01/10 17:43

No.3 回答者： maruru01 回答日時： 2003/01/10 15:56

こんにちは。

maruru01です。

日付型だから、変数を#で括る必要があると思います。


strSQL = "SELECT * From DAPT_生産指示 WHERE 予定作業開始日時 = #" & strToday & _
"# ORDER BY 予定作業開始日時"

ところで、1つの予定作業開始日時を抽出条件にしているのに、その予定作業開始日時で並べ替えをする意味があるんですか。

この回答への補足

例えばbetween A and B　の場合はどうなんですか、いまいち＃を付ける場所がわからないのですが

補足日時：2003/01/10 16:09

No.2 回答者： taknt 回答日時： 2003/01/10 15:09

strSQL = "SELECT * From DAPT_生産指示 WHERE 予定作業開始日時 ='" &_

strToday" & _
"' ORDER BY 予定作業開始日時"
上記のようにしてみたらいかがでしょうか？

この回答へのお礼

試してみたけど、だめでした

お礼日時：2003/01/10 15:34

No.1 回答者： nonchi 回答日時： 2003/01/10 15:07

"・・・strToday"の「y」と「"」の間か、

"ORDER BY ・・・"の「"」と「O」の間に、
半角スペースを入れてもダメですか？