avanceret SQL søgning

Du må definiere hvad brugeren vil søge efter. Det kan gøres i f ex en dropdown box. Ellers skal du have en masse OR.
SELECT * FROM tabel WHERE fornavn LIKE '%søgeterm%' OR efternavn LIKE....osv

Jeg holder på LIKE'en, men man skal lige tage højde for at folk ikke nødvendigvis udfylder alle felter.

Havde det været en opgave i PHP havde den været nem, men i ASP er den altså en smule mere besværlig:


sql = "SELECT * FROM dinTabel"

wherePart = ""

Sub AddToWhere(key)
    value = "" & Request.Form(key)

    If value <> "" Then
        If wherePart <> "" Then wherePart = wherePart & " OR "
        wherePart = " " & key & " LIKE '%" & value & "%'"
    End If
End Sub

AddToWhere("firstname")
AddToWhere("lastname")
AddToWhere("adresse")
AddToWhere("postnr")
AddToWhere("country")
' AddToWhere("adresse") - er du klar over at du har to felter som hedder "adresse" i din form?

If wherePart <> "" Then    sql = " WHERE " & wherePart

sql = sql & " ORDER BY lastname, forstname"

Response.Write "DEBUG: " & sql

Selvf. skal det være like ;o) Tænkte mere på at det skulle være de enkelte felter der skulle i dropdownen.
SELECT * FROM tabel WHERE &"dd-value"& LIKE '%søgeterm%'

Så blev det forkert &" -> "&
Men i forstår sikkert ;o)

Michael, som nielle siger er det ikke sikkert alle felter er fyldt ud
Og højst sandsynligt at de sikker kun søger på 1 ting.

Nielle kan du lave opgave i PHP også ?...

Jeg prøver lige at sætte det på og kigge på det i eftermiddag :)

Samme kode i PHP:

$sql = "SELECT * FROM dinTabel"

$wherePartArr = array();

function AddToWhere($key)
{
    if (isset($_POST[$key]) && trim($_POST[$key]) != "")
        $wherePartArr[] = "'%" . trim($_POST[$key]) . "%'";
}

$wherePart = implode(" OR ");
if ($wherePart != "")
    $wherePart = " WHERE $wherePart";

AddToWhere("firstname")
AddToWhere("lastname")
AddToWhere("adresse")
AddToWhere("postnr")
AddToWhere("country")
' AddToWhere("adresse") - er du klar over at du har to felter som hedder "adresse" i din form?

sql = $sql . $wherePart;

sql = sql . " ORDER BY lastname, forstname"

echo "DEBUG: " . sql

Fangede et par fejl (ok, en hel del):

$sql = "SELECT * FROM dinTabel";

$wherePartArr = array();

function AddToWhere($key)
{
    if (isset($_POST[$key]) && trim($_POST[$key]) != "")
        $wherePartArr[] = $key . " LIKE '%" . trim($_POST[$key]) . "%'";
}

AddToWhere("firstname")
AddToWhere("lastname")
AddToWhere("adresse")
AddToWhere("postnr")
AddToWhere("country")
' AddToWhere("adresse") - er du klar over at du har to felter som hedder "adresse" i din form?

$wherePart = implode(" OR ", $wherePartArr);
if ($wherePart != "")
    $wherePart = " WHERE $wherePart";

$sql .= $wherePart;
$sql .= " ORDER BY lastname, forstname";

echo "DEBUG: $sql";

Okey takker :)

Ja der var lidt i den første ;) ... Kigger på det :)

Har lidt problemer med det ... Kan i se jer ud af det?

