Søg fra Access database

Sådan her :

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN

SQL = "Select cd, nr, titel, artist FROM tabelnavn"
Set rs = Conn.Execute(SQL)

If Not(rs.bof or rs.EOF) Then
Do while not rs.eof%>
<li><%=rs("nr")%>. <%=rs("artist")%> - <%=rs("cd")%> - <%=rs("nr")%> </li>
<%rs.movenext
loop
End If

Conn.Close
Set Conn = NOthing
%>

Og så kig her.

http://www.html.dk  <-- under asp tutorial.

Nej nej... ikke allesammen... bare dem man søger på...

Ex. jeg søger "Jesus" (eller så'n noget)
så gider den mig res. tilbage hvor Jesus enten er cd,nr,titel eller artist...

http://activedeveloper.dk/aspdigital/kapitel2/search.asp

Så laver du bare sådan en her :

<%
'søgefelt i formularen hedder search.

If Request.Form("search") <> "" Then

ord = Request.Form("search")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN

SQL = "Select cd, nr, titel, artist FROM tabelnavn WHERE cd LIKE '"& ord &"' OR nr LIKE '"& ord &"' OR artist LIKE '"& ord &"' or titel LIKE '"& ord &"'"
Set rs = Conn.Execute(SQL)

If Not(rs.bof or rs.EOF) Then
Do while not rs.eof%>
<li><%=rs("nr")%>. <%=rs("artist")%> - <%=rs("cd")%> - <%=rs("nr")%> </li>
<%rs.movenext
loop
End If

Conn.Close
Set Conn = NOthing
End If
%>

Også kan du så selv sætte diverse wildvards ind (% og  *)

ex. titel LIKE '%"& ord &"' OR titel LIKE '"& ord &"%'

Det virker sQ ikke... får bare en blank side...

har du fulgt den tutorial jeg gav link til?

kom med lidt kode eller en henvisning til hvor vi kan se det i funktion - ellers er det liiidt svært at hjælpe...

Jeg har prøvet, men kan ikke få det til at virke...
Jeg har

karaoke.asp med søgefelt = search
karadata.asp ... som jeg ikke helt kan få til at virke...
Enten får jeg fejlmeldinger eller blank side...

jamen så kom nu med lidt mere info! det er umuligt at hjælpe med noget når vi bare får at vide "det virker ikke"...

kom med noget kode - kom med en henvisning til hvor vi kan teste det - eller kom med fejlbeskrivelsen

Okay... www.fy-bi.dk  -> Karaoké.

Koden i karadata.asp

<%@LANGUAGE="VBSCRIPT"%>

<%
'søgefelt i formularen hedder search.

If Request.Form("search") <> "" Then

ord = Request.Form("search")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

SQL = "Select cd, nr, titel, artist FROM Karaoke WHERE cd LIKE '"& ord &"' OR nr LIKE '"& ord &"'

OR artist LIKE '"& ord &"' or titel LIKE '"& ord &"'"
Set rs = Conn.Execute(SQL)

If Not(rs.bof or rs.EOF) Then
Do while not rs.eof%>
<li><%=rs("nr")%>. <%=rs("artist")%> - <%=rs("cd")%> - <%=rs("nr")%> </li>
<%rs.movenext
loop
End If

Conn.Close
Set Conn = NOthing
End If
%>

erhm... mads1979 = zipper20 ????

Nope... min kollega...

Kan I se vad jeg skal gøre ???

din kollega? og så overtager du bare hans spørgsmål? virker mig nu lidt suspekt - husk at man ikke må have dobbeltbrugere!

Grunden til at siden er tom er at søgeresultatet er tomt - fejlen du/i snakker om kan jeg ikke få frem...

men du/i har ikke brugt tutorial'en særligt godt. For at få noget reel effekt ud af at benytte LIKE i en sql så er det en god idé at lave det som en wildcard søgning - dvs der skal benytte procent-tegn i sql;

SQL = "SELECT * FROM tabel WHERE kolonne LIKE '%" & ord & "%' or andenkolonne LIKE '%" & ord & "%'"

så det er det første der skal ændres... den fejl der opstår - hvad står der i den?

På en skala fra 1 til 10, så ca. 11 Hallo ??

jeg tror ikke man får særlig meget ud af den tone...

Søgeresultatet burde ikke være tomt. Vi har over 800 numre i databasen... jeg kan godt se logikken i scriptet men ikke at det ikke virker...

prøv nu engang først og fremmest at lav den ændring jeg siger... og fortæl mig samtidig hvad i søger på når der meldes fejl og hvilken fejl der meldes...

Jeg har ændret det...
Jeg søger bare efter "the" ex. men siden er helt blank... ingen fejlmeldinger ... men heller ingen søgeresultater...

ok - så kom med koden som den ser ud nu

Det er karadata.asp

<%@LANGUAGE="VBSCRIPT"%>

<%
If Request.Form("search") <> "" Then

ord = Request.Form("search")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

SQL = "SELECT * FROM Karaoke WHERE titel LIKE '%" & ord & "%' or artist LIKE '%" & ord & "%'"

Set rs = Conn.Execute(SQL)

If Not(rs.bof or rs.EOF) Then
Do while not rs.eof%>
<li><%=rs("nr")%>. <%=rs("artist")%> - <%=rs("cd")%> - <%=rs("nr")%> </li>
<%rs.movenext
loop
End If

Conn.Close
Set Conn = NOthing
End If
%>

prøv dette;

<%@LANGUAGE="VBSCRIPT"%>

<%
If Request.Form("search") <> "" Then

response.write "kan du se dette?"

ord = Request.Form("search")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

SQL = "SELECT * FROM Karaoke WHERE titel LIKE '%" & ord & "%' or artist LIKE '%" & ord & "%'"

Set rs = Conn.Execute(SQL)

If Not(rs.bof or rs.EOF) Then
Do while not rs.eof
response.write "der blev fundet resultater i søgningen"
%>
<li><%=rs("nr")%>. <%=rs("artist")%> - <%=rs("cd")%> - <%=rs("nr")%> </li>
<%rs.movenext
loop
else
response.write "der blev ikke fundet noget"
End If

Conn.Close
Set Conn = NOthing
End If
%>

og fortæl mig hvad der så står

Det er det samme... en blank side...

og nu kan jeg se hvorfor - det har absolut intet med asp at gøre men ganske almindeligt html... du/i kan ikke benytte request.form når i sender formen vha method="get"

enten skal method="post" eller også skal der bruges request.querystring

Ikke helt

kan du se dette?
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xca0 Thread 0xcc0 DBC 0xb290044 Jet'.

/karadata.asp, line 12

nu er method jo også ændret - det er jo ligesom det der skal skabe grundlaget for i det hele taget at komme videre!

ovenstående fejl kunne tyde på at databasen ikke kan findes - altså at der henvises forkert til den

Okay... jeg har en connect.asp fil som i hvert fald virker... bruger den andre steder på siden. Kan jeg ikke bare smide den ind et eller andet sted ? (include)

det kommer helt an på hvordan siden er sat sammen...

ligger asp-filen (karadata.asp) i samme mappe som databasen?

Nej...
site->
- db    (access)
- www  (asp / html)

så kan du heller ikke benytte Server.MapPath("database.mdb") - her skal du henvise rigtigt

Server.MapPath("../db/database.mdb")

Mange tak... nu er den der...

np

og pas lige på en anden gang - du/i kan meget let ligne én og samme bruger...