出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
サーチフォームについて 　 kimuraさん [01/02/20 18:23:30] [35]
　 Re:サーチフォームについて 　 管理人（YasNet）さん [01/02/20 18:24:20] [36]
　 　 Re:サーチフォームについて 　 kimuraさん [01/02/20 18:24:54] [37]
[35] サーチフォームについて
投稿者：kimuraさん の <ホームページ> 01/02/20 18:23:30
こんにちは、
簡単に自分の名前があるかどうかを検索するフォームを作って、実行しましたが、できません。。
テーブルの内容は、、フィールド名はnameでテキスト型として
kimura、shojun
のたった二つのデータを入れて検索できるかどうかをテストしています。。
フォームは
--------------------------------search.asp-----------------------------------
<%@ LANGUAGE="VBSCRIPT" %>
<html>
<body>
<%
Response.Write("Search Something")
%>
<form action="\kimura\answer.asp" method="POST">
<table cellpadding="2">
<tr>
<td><b>Name</b></td>
<td><input type="text" size="42" name="name"></td>
</tr>
<tr>
<td><Input type="submit" name="B1" value="search"></td>
<td><input type="reset" name="B2" value="reset"></td>
</tr>
</form>
</body>
</html>
----------------------------------------------------------------------------
でkimuraを入れて検索してみたら、検索できるはずなのに、no data u searched..と
表示されます。
-------------------answer.asp--------------------------------------------
<%@ LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Result Search</title>
</head>
<body>
<h1>Result Search</h1>

<%
Dim Conn,TheSQL,RS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\kimura\db\search.mdb")
x = Request("name")
TheSQL = "SELECT * FROM tsearch WHERE name = 'x'"
Set RS = Conn.Execute(TheSQL)
'''''''''''''''''''' 問題のところ '''''''''''''''''''''''''''''
If RS.Eof Then　　　　　　　　　　　　　　　　　　　
Response.Write("no data u searched..")
Else 　　　　　　　　　　　　　　　　　
While Not RS.Eof
get_str = RS("name")
Response.Write get_str
RS.MoveNext
Wend
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
RS.Close
Set RS=Nothing
Conn.Close
Set Conn=Nothing
%>
</body>
</html>
-----------------------------------------------------------------------------
長いですが、、どなたか教えていただけたらうれしいです。。
[36] Re:サーチフォームについて
投稿者：管理人（YasNet）さん の <ホームページ> 01/02/20 18:24:20
こんにちは　YasNet　です
> x = Request("name")
> TheSQL = "SELECT * FROM tsearch WHERE name = 'x'"
　
問題は多分上記２箇所です。
　
x = Request.Form("name")
TheSQL = "SELECT * FROM tsearch WHERE name = '" & x & "'"
　
これでいけるのでは？
　
この手の場合の、基本作業としてまず、このプログラムの場合　TheSQL　の
内容を　Response.Write　で　確認してみる事です。
　
それでは、頑張ってくださいね。
[37] Re:サーチフォームについて
投稿者：kimuraさん の <ホームページ> 01/02/20 18:24:54
本当にありがとうございます！
これで、やっとちゃんとしたプログラムがかけるように、、
では、また来ます:D

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