Søgning med ASP i Access

Du kan bruge LIKE ..

keyword=\"mo\"
sql = \"SELECT * FROM mintabel WHERE etfelt LIKE \'%\" & keyword & \"%\' OR andetfelt LIKE \'%\" & keyword & \"%\'\"

osv.

oki feee jeg prøver lide :-)

Jeg lavede engang en simple funktion der opdelte den indtastede tekst i ord (check for dobbeltmellemrum) ... måske du kan bruge det til noget:

search.asp

strKeyword = Trim(Request.Form(\"Keyword\"))
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
strSearchType = Request.Form(\"searchtype\")

If strSearchType <> \"AND\" And strSearchType <> \"OR\" Then
  strSearchType = \"OR\"
End If
Dim s, sArray(), u, y

s = strKeyword

i = 0

While s <> \"\"
  y = InStr(1, s, \" \", 1)
  If y = 0 Then
    y = Len(s)+1
  End If
  If y > 1 Then
    ReDim Preserve sArray(u)
    sArray(u) = Left(s,y-1)
    u = u + 1
  End If
  s = Mid(s,y+1)
Wend

  strSQL = \"SELECT Produktnr, Kategori, Navn, Beskrivelse, Skuffenr, Rækkenr FROM Emner WHERE\"
  strSQL = strSQL & \" (Produktnr LIKE \'%\" & sArray(LBound(sArray)) & \"%\')\"

  For n = LBound(sArray)+1 To UBound(sArray)
    strSQL = strSQL & \" \" & strSearchType & \" (Produktnr LIKE \'%\" & sArray(n) & \"%\')\"
  Next

  strSQL = strSQL & \" OR (Kategori LIKE \'%\" & sArray(LBound(sArray)) & \"%\')\"

  For n = LBound(sArray)+1 To UBound(sArray)
    strSQL = strSQL & \" \" & strSearchType & \" (Kategori LIKE \'%\" & sArray(n) & \"%\')\"
  Next

  strSQL = strSQL & \" OR (Navn LIKE \'%\" & sArray(LBound(sArray)) & \"%\')\"

  For n = LBound(sArray)+1 To UBound(sArray)
    strSQL = strSQL & \" \" & strSearchType & \" (Navn LIKE \'%\" & sArray(n) & \"%\')\"
  Next

  strSQL = strSQL & \" OR (Beskrivelse LIKE \'%\" & sArray(LBound(sArray)) & \"%\')\"

  For n = LBound(sArray)+1 To UBound(sArray)
    strSQL = strSQL & \" \" & strSearchType & \" (Beskrivelse LIKE \'%\" & sArray(n) & \"%\')\"
  Next

  strSQL = strSQL & \" OR (Skuffenr LIKE \'%\" & sArray(LBound(sArray)) & \"%\')\"

  For n = LBound(sArray)+1 To UBound(sArray)
    strSQL = strSQL & \" \" & strSearchType & \" (Skuffenr LIKE \'%\" & sArray(n) & \"%\')\"
  Next

  strSQL = strSQL & \" OR (Rækkenr LIKE \'%\" & sArray(LBound(sArray)) & \"%\')\"

  For n = LBound(sArray)+1 To UBound(sArray)
    strSQL = strSQL & \" \" & strSearchType & \" (Rækkenr LIKE \'%\" & sArray(n) & \"%\')\"
  Next

Selve formen så sådan her ud (altså i en anden fil):

  Response.Write \"<FORM METHOD=\"\"POST\"\" ACTION=\"\"/SKP-CD-ROM/search.asp?expand=SKP-CD-ROM\"\" AUTOCOMPLETE=\"\"off\"\">\"
  Response.Write \"<FONT CLASS=\"\"menutext2\"\">&nbsp;&nbsp;&nbsp;</FONT><INPUT TYPE=\"\"text\"\" NAME=\"\"Keyword\"\" SIZE=\"\"22\"\" VALUE=\"\"\" & Request.Form(\"Keyword\") & \"\"\">\"
  Response.Write \"<FONT CLASS=\"\"menutext2\"\">&nbsp;</FONT><INPUT TYPE=\"\"submit\"\" VALUE=\"\"Søg\"\" NAME=\"\"Action\"\"><BR>\"

  If Request.Form(\"searchtype\") = \"AND\" Then
    Response.Write \"<FONT CLASS=\"\"menutext2\"\">&nbsp;&nbsp;</FONT><INPUT TYPE=\"\"radio\"\" NAME=\"\"searchtype\"\" VALUE=\"\"AND\"\" CHECKED=\"\"checked\"\"><FONT CLASS=\"\"menutext2\"\"> Søgning på alle ord (og)</FONT><BR>\"
    Response.Write \"<FONT CLASS=\"\"menutext2\"\">&nbsp;&nbsp;</FONT><INPUT TYPE=\"\"radio\"\" NAME=\"\"searchtype\"\" VALUE=\"\"OR\"\"><FONT CLASS=\"\"menutext2\"\"> Søgning på nogen ord (eller)</FONT>\"
  Else
    Response.Write \"<FONT CLASS=\"\"menutext2\"\">&nbsp;&nbsp;</FONT><INPUT TYPE=\"\"radio\"\" NAME=\"\"searchtype\"\" VALUE=\"\"AND\"\"><FONT CLASS=\"\"menutext2\"\"> Søgning på alle ord (og)</FONT><BR>\"
    Response.Write \"<FONT CLASS=\"\"menutext2\"\">&nbsp;&nbsp;</FONT><INPUT TYPE=\"\"radio\"\" NAME=\"\"searchtype\"\" VALUE=\"\"OR\"\" CHECKED=\"\"checked\"\"><FONT CLASS=\"\"menutext2\"\"> Søgning på nogen ord (eller)</FONT>\"
  End If

  Response.Write \"</FORM>\"
Håber du kan bruge det til noget

Oki :-)

Kig på:
http://www.w3schools.com/sql/sql_select.asp
http://www.w3schools.com/sql/sql_where.asp
http://www.w3schools.com/sql/sql_and_or.asp

Og kig så på dette:

http://groups.google.com/groups?hl=da&safe=off&th=623017f11aad0cf8,4&seekm=9f8o3o%241gg%241%40sunsite.dk#p

torbenmelander:> det var godtnok en masse ... ehm .. overkill bare for en fritekst søgning ..

tdaugaard -> tja, jeg læste måske ikke spørgsmålet så grundigt ... tænkte bare at han måske gerne ville ha\' lidt for pointne ..

tdaugaard ->
nu har jeg lavet denne sql sætning men det virker ikke, gider du ikke lige se om der er fejl:-)

(asp newbie = mobo)

sql = \"SELECT * FROM video WHERE videonummer LIKE \'%\" & Request.form(\"sog\") & \"%\' OR filmtitle LIKE \'%\" & Request.form(\"sog\") & \"%\' OR instruktor LIKE \'%\" & Request.form(\"sog\") & \"%\' OR udgivelsesaar LIKE \'%\" & Request.form(\"sog\") & \"%\' OR laengde LIKE \'%\" & Request.form(\"sog\") & \"%\' OR imdb LIKE \'%\" & Request.form(\"sog\") & \"%\' OR nationalitet LIKE \'%\" & Request.form(\"sog\") & \"%\'\"

Umiddelbart ser det rigtigt ud, har du lavet forbindelse til databasen osv. (newbie, hved du hvordan?)

hehe ja jeg har lavet for bindelse til DB, jeg prøver lige forfra..

Fejlen jeg for er:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Invalid SQL statement; expected \'DELETE\', \'INSERT\', \'PROCEDURE\', \'SELECT\', or \'UPDATE\'.

mo-bo:> hvilken fejl får du ?

Må vi se hele din kode?

ellers kan du prøve at bruge paratesser, ligesom i mit eksmepel

mo-bo:> lad os se hele dit script, hvis ikke det er flere tusinde linier langt ;o)

torbenmelander:> hjælper nada når du OR\'er hele vejen ..

yup øje jeg skal lige lave det om da jeg bruge inc. filer....øje

tdaugaard - >hjælper nada når du OR\'er hele vejen ..  ?????

torbenmelander:> Paranteser bruges når du laver f.eks.:

WHERE (noget OR andet) AND (nogetmere OR whatever)

dvs., hvis enten \"noget\" eller \"andet\" er sandt og enten \"nogetmere\" eller \"whatever\" er sandt, så vil den være sand.

WHERE noget OR andet OR else

hvor ville du sætte paranteser her ?

<% @Language=JavaScript %>


<%



//danner et ConnectionObject
conn=Server.CreateObject(\"ADODB.Connection\");

//Åbner dataforbindelse, og laver en forbindelse mellem databasen og ConnectionObjektet\'
//(DSN less adgang - DSN = Data Source Name)
conn_string=\"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"+Server.mapPath(\"db/video.mdb\");
conn.Open(conn_string);

//danner sql-strengen
sql = \"SELECT * FROM video WHERE videonummer LIKE \'%\" & Request.form(\"sog\") & \"%\' OR filmtitle LIKE \'%\" & Request.form(\"sog\") & \"%\' OR instruktor LIKE \'%\" & Request.form(\"sog\") & \"%\' OR udgivelsesaar LIKE \'%\" & Request.form(\"sog\") & \"%\' OR laengde LIKE \'%\" & Request.form(\"sog\") & \"%\' OR imdb LIKE \'%\" & Request.form(\"sog\") & \"%\' OR nationalitet LIKE \'%\" & Request.form(\"sog\") & \"%\'\"

//åbner Recordsettet-Objekt til Connection_Objektet, og lægger resultatet af SQL-søgningen i //Recordsættet\'
rs=conn.execute(sql);


%>

<html><body>

<%Response.Write(\"<table>\");
while(!rs.EOF)

        {



        %>

    <tr><td width=\"11\" height=\"20\"></td><td valign=\"top\"><%=rs(\"filmtitle\")%></td></tr>
   

   
   
<%rs.moveNext();
        }%>

</table></body></html>   

<%
conn.Close();
conn=null;
%>

hmm .. det kan være f.eks. \"videonummer\" er et talfelt måske ?

<% @Language=JavaScript %>

JavaScript ? Mener du ikke JScript ?

kan man det i ASP:

while(!rs.EOF) ???

niks javascript ,  er det der for????

ja det kan man godt det har jeg brugt på mange andre Asp sider

såvidt jeg kan se hedder det JavaScript og ikke JScript

JScript er microsofts udgave af Javascript, der er ligemeget om man skriver det ene eller det andet i ASP sammenhæng da den parser det ens.

Prøv at bygge din SQL sætning op og først forsøge med f.eks:

sql = \"SELECT * FROM video WHERE videonummer LIKE \'%\" & Request.form(\"sog\") & \"%\'\"

Og derefter sætte et felt mere på osv. videre. Det skyldes sikkert at mange af felterne er af en type der er knap så begejstret for LIKE

torbenmelander:> du er vist heller ik helt stiv i det !?

VBScript og JScript er de to sprog der er understøttet af ASP.

JScript: while(!rs.EOF)
VBScript: while not rs.eof

næ, eller også er jeg bare stiv!!!

men jeg gik lige ind i IIS og tjekke hvad der var af muligheder og der stod Javascript og ikke JScript ... men jeg vidste ikke at man i java bare skrev while(!rs.EOF) så nu har jeg da også lært noget nyt

hva\' var fejlen ???

torbenmelander:> *hmm* IIS siger JSCript til mig ... Java og JavaScript/JScript er langt fra det samme.

så er det måske også derfor at man afslutter hver sætning med ; lige som i delphi ... interessant!!

ups sorry, javascript .. jeg ved godt det ikke er det samme

Hovedsagen er at jeg ikke tror at det er sætningen <% @Language=JavaScript %> der udgør fejlen.

torbenmelander:> koorrekt :o)

nu ved jeg absolut ingenting om javascript, men skal denne sætning ikke sluttes med et semikolon også:

<%=rs(\"filmtitle\")%>

ellers må mo-bo jo lige fortælle hvad fejlen er..

torbenmelander:> det burde den .. i PHP skal sådan noget afsluttes med ; så jeg kunne forestille mig det også skulle i JScript/ASP

hehe nu har jeg lavet min sql sætning om:

sql=\"SELECT * FROM video \";
sql+=\"WHERE filmtitle LIKE \'%\" & Request.form(\"sog\") & \"%\'\";

Men nu skider den på min WHERE sætning, og lister alt i db\'en DOHHHHHHH!!!!

jamen hvad er fejlen ????

jamen den skal jo kun liste det der matcher Request.form(\"sog\")

Har du prøvet at erstatte & med + ?

sql = \"SELECT * FROM video WHERE videonummer LIKE \'%\" & Request.form(\"sog\") & \"%\' OR filmtitle LIKE \'%\" & Request.form(\"sog\") & \"%\' OR instruktor LIKE \'%\" & Request.form(\"sog\") & \"%\' OR udgivelsesaar LIKE \'%\" & Request.form(\"sog\") & \"%\' OR laengde LIKE \'%\" & Request.form(\"sog\") & \"%\' OR imdb LIKE \'%\" & Request.form(\"sog\") & \"%\' OR nationalitet LIKE \'%\" & Request.form(\"sog\") & \"%\'\"

skal den ikke afsluttes med ;

hvordan laver man en string i javascript, ligesom dim strNavn
strNavn = \"EtEllerAndet\"

feks. strNavn = Request.form(\"sog\")

har du fået det du vil ha ?

ligemeget fandt ud af det ... + gør det !!!

Håber ikke du hader mig alt for meget for min uvidenhed omkring javascript, tdaugaard ;-)

torbenmelander:> *GG* narj narj .. slet ikke :-)

niks kan ikke få det til at virke, kan jeg ikke sende det til en af jer, så i kan kigge på det??????

torben > *lol* blev også sur på dig ;o)

mo-bo > hvis du mener sådan en ligeosm denne her, så kan jeg sende dig eks. så kan du ændre på den :o) http://www.web-zone.dk/eksperten/search.htm

godt godt :-)

selv om manden ikke kan få det til at virke .. hans eksmepel virker fint for mig hvis man bruger plusser i stedet for ...

mo-bo:> jeg kan intet JScript :-(

moviez -> ja lige præsis email Morten@bork.dk

TAK

mo-bo:> har du prøvet at bruge + istedet for & i din SQL sætning ?

moviez:> det der er jo bare en HTML side der poster til en ASP side ..

andrer der vil ha den ?

tdaugaard > jeg ved ik hvad han vil ha, men jeg tror nok han vil bruge min :o)

http://www.web-zone.dk/eksperten/search.zip

så snart jeg får pointene, kan jeg skifte bruger :o) *lol*

kunne det tænkes at Request.form(\"sog\") er lig med ingenting da det ville retunere alle data ..

moviez:> send den da gerne til e@tdaugaard.dk ..

lige enting jeg har taget hentet den fra www.activeserverpages.dk

husker du at submitte din form, lav et kode ligesom det her, tdaugaard vil sikkert lave det om til java script:

If Request.form(\"sog\") <> \"\" Then
  strKeyword = Request.form(\"sog\")
Else
  Response.Write \"Intet søgeord - viser alle data\"
End If

og brug så strKeyword i stedet for Request.form(\"sog\") i sql-sætningen ...

WEEEE har fået det til at virke med + istedet for & - i er for seje drenge:-)

Hvem skal nu have points????

tdaugaard  =  200 points
torbenmelander  = 50 points
moviez    =      50 Points

Håber at ingen føler sig snydt.

Jeg takker endnu engang.
Mobo

mo-bo > 50 point ;(

jeg skal lige have MOVIEZ til at give et svar

hvad med:

tdaugaard  =  150 points
torbenmelander  = 50 points
moviez    =      100 Points

håber tdaugaard ik har noget imod det :o)

sorry men du for 50 points for at sende en mail, som jeg ikke skal bruge alligevel.  Håber det er til at forstå.

mo-bo:> hvad har moviez bidraget med ? Jeg foreslog + frem for & for lang tid siden :o)

mo-bo > jeg har ik sendt nogen mail ;o)

tdaugaard > ok bare tage alle pointene hvis det er det du er tilfreds med *g*

Tak for det.........

Lige her:

Kommentar fra tdaugaard 
22/07 2001 21:32:28    Har du prøvet at erstatte & med + ? 

så jeg synes IKKE moviez skal have nogle point, men du bestemmer.
moviez:> du har ikke bidraget med noget!

tdaugaard > ok så smutter jeg igen...jeg prøvede bare at hjælp :(

moviez:> jeg vil råde dig til at oprette et spm. på 50 point til enten mig eller torbenmelander. Du har INTET bidraget med og har ikke fortjent de 50 point!

http://www.eksperten.dk/spm/91333

narj det vil jeg også sige det fandme for dårligt, at du ikke har sendt den mail til mig.....

mo-bo > hvilken mail snakker du om ??

hvis du snakker om scripten, så kan du download den her :

http://www.web-zone.dk/eksperten/search.zip

tag du dem tdaugaard, jeg bidrog mest med en masse kommentarer og så et lille eksmetel på søgning med flere ord ..

torbenmelander:> Tak :-)

Og til mo-bo, er glad for at kunne hjælpe :-)

tdaugaard -> nice to doing buisness with you, he he

tdaugaard > what abot me...ingen tak for at aflevere pointene tilbage *Ss*

abot = about ;o)