[ASP/ACCESS] Geavanceerd zoeken - Softwareontwikkeling

donderdag 9 januari 2003 12:46

Acties:

Topicstarter

Ik ben bezig met een zoek formulier die meerdere velden bevat.

De data van een aantal velden moeten uit verschillende tabellen worden gehaald.

Het probleem is dus dat ik er niet uit kom.

Wat is de beste manier om de data uit de database te halen?

Ik heb het al geprobeerd met IF statements.

ASP:

Set rssearch = Server.CreateObject("ADODB.Recordset")

if strsearch <> "" Then
strSql = strSql + "AND A_TITLE like '%" & strsearch & "%'"
Else
End If 

if subid <> "" then
strSql = "SELECT * FROM T_ADDS WHERE SUB_ID = " & Rubriek
Else
end if

Set rssearch = My_Conn.Execute(strSql)

en dan de inhoud van rssearch op het scherm gooien.

of

ASP:

 
Set rssearch = Server.CreateObject("ADODB.Recordset")

strSql = "SELECT * FROM T_ADDS WHERE SUB_ID = " & Rubriek & "

If strtype <> "" then
strSql = strSql + "AND SUB_ID = " & Rubriek
End If

Set rssearch = My_Conn.Execute(strSql)

Bij dit voorbeeld krijg ik dus problemen wanneer er meerdere IF statements toevoegd worden.

Misschien dat iemand een kort opzetje kan posten of een link naar meer informatie.
Ik vraag niet naar complete code maar dat ik gewoon een beetje opweg geholpen word.

Specs

donderdag 9 januari 2003 16:11

Acties:

Verwijderd

Begin eens met aangeven welke tabellen je hebt, hoe die tabellen aan elkaar te knopen zijn en wat je op het scherm wilt laten zien.

donderdag 9 januari 2003 18:05

Acties:

DeverauX

Focus is everything

Het is ook mij niet helemaal duidelijk wat je nou precies bedoeld.
Kan echter wel zien dat je voorwaardelijke statements nog niet helemaal onder de knie hebt:
http://www.aspnl.com/aspnl/nl/lessen/asp/aspflowcontrol.asp

SQL Like statement:
http://www.sqlcourse2.com/select2.html

Veel succes

...whatever was distasteful or unpleasant or uncomfortable or painful - music could always soothe that.
All you have to do is reach out to beauty.
Quincy Jones

donderdag 9 januari 2003 19:16

Acties:

robjanssen

Software Developer

Volgens mij ben je met die IF statements wel op de goede weg.

donderdag 9 januari 2003 19:28

Acties:

UniCache2

niets

[ Voor 100% gewijzigd door UniCache2 op 09-01-2003 21:16 ]

donderdag 9 januari 2003 20:07

Acties:

Manual

Topicstarter

UniCache2 schreef op 09 januari 2003 @ 19:28:

offtopic:
.....

Hmm, ja weet ik. Nog niet echt goed beveiligd. Er moeten nog wat functions in om dat af te vangen.

Zou je je reply ff willen editten in niets??

Ik zal vanavond of morgen even het e.e.a. verduidelijken betreffende mijn vraag...

edit: ik heb mijn homepage al ff weg gehaald

[ Voor 7% gewijzigd door Manual op 09-01-2003 20:14 ]

Specs

vrijdag 10 januari 2003 16:08

Acties:

Manual

Topicstarter

Goed. Wat meer info

Het gaat dus om een advertentiesite die ik opnieuw gebouwd heb. De hele site is klaar alleen het zoekgedeelte nog niet.

Kijk maar eens op http://www.probetrading.com/classifieds/ (dat is een testomgeving)
Klik dan op 'zoeken' bovenin.

Eerst wordt dus vastgesteld in welke categorie men wil zoeken en vervolgens het zoekscherm.

De gegevens die ingevuld worden, worden verzonden naar de volgende pagina (die ik er ff uitgesloopt heb)

Daar moet dus een contructie komen dat er gecontrolleerd wordt of een veld data bevat. Zoja, dan voert hij een query uit en trekt de betreffende data uit de DB. Zoals jullie zien kunnen zijn er dus meerdere invulvelden.

Het probleem is dan ook op welke wijze ik die data verzamel en op het scherm gooi.

In mijn openingspost staan een 2-tal varianten die ik geprobeerd heb.

De advertentietabel ziet er als volgd uit:

ID
CAT_ID -> categorie id
SUB_ID -> sub-categorie id
A_USERID
A_TITLE -> advertentie kop
A_TYPE -> aangeboden/te huur/etc.
A_DESC -> de advertentie zelf
........... en de overige advertentie gegevens

Ik hoop dat het e.e.a. wat duidelijker is.

offtopic:
Enne UniCache2, deze site is wel beveiling tegen injection attacks en andere ongein

Mochten er lekken zijn dan hoor ik het wel

Specs

zaterdag 11 januari 2003 17:45

Acties:

Manual

Topicstarter

Schopje...

Niemand?

Specs

zondag 12 januari 2003 10:04

Acties:

robjanssen

Software Developer

Bekijk onderstaande code maar eens goed.
Ik hoop dat je er wat aan hebt.

ASP.NET Visual Basic:

<%@ Language=VBScript %>
<%
If Request.Form("action") = "post" Then
  PostZoeken
Else
  ShowZoeken
