出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
Access内のデータを、変数を使った条件で引っ張る方法 　 しゃんさん [2002/06/10 9:56:07] [2141]
　 発言者により削除されました!! Kevinさん [2002/06/10 12:05:02] [2142]
　 Re:Access内のデータを、変数を使った条件で引っ張る方法 　 Kevinさん [2002/06/10 12:10:00] [2143]
　 　 ありがとうございました！解決しました！ 　 しゃんさん [2002/06/10 13:44:44] [2145]
[2141] Access内のデータを、変数を使った条件で引っ張る方法
投稿者：しゃんさん 2002/06/10 9:56:07
初めまして。
まだＡＳＰ３日目ほどの初心者ですが、もうツマヅイテしまいました。

今、Access内のデータを、今日の日付をKeyにして、
Selectしたいと思っているのですが、Where以下に、変数を使うと、
「パラメータが少なすぎます１を指定してください」といった
メッセージが出て、うまく行きません。
恐らく、そこ以外ではちゃんとうまく行くので、select文の中への
変数の使い方がどこか間違っていると思うのですが、以下に
ソースを書きますので、どなたか書き方の方法をご教授ください。
よろしくお願いします。

<%
'*****　データベース（guestbook.mdb）に接続　*****
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
Server.Mappath("データベース名.mdb")
%>


<%
'************ 今日の日付を取得******************
DateStr = Date()
DateStr2 = CStr(DateStr)

'*****　レコードセットの作成　*****
Set ObjRS = Server.CreateObject("ADODB.Recordset")
StrSQL = "select * from T_01 where update = DateStr2"

ObjRS.Open StrSQL, ObjConn
%>

※update には、日付がテキストで入っています。
[2142] Re:Access内のデータを、変数を使った条件で引っ張る方法
投稿者：Kevinさん 2002/06/10 12:05:02
発言者により削除されました!!
[2143] Re:Access内のデータを、変数を使った条件で引っ張る方法
投稿者：Kevinさん 2002/06/10 12:10:00
> 初めまして。
> まだＡＳＰ３日目ほどの初心者ですが、もうツマヅイテしまいました。
>
> 今、Access内のデータを、今日の日付をKeyにして、
> Selectしたいと思っているのですが、Where以下に、変数を使うと、
> 「パラメータが少なすぎます１を指定してください」といった
> メッセージが出て、うまく行きません。
> 恐らく、そこ以外ではちゃんとうまく行くので、select文の中への
> 変数の使い方がどこか間違っていると思うのですが、以下に
> ソースを書きますので、どなたか書き方の方法をご教授ください。
> よろしくお願いします。
>
> <%
> '*****　データベース（guestbook.mdb）に接続　*****
> Set ObjConn = Server.CreateObject("ADODB.Connection")
> ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
> Server.Mappath("データベース名.mdb")
> %>
>
>
> <%
> '************ 今日の日付を取得******************
> DateStr = Date()
> DateStr2 = CStr(DateStr)
>
> '*****　レコードセットの作成　*****
> Set ObjRS = Server.CreateObject("ADODB.Recordset")
> StrSQL = "select * from T_01 where update = DateStr2"
>
> ObjRS.Open StrSQL, ObjConn
> %>
>
> ※update には、日付がテキストで入っています。

よくある間違いですが、
StrSQL = "select * from T_01 where update = DateStr2"
の部分は
StrSQL = "select * from T_o1 where update = '" & DateStr2 & "'"
というように、"'" & テキスト変数 & "'"でくくりましょう。

またこのようなエラーメッセージの場合は
Response.write StrSqlとして
StrSqlの実際の内容を確認しましよう。


[2145] ありがとうございました！解決しました！
投稿者：しゃんさん 2002/06/10 13:44:44
本当にありがとうございました。
余りに、基本過ぎる内容なのかもしれませんが、なかなか
見つからなかったので、本当に困っていました。

しかも、SQLの内容出力まで、お教えいただき、
本当にありがとうございました。

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