<FORM METHOD="POST" ACTION="default_search.asp?search=search">
<table width="150" border="1" cellspacing="2" cellpadding="0">
    <tr>
        <td>Fornavn:</td>
        <td><input type="text" value="" name="firstname"/></td>
    </tr>
    <tr>
        <td>Efternavn:</td>
        <td><input type="text" value="" name="lastname"/></td>
    </tr>
    <tr>
        <td>Adresse:</td>
        <td><input type="text" value="" name="adresse"/></td>
    </tr>
    <tr>
        <td>By:</td>
        <td><input type="text" value="" name="city"/></td>
    </tr>
    <tr>
        <td>Postnr:</td>
        <td><input type="text" value="" name="postnr"/></td>
    </tr>
    <tr>
        <td>Land:</td>
        <td><input type="text" value="" name="country"/></td>
    </tr>
    <tr>
        <td>Medlemsnummer:</td>
        <td><input type="text" value="" name="medlemsnr"/></td>
    </tr>
    <tr>
        <td></td>
        <td><input type="submit" name="Submit"></td>
    </tr>
</table>
</form>

<%
If Request.Querystring("search") <> "" then
sql = "SELECT * FROM medlemmer"

wherePart = ""

Sub AddToWhere(key)
    value = "" & Request.Form(key)

    If value <> "" Then
        If wherePart <> "" Then wherePart = wherePart & " OR "
        wherePart = " " & key & " LIKE '%" & value & "%'"
    End If
End Sub

AddToWhere("fornavn")
AddToWhere("efternavn")
AddToWhere("adresse1")
AddToWhere("bynavn")
AddToWhere("postnr")
AddToWhere("country")
AddToWhere("medlemnr")

If wherePart <> "" Then    sql = " WHERE godkendt = 1 AND " & wherePart
sql = sql & " ORDER BY efternavn, fornavn"

Response.Write "DEBUG: " & sql

End if

%>

Kaldene til AddToWhere(...) skal stemme overens med hvad felterne hedder i din formular.

Arrh okey, men hvordan er jeg så sikker på de rammer dem i tabellen ?

Skal de være ens i tabellen og formlerne ?

Såå tror jeg at jeg fik fat i det ...

Vi kan sagtens lave en løsning hvor de kan hedde et navn i dine forms og et andet navn i din database-tabel

Men er der nogen speciel gurnd til at du ønsker at det skal være forskellige navne de to stedet?

Nej slet ikke :)

Har du fået det til at fungere?

Hej Nielle...
Ja det fungere nogenlunde...

Dog driller det hvis jeg sætter flere AND ind :S
If wherePart <> "" Then sql = sql & " WHERE medlemnr <> 0 AND medlemnr <> "" godkendt = 1 AND " & wherePart
sql = sql & " ORDER BY efternavn, fornavn"

Kommer til at blive:

SELECT * FROM medlemmer WHERE medlemnr <> 0 AND medlemnr <> " godkendt = 1 AND landekode LIKE '%DK%' ORDER BY efternavn, fornavn

Hjælper heller ikke hvis jeg sætter 2 "" mere ind:

