Om inte en är vald?

Har du någon kod?

OveRRidE skrev:

Har du någon kod?

strSQL = "SELECT * FROM table WHERE c = '"& Request.Form("c") &"' AND f = '"& Request.Form("f") &"' AND m = '"& Request.Form("m") &"'

/red. Använd [kod]-taggen istället för [php]. //OveRRidE

Utan någon egentlig tanke på att göra någon slags itererande lösning så kan man ju göra såhär:

strSQL = "SELECT * FROM table WHERE 1 = 1"

If Len(Request.Form("c"))>0 Then
   strSQL = strSQL & " AND c = '" & SafeParam(Request.Form("c")) & "'"
End If
If Len(Request.Form("f"))>0 Then
   strSQL = strSQL & " AND f = '" & SafeParam(Request.Form("f")) & "'"
End If
If Len(Request.Form("m"))>0 Then
   strSQL = strSQL & " AND m = '" & SafeParam(Request.Form("m")) & "'"
End If

function SafeParam(str)
   SafeParam = Replace(str, "'","''")
   'some more safe code here..
end function

Jag la till en funktion för att hindra enkla SQL injections - men den kan behöva utökas, beroende på din databastyp. Glöm aldrig att alltid tvätta indata som du skall använda i SQL-strängar.

Jag förutsatte att om alla är tomma så skall allt hämtas, är detta korrekt? Därav "1 = 1" (true) i SQL'en. Vill du ha det tvärtom, sätt "1 = 0" (false).

Underbart! tack så mycket!
Jag får dock ett problem, c är number och tidigare har ja kört såhär

AND c = " & CInt(Request.Form("c")) & "

Och nu får jag felmeddelande på c, men alla andra funkar perfekt!
Tack så ymcket

Om c är ett tal så skall det ju vara som du skriver. Men ditt exempel visar ju tydligt att c är en sträng (c=e)

If Len(Request.Form("c"))>0 Then
   strSQL = strSQL & " AND c = " & CLng(Request.Form("c"))
End If

voigtann1 skrev:

Om c är ett tal så skall det ju vara som du skriver. Men ditt exempel visar ju tydligt att c är en sträng (c=e)

If Len(Request.Form("c"))>0 Then
   strSQL = strSQL & " AND c = " & CLng(Request.Form("c"))
End If

Fantastiskt!
Tackar.

Jag la ett till värde och får nu ett nytt fel.

If Len(Request.Form("y"))>0 Then
   strSQL = strSQL & " AND y = " & CLng(Request.Form("y"))
End If
If Len(Request.Form("a"))>0 Then
   strSQL = strSQL & " AND a= " & CLng(Request.Form("a"))
End If
If Len(Request.Form("f"))>0 Then
   strSQL = strSQL & " AND f = '" & SafeParam(Request.Form("f")) & "'"
End If
If Len(Request.Form("m"))>0 Then
   strSQL = strSQL & " AND m = '" & SafeParam(Request.Form("m")) & "'"
End If

ger Type mismatch: 'CLng'

Vad innehåller (vilken det nu är som krashar för dig) för värde? Om det nu är a och i ditt exempel så är a Stockholm, sist jag tittade så är Stockholm inte ett nummer ;)

Du får byta ut det mot en sträng

Självklart, tack.

En sista fråga, hur sorterar man mellan två priser.
Jag har försökt såhär:

WHERE price BETWEEN '"& Request.Form("fromprice") &"' AND '"& Request.Form("toprice") &"'

men får felet
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

tack

Är Price en sträng?
Tror det skall vara:

...WHERE price BETWEEN " & Request.Form("fromprice") & " AND "& Request.Form("toprice") &" ...

price finns i en databas, om jag ska skriva ut price så skriver jag. <%=RecSet("price")%>

Men det är inte det jag frågade. Vad är det för datatyp? Är det av typen String/varchar? Eller är det ett tal?

price är number.

Då skall du inte ha ' som jag skrev i inlägg #1445222

Jag har lite svårigheter att lägga in en ORDER BY här.
Hur gör man?

Visa den kod du använder och beskriv på vilket sätt du inte får det att lira.

Det är samma kod som ovan.

If Len(Request.Form("y"))>0 Then
   strSQL = strSQL & " AND y = " & CLng(Request.Form("y"))
End If
If Len(Request.Form("a"))>0 Then
   strSQL = strSQL & " AND a= " & CLng(Request.Form("a"))
End If
If Len(Request.Form("f"))>0 Then
   strSQL = strSQL & " AND f = '" & SafeParam(Request.Form("f")) & "'"
End If
If Len(Request.Form("m"))>0 Then
   strSQL = strSQL & " AND m = '" & SafeParam(Request.Form("m")) & "'"
End If

Jag förstår inte vart jag kan få in ORDER BY.

I slutet?
ex:

   strSQL = strSQL & " AND y = " & CLng(Request.Form("y")) &" ORDER BY kolumn DESC)

ex2:

 strSQL = strSQL & " AND m = '" & SafeParam(Request.Form("m")) & "' ORDER BY kolumn DESC"

/r: Ehm, den gick iväg lite fort där... :r

Order by ska vara sist.

strSQL = strSQL & " ORDER BY nått"