välj sökning

40 svar · 282 visningar · startad av crisse6 19 feb. 2001

crisse6Medlem sedan dec. 20002 526 inlägg

Trådstart19 feb. 2001 12:09#1

tjabba!

jag har gjort en väldigt enkel sökmotor för att söka igenom en databas. jag har några fält i tabellen users som finns i databasen som heter namn, efternamn, kon, osv.... om jag nu vill via formuläret som man söker i ska kunna välja om man vill hitta bara tjejer eller bara killar...så kan man ju lägga till en rullgardinsmeny i formuläret men hur blir det i asp-koden? så här ser den ut för tillfället:

<font face="Verdana" size="1"><b>Här visas dina träffar:</b><br><br></font><font face="Verdana" size="1">
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
%>

<%
sokning = Request.Form("sokning")
SQL = "SELECT * FROM users WHERE Username LIKE '%" & sokning & "%' OR namn LIKE '%" & sokning & "%' OR kon LIKE '%" & sokning & "%'"
Set rsBra = databas.execute(SQL)
Do Until rsBra.EOF

Response.Write "Förnamn: " & "<b>" & rsBra("Namn") & "<br>" & "</b>"
Response.Write "Efternamn: " & rsBra("Efternamn") & "<br>"
Response.Write "Emejl: " & rsBra("E-post") & "<br>"
Response.Write "Bor: " & rsBra("Bor") & "<br>"
Response.Write "Kön: " & rsBra("Kon") & "<br>"
Response.Write "Född: " & rsBra("Born") & "<br>"
Response.Write "Så här beskriver jag mig själv:" & "<br>" & rsBra("Fakta") & "<br>"

Response.Write "Nickname: " & rsBra("Username") & "<br>" & "<a href=""blikompis.asp?Username=" &  rsBra("Username") & """>Bli polare!</a><br><br>"
Response.Write "<img src=""hr.jpg"" width=""846"" height=""11"" border=""0"">" & "<br>"
rsBra.MoveNext
Loop
%>

VideMedlem sedan dec. 19998 577 inlägg

19 feb. 2001 12:14#2

Du får döpa din rullist till kon, och sedan ändra till:

kon = Request.Form("kon")
sokning = Request.Form("sokning")
SQL = "SELECT * FROM users WHERE (Username LIKE '%" & sokning & "%' OR namn LIKE '%" & sokning & "%') AND kon = '" & kon & "'"

crisse6Medlem sedan dec. 20002 526 inlägg

19 feb. 2001 17:40#3

tackar Vide!

nu surfar det bara med min sökfunktion bara en liten fråga, om man inte hittar någon person som man sökt på, kan man inte få ett litet meddelande om det då? borde väl gå med en liten If-sats

RossifumiMedlem sedan okt. 20001 558 inlägg

19 feb. 2001 17:51#4

If rsBra.EOF Then
Response.Write "Tomt"
Else
Loooop
End If

KentMedlem sedan juli 2000355 inlägg

19 feb. 2001 18:50#5

Vide testade din och den funkar bra om man väljer en kategori, men om man inte väljer en kategori i select satsen kommer detta fel upp,

Syntax error (missing operator) in query expression '(beskrivning LIKE 'm%' OR titel LIKE 'm%') AND kat='.

vad kan det bero på tror du.?

VideMedlem sedan dec. 19998 577 inlägg

19 feb. 2001 18:56#6

att du inte skickar med något värde för kön... gör en ifsats som kolla om du skicka med något, är det medskickat så lägger du till >> AND kon = '" & kon & "' << annars så skiter du i det...

KentMedlem sedan juli 2000355 inlägg

19 feb. 2001 19:12#7

Kan du visa med lite mer kod tror du, jag fattade inte riktigt det där.

VideMedlem sedan dec. 19998 577 inlägg

19 feb. 2001 20:29#8

kon = Request.Form("kon")
sokning = Request.Form("sokning")
SQL = "SELECT * FROM users WHERE (Username LIKE '%" & sokning & "%' OR namn LIKE '%" & sokning & "%')"
If kon <> "" then SQL = SQL & " AND kon = '" & kon & "'"

KentMedlem sedan juli 2000355 inlägg

19 feb. 2001 20:48#9

Får upp fel, Data type mismatch in criteria expression. vad är det för fel då.?

VideMedlem sedan dec. 19998 577 inlägg

19 feb. 2001 22:34#10

på vilken rad?

KentMedlem sedan juli 2000355 inlägg

19 feb. 2001 22:41#11

Så här ser koden ut:
kon = Request.Form("kon")
sokning = Request.Form("sokning")
SQL = "SELECT * FROM users WHERE (Username LIKE '%" & sokning & "%' OR namn LIKE '%" & sokning & "%')"
If kon <> "" then SQL = SQL & " AND kon = '" & kon & "'"
Set RS = databas.execute(SQL)

då ligger felet på,
Set RS = databas.execute(SQL)

VideMedlem sedan dec. 19998 577 inlägg

19 feb. 2001 22:46#12

okej, skriv ut SQL-strängen före du exekverar den, så är det lättare att se vad som är fel:

If kon <> "" then SQL = SQL & " AND kon = '" & kon & "'"
Response.write SQL
Set RS = databas.execute(SQL)

KentMedlem sedan juli 2000355 inlägg

19 feb. 2001 22:52#13

Nu står det,

SELECT * FROM databas WHERE (beskrivning LIKE '%test%' OR titel LIKE '%test%') AND kat = '1'
ADODB.Recordset.1 error '80004005'

Data type mismatch in criteria expression.

det säger mig inte så mycket.?

VideMedlem sedan dec. 19998 577 inlägg

19 feb. 2001 22:56#14

okej, är fältet kat ett textfält? annars så skall du ta bort enkelfnuttarna...

KentMedlem sedan juli 2000355 inlägg

19 feb. 2001 23:19#15

Kat är en select sats, koden ser nu så här,
SQL = "SELECT * FROM databas WHERE (beskrivning LIKE '%" & sokning & "%' OR titel LIKE '%" & sokning & "%') AND kat = " & kat & ""

får upp fel,
Syntax error (missing operator) in query expression '(beskrivning LIKE '%test%' OR titel LIKE '%test%') AND kat ='.

VideMedlem sedan dec. 19998 577 inlägg

19 feb. 2001 23:34#16

hur får du kat till en selectsats?

Har du ändrat:

kon = Request.Form("kon")

till

kat = Request.Form("kat")

KentMedlem sedan juli 2000355 inlägg

20 feb. 2001 01:38#17

Japp det har jag, använder
kat = Request.QueryString("kat")

VideMedlem sedan dec. 19998 577 inlägg

20 feb. 2001 08:13#18

Och hur ser formuläret ut? namnet på kat, och värdenna...

KentMedlem sedan juli 2000355 inlägg

20 feb. 2001 13:46#19

Så här,
<form action="default.asp">
<input type="text" name="sokning">
<select name="kat">
<option>Sök
<option value="1">Val 1
<option value="2">Val 2
</select><br>
<input type="submit" value="Sök">

VideMedlem sedan dec. 19998 577 inlägg

20 feb. 2001 14:53#20

Vilken datatyp har du på fältet kat?

Ändra
<option>Sök

till
<option value="">Sök