SELECT文の加工

質問

いつもお世話になります。

現在複数の条件でレコード数を割り出すＰＧを作成中なのですが、SELECT文の認識不足のため、みなさんに案を頂きたく思っている次第です。

現在までのコードですが。。。

変数　ASU

strSQL = "SELECT COUNT (*) AS ASU From 入場者実績 where 姓 = '" & Form1.Text1.Text & "'"

'レコードセットをオープン
rs.Open strSQL, cn

ASU = rs.Fields(0).Value
Form1.Text2.Text = ASU

というところまでなのですが、実際にはもう少し、期間範囲を取り入れた条件で絞りたいんです。（DTPickerを２つ使用し、その間の期間に入場した同一性の数をカウント。）

SELECT文にどのような追加をしたらよいでしょうか？
みなさんよろしくお願いします！

回答No.4

PAPA0427 · ベストアンサー

以下をモデファイして、ご利用ください。

変数　ASU
DIM DATE1 AS String
DIM DATE2 AS String

DATE1 = Format(入力日付１, "yyyy/mm/dd")
DATE2 = Format(入力日付２, "yyyy/mm/dd")

strSQL = "SELECT COUNT (*) AS ASU From 入場者実績 where 姓 = '" & Form1.Text1.Text & "'"
strSQL = strSQL & " AND 日付フィールド BETWEEN DATE1 AND DATE2"

'レコードセットをオープン
rs.Open strSQL, cn

ASU = rs.Fields(0).Value
Form1.Text2.Text = ASU

お礼

お礼欄に記述し、大変恐縮ですが。。。

実際にＤＢから取り出す日付フィールドのデータ型は
日付/時刻型(2003/04/17 14:30:00等)になっています。
上記頂いた方法で試したのですが「１つ以上の必要なパ
ラメータの値が設定されていません。」とエラーが戻っ
てきてしまいます。。。やはり日付/時刻型ということが
問題なのでしょうか？

何度もすいませんがよろしくお願いします。

補足

大変ご親切なご回答、ありがとうございます！

さっそく試してみようと思います。＾＾

回答No.5

PAPA0427

であれば、

strSQL = strSQL & " AND 日付フィールド BETWEEN DATE1 AND DATE2"
↓
strSQL = strSQL & " AND FORMAT(日付フィールド,"yyyy/mm/dd") BETWEEN DATE1 AND DATE2"

でＯＫなはずです。お試しください。

お礼

何度も本当にありがとうございます。（涙）
さっそくやってみます！

回答No.3

2ch

出題者よ
環境ぐらい書け

補足

すいません、情報不足というご指摘、今後、気をつけて
行きたいと思います。

回答No.2

taknt

to_char(入場日時,'yyyy/mm/dd') > DTPicker.value

などというふうにしてみたら？

回答No.1

taknt

DTPickerで判断する条件を加えるしかないでしょう。

それが どういった型の項目で、どういう中身が入るのか
わからないので、ＳＱＬ文は、正しくは わかりません。

日付として扱うならば

and DTPicker > '20030401' and DTPicker < '20030430'

というのを付け足せばいいだけです。

補足

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

実際にＤＢから取り出すフィールドは入場日時という項目でデータ型は日付/時刻型になっています。今のところ、時刻の部分は必要ありませんので、日付の部分だけをDTPicker.valueと比較したいというわけです。

よろしくお願いします。