End If

Sub ShowZoeken
  Response.Write "<html>" & vbCrLf _
               & "<head>" & vbCrLf _
               & "<title>Zoeken</title>" & vbCrLf _
               & "</head>" & vbCrLf _
               & "<body>" & vbCrLf _
               & "<form name=""form"" action=""zoeken.asp"" method=""post"">" & vbCrLf _
               & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf _
               & "  <tr>" & vbCrLf _
               & "    <td colspan=""2""><b>Kies een subcategorie:</b></td>" & vbCrLf _
               & "  </tr>" & vbCrLf _
               & "  <tr>" & vbCrLf _
               & "    <td colspan=""2"">" & vbCrLf _
               & "      <select name=""subid"">" & vbCrLf _
               & "        <option value=""101"">Audio apparatuur</option>" & vbCrLf _
               & "        <option value=""102"">Video apparatuur</option>" & vbCrLf _
               & "        <option value=""103"">Televisie apparatuur</option>" & vbCrLf _
               & "      </select>" & vbCrLf _
               & "    </td>" & vbCrLf _
               & "  </tr>" & vbCrLf _
               & "  <tr>" & vbCrLf _
               & "    <td colspan=""2""><b>Kies het type advertentie:</b></td>" & vbCrLf _
               & "  </tr>" & vbCrLf _
               & "  <tr>" & vbCrLf _
               & "    <td colspan=""2"">" & vbCrLf _
               & "      <select name=""strtype"">" & vbCrLf _
               & "        <option value=""Aangeboden"">Aangeboden</option>" & vbCrLf _
               & "        <option value=""Gevraagd"">Gevraagd</option>" & vbCrLf _
               & "        <option value=""Te huur"">Te huur</option>" & vbCrLf _
               & "        <option value=""Te huur gevraagd"">Te huur gevraagd</option>" & vbCrLf _
               & "      </select>" & vbCrLf _
               & "    </td>" & vbCrLf _
               & "  </tr>" & vbCrLf _
               & "  <tr>" & vbCrLf _
               & "    <td colspan=""2""><b>Kies een provincie:</b></td>" & vbCrLf _
               & "  </tr>" & vbCrLf _
               & "  <tr>" & vbCrLf _
               & "    <td>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Heel Nederland"">Heel Nederland<br>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Drenthe"">Drenthe<br>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Flevoland"">Flevoland<br>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Friesland"">Friesland<br>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Gelderland"">Gelderland<br>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Groningen"">Groningen<br>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Limburg"">Limburg" & vbCrLf _
               & "    </td>" & vbCrLf _
               & "    <td>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Noord-Brabant"">Noord Brabant<br>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Noord-Holland"">Noord Holland<br>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Overijssel"">Overijssel<br>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Utrecht"">Utrecht<br>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Zeeland"">Zeeland<br>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Zuid-Holland"">Zuid Holland<br>" & vbCrLf _
               & "      <input type=""checkbox"" name=""state"" value=""Buitenland"">Buitenland" & vbCrLf _
               & "    </td>" & vbCrLf _
               & "  </tr>" & vbCrLf _
               & "  <tr>" & vbCrLf _
               & "    <td colspan=""2""><b>Vul een zoekopdracht in:</b></td>" & vbCrLf _
               & "  </tr>" & vbCrLf _
               & "  <tr>" & vbCrLf _
               & "    <td colspan=""2"">" & vbCrLf _
               & "      <input type=""text"" name=""strsearch"" size=""40"">" & vbCrLf _
               & "    </td>" & vbCrLf _
               & "  </tr>" & vbCrLf _
               & "  <tr>" & vbCrLf _
               & "    <td colspan=""2"">" & vbCrLf _
               & "      <input type=""submit"" name=""btsubmit"" value=""Zoeken"">" & vbCrLf _
               & "    </td>" & vbCrLf _
               & "  </tr>" & vbCrLf _
               & "</table>" & vbCrLf _ 
               & "<input type=""hidden"" name=""Rubriek"" value=""2"">" & vbCrLf _
               & "<input type=""hidden"" name=""action"" value=""post"">" & vbCrLf _
               & "</form>" & vbCrLf _
               & "</body>" & vbCrLf _
               & "</html>" & vbCrLf
End Sub

Sub PostZoeken
  Dim Item
  Dim strSQL
  
  Response.Write "Rubriek: " & Request.Form("Rubriek") & "<br>" & vbCrLf _
               & "SUB_ID: " & Request.Form("subid") & "<br>" & vbCrLf _
               & "A_TYPE: " & Request.Form("strtype") & "<br>" & vbCrLf
  For Each Item In Request.Form("state")
      Response.Write "State: " & Item & "<br>" & vbCrLf
  Next
  Response.Write "A_DESC: " & Request.Form("strsearch") & "<br><br>" & vbCrLf
  
  strSQL = "SELECT ID " _
         & "FROM advertentietabel " _
         & "WHERE CAT_ID = " & Request.Form("Rubriek") & " " _
         & "AND SUB_ID = " & Request.Form("subid") & " " _
         & "AND A_TYPE = '" & Request.Form("strtype") & "' "
  If Request.Form("strsearch") <> "" Then
    strSQL = strSQL _
           & "AND A_DESC LIKE '" & Request.Form("strsearch") & "' "
  End If
  Response.Write strSQL
End Sub
%>