If wherePart <> "" Then sql = sql & " WHERE medlemnr <> 0 AND medlemnr <> """" godkendt = 1 AND " & wherePart
sql = sql & " ORDER BY efternavn, fornavn"

Har fixet det :)

Kom med et svar ;)

Undskyld jeg var lidt for hurtig.

If Request.form("searchperson") <> "" then
sql = "SELECT * FROM medlemmer"

wherePart = ""

Sub AddToWhere(key)
    value = "" & Request.Form(key)

    If value <> "" Then
        If wherePart <> "" Then wherePart = wherePart & " OR "
        wherePart = " " & key & " LIKE '%" & value & "%'"
    End If
End Sub

AddToWhere("medlemnr")
AddToWhere("fornavn")
AddToWhere("efternavn")
AddToWhere("adresse1")
AddToWhere("bynavn")
AddToWhere("postnr")
AddToWhere("landekode")

If wherePart <> "" Then sql = sql & " WHERE status > 1 and godkendt = 1 and slettet <> 1 AND " & wherePart
sql = sql & " ORDER BY medlemnr, fornavn, efternavn"
    response.write sql
                    Set rs = conn.Execute(sql)
                        DO WHILE NOT rs.EOF
                       
                        %>
                       
                        <table border="0">
                            <tr>
                                <td><b>Medlems nr:</b> <%=rs("medlemnr")%></td>
                                <td><b>Navn:</b> <%=rs("fornavn")%>&nbsp;<%=rs("efternavn")%></td>
                                <td><b>Adresse:</b> <%=rs("adresse1")%></td>
                                <td><b>Postnr:</b> <%=rs("postnr")%></td>
                                <td><b>Land:</b> <%=rs("landekode")%></td>
                            </tr>
                        </table>
                        <%
                       
                        rs.MoveNext
                            Loop
                           
                        rs.close
End if

Den henter kun et kriterie ud ??
SELECT * FROM medlemmer WHERE status > 1 and godkendt = 1 and slettet <> 1 AND postnr LIKE '%5000%' ORDER BY medlemnr, fornavn, efternavn

Og jeg søgte på postnr = 5000 og efternavn = Jensen

Min fejl. Jeg har rettet fejlen, som var i AddToWhere() funktionen - prøv selv at finde den.

Desuden har jeg formateret din kode på en ensartet måde. Det gør underværker for læsevenligheden, og gør det dermed nemmere at undgå fejl, samt at vedligeholde koden sidenhen:

Sub AddToWhere(key)
    value = "" & Request.Form(key)

    If value <> "" Then
        If wherePart <> "" Then wherePart = wherePart & " OR "
        wherePart = wherePart & " " & key & " LIKE '%" & value & "%'"
    End If
End Sub

If Request.Form("searchperson") <> "" Then
    sql = "SELECT * FROM medlemmer"

    wherePart = ""
    AddToWhere("medlemnr")
    AddToWhere("fornavn")
    AddToWhere("efternavn")
    AddToWhere("adresse1")
    AddToWhere("bynavn")
    AddToWhere("postnr")
    AddToWhere("landekode")

    If wherePart <> "" Then sql = sql & " WHERE status > 1 AND godkendt = 1 AND slettet <> 1 AND " & wherePart
sql = sql & " ORDER BY medlemnr, fornavn, efternavn"
    Response.Write sql

    Set rs = Conn.Execute(sql)
   
    Do While Not rs.EOF
%>

    <table border="0">
        <tr>
            <td><b>Medlems nr:</b> <%=rs("medlemnr")%></td>
            <td><b>Navn:</b> <%=rs("fornavn")%>&nbsp;<%=rs("efternavn")%></td>
            <td><b>Adresse:</b> <%=rs("adresse1")%></td>
            <td><b>Postnr:</b> <%=rs("postnr")%></td>
            <td><b>Land:</b> <%=rs("landekode")%></td>
        </tr>
    </table>
<%
        rs.MoveNext
    Loop

    rs.close
    Set rs = Nothing
End If

Arrh flyttet AddToWhere funktionen.

Tusind tak ..

Nej det er ikke kun det ... og flytningen er mere af kosmetisk natur. Fejlen var noget helt andet.

Gammel version:

Sub AddToWhere(key)
    value = "" & Request.Form(key)

    If value <> "" Then
        If wherePart <> "" Then wherePart = wherePart & " OR "
        wherePart = " " & key & " LIKE '%" & value & "%'"
    End If
End Sub

Rettet version:

Sub AddToWhere(key)
    value = "" & Request.Form(key)

    If value <> "" Then
        If wherePart <> "" Then wherePart = wherePart & " OR "
        wherePart = wherePart & " " & key & " LIKE '%" & value & "%'"
    End If
End Sub


... og et svar :^)

Arrh du henter den ind i variablen igen :)

Funktionen AddToWhere() lægger et led til wherePart for hvert felt (key) som er udfyldt.

I den fejlflydte version stod der:

wherePart = " " & key & " LIKE '%" & value & "%'"

- hvilket vil sige at wherePart blev overskrevet med det man nu fandt for den aktuelle værid.

I den rettet version:

wherePart = wherePart & " " & key & " LIKE '%" & value & "%'"

- bliver værdien lagt til i enden af wherePart.

Det der gik galt var altså at man aldrig ville få andet end den *sidste* af værdierne. De andre blev simpethen "smidt væk" undervejs.