Söka i databas

"SELECT * from tabellnamn WHERE column LIKE '%$sok_ord'"

Sen om du kan i övrigt koda smått i asp så är det inga problems!!!

Men annars:

Dim Connect, DSNtemp
Set Connect = Server.CreateObject("ADODB.Connection")
DSNtemp = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=/sökväg/till/databasen från rooten/"
Connect.Open(DSNtemp)

Dim sok_ord, Rs, SQL
sok_ord = Request.Form("sok_ord")

Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * from tabellnamn WHERE column LIKE '%" & sok_ord & "'"
Rs.Open SQL, Connect

If Rs.Eof Then
Response.Write "<strong>" & sok_ord & "</strong> kunde inte hittas!"
Else
Do While Rs.Eof

Response.Write("" & Rs("column") & "<br />")

Rs.MoveNext
Loop

End If

Rs.Close
Set Rs = Nothing

Connect.Close
Set Connect = Nothing

Sen kan man ju givetvis bygga ut denna och göra den mycket mera avancerad, detta var bara ett hafsift exempel. :e

Sen gör man bara ett vanlig formulärfält som heter sok_ord som har den där koden som action?

Fredde skrev:

SQL = "SELECT * from tabellnamn WHERE column LIKE '%" & sok_ord & "'"

Nja, det där innebär att sökordet slutar på det som användaren söker på. Borde vara tvärt som eller kanske på båda sidor.

Enkel

SQL = "SELECT * from tabellnamn WHERE column LIKE '" & sok_ord & "%'"

Dubbel

SQL = "SELECT * from tabellnamn WHERE column LIKE '%" & sok_ord & "%'"

AboO skrev:

Sen gör man bara ett vanlig formulärfält som heter sok_ord som har den där koden som action?

Typ, så ja.

<form method="POST" action="search.asp" name="sok_ord">
  <p><input type="text" name="sok_ord" size="20"><input type="submit" value="Sök" name="submit"><input type="reset" value="Sudda" name="reset"></p>
</form>

så gjorde jag.
då när jag testar att söka, så blir det bara en blank sida.
och search.asp innehåller den koden som Fredde skrev först, fast jag ändrade till dubbel.

Fredde har ett smärre fel i sin kod, som gjorde att ingenting visades.

Dim Connect, DSNtemp
Set Connect = Server.CreateObject("ADODB.Connection")
DSNtemp = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=/sökväg/till/databasen från rooten/"
Connect.Open(DSNtemp)

Dim sok_ord, Rs, SQL
sok_ord = Request.Form("sok_ord")

Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * from tabellnamn WHERE column LIKE '%" & sok_ord & "'"
Rs.Open SQL, Connect

If Rs.Eof Then
Response.Write "<strong>" & sok_ord & "</strong> kunde inte hittas!"
Else
[b]Do until Rs.Eof[/b]

Response.Write("" & Rs("column") & "<br />")

Rs.MoveNext
Loop

End If

Rs.Close
Set Rs = Nothing

Connect.Close
Set Connect = Nothing

Ah, nu funkar det.

Om du kollar på: http://user.domaindlx.com/aboox/db/index.htm

Sen testar att söka.
Jag skulle vilja att sökresultaten länkas till inläggen, så man kan klicka på namnet och läsa vad personen skrev. Ska man länka till ID:et då eller hur ska man göra?

Response.Write "<a href=""visningsSida.asp?id=" & Rs("ID") & """><%=rs("column")%></a>"

RED. Det ovanstående är givetvis fel. :o :r

Rätt lösning ser ut såhär:

Response.Write "<a href=""visningsSida.asp?id=" & Rs("ID") & """>" & rs("column") & "</a>"

Expected end of statement

/aboox/db/search.asp, line 20

Response.Write "<a href=""list.asp?id=" & Rs("ID") & """><%=rs("namn")

Nu får jag det inte att funka :|

RED. Det är ju jag som är puckad. Ursäkta min klumpighet. Såhär skall det vara:

Response.Write "<a href=""list.asp?id=" & Rs("ID") & """>" & rs("namn") & "</a>"

Det funkade bättre :)

fast nu blir det bara en blank sida istället.. igen

Då har du ändrat något i din kod, för när jag försökte så fick jag inte träffar på någonting, oavsett sökord.

testa med Magnus.
för det söker på namn i databasen, och Magnus är det enda namnet än så länge. :)

Testade med 'g' och det borde garanterat ge en träff, vilket det inte gör.

Kasta upp hela koden igen. :)

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("idelada.mdb") 

Dim sok_ord, Rs, SQL
sok_ord = Request.Form("sok_ord")

Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * from results WHERE namn LIKE '%" & sok_ord & "%'"

Rs.Open SQL, Connect

If Rs.Eof Then
Response.Write "<strong>" & sok_ord & "</strong> kunde inte hittas!"
Else
Do While Rs.Eof

Response.Write("" & Rs("Namn") & "<br />")
Response.Write "<a href=""list.asp?id=" & Rs("ID") & """>" & rs("namn") & "</a>"

Rs.MoveNext
Loop

End If

Rs.Close
Set Rs = Nothing

Connect.Close
Set Connect = Nothing
%>

There you go.
Nu såg jag att det var while istället för until.
hur det nu kunde ändra på sig igen :)

kan föresten lägga till att list.asp är sidan där inläggen hämtas från databasen.

Du bytte ju ut det jag rättade till ett par inlägg ovan. :D

Detta..

Do While Rs.Eof

..skall vara detta:

Do Until Rs.Eof

Jo, jag märkte det :)

Tack så jättemycket.
nu tror jag allt är lugnt.

ett misstag sker så lätt!!! :e

Vad fint att det funkar nu dig!!