Ik ben bezig met een kleine webapplicatie waar men moet kunnen zoeken in een database op verschillende criteria. Deze zijn:
Naam,
Bedrijfsnaam,
Rol,
Expertise,
Level.
Dit komt overeen met 5 verschillende invoervelden. Ik heb nu alleen naar de 1e twee invoervelden gekeken om dit te testen, maar dit werkt helaas al niet goed. Bij deze de code die ik hiervoor heb gebruikt:
[code=asp]
<%
Dim oRecordSetResults
Dim sSQLResults
Set oRecordSetResults = Server.CreateObject("ADODB.RecordSet")
sSQLResults = "SELECT DISTINCT Persoon.Voornaam, Persoon.Achternaam, Persoon.Tussenvoegsel, Persoon.Telefoonnummer, Bedrijf.Bedrijf FROM Persoon INNER JOIN (Bedrijf INNER JOIN Werkzaamheden ON Bedrijf.Bedrijf_ID = Werkzaamheden.Bedrijf_ID) ON Persoon.Personeelsnummer = Werkzaamheden.Personeelsnummer WHERE Bedrijf.Bedrijf LIKE '%" & Request.QueryString("bedrijf") & "%' OR Persoon.Voornaam LIKE '%" & Request.Querystring("naam") & "%'"
Call oRecordSetResults.Open (sSQLResults, oDBConnection, 3, 3)
if oRecordSetResults.EoF Then
%>
<tr>
<td>Er zijn geen resultaten gevonden.</td>
</tr>
<%
Else
While Not oRecordSetResults.EoF
dim strWerknemer
Dim stussenvoegsel
stussenvoegsel = oRecordSetResults.Fields("Tussenvoegsel")
If isNull(stussenvoegsel) Then
strWerknemer = oRecordSetResults.Fields("Voornaam") & " " & oRecordSetResults.Fields("Achternaam")
Else
strWerknemer = oRecordSetResults.Fields("Voornaam") & " " & oRecordSetResults.Fields("Tussenvoegsel") & " " & oRecordSetResults.Fields("Achternaam")
End If
%>
<tr class="tablecontent">
<td><a href="link" class="name"><% Response.Write (strWerknemer) %></a></td>
<td><%= oRecordSetResults.Fields("Telefoonnummer") %></td>
<td><%= oRecordSetResults.Fields("Bedrijf") %></td>
<td><%= oRecordSetResults.Fields("Voornaam") %></td>
<td><%= oRecordSetResults.Fields("Voornaam") %>(lvl <%= oRecordSetResults.Fields("Voornaam") %>)</td>
</tr>
<%
oRecordSetResults.MoveNext
Wend
END IF
END IF
%>
[/code=asp]
Wat ik nu ook invoer, er komen altijd dezelfde resultaten terug, dus ik gok dat er iets niet goed zit in de query, maar ik kan mijn vinger er niet op leggen. Vandaar dan ook dit topic. Misschien zien jullie wel wat er fout is.
Naam,
Bedrijfsnaam,
Rol,
Expertise,
Level.
Dit komt overeen met 5 verschillende invoervelden. Ik heb nu alleen naar de 1e twee invoervelden gekeken om dit te testen, maar dit werkt helaas al niet goed. Bij deze de code die ik hiervoor heb gebruikt:
[code=asp]
<%
Dim oRecordSetResults
Dim sSQLResults
Set oRecordSetResults = Server.CreateObject("ADODB.RecordSet")
sSQLResults = "SELECT DISTINCT Persoon.Voornaam, Persoon.Achternaam, Persoon.Tussenvoegsel, Persoon.Telefoonnummer, Bedrijf.Bedrijf FROM Persoon INNER JOIN (Bedrijf INNER JOIN Werkzaamheden ON Bedrijf.Bedrijf_ID = Werkzaamheden.Bedrijf_ID) ON Persoon.Personeelsnummer = Werkzaamheden.Personeelsnummer WHERE Bedrijf.Bedrijf LIKE '%" & Request.QueryString("bedrijf") & "%' OR Persoon.Voornaam LIKE '%" & Request.Querystring("naam") & "%'"
Call oRecordSetResults.Open (sSQLResults, oDBConnection, 3, 3)
if oRecordSetResults.EoF Then
%>
<tr>
<td>Er zijn geen resultaten gevonden.</td>
</tr>
<%
Else
While Not oRecordSetResults.EoF
dim strWerknemer
Dim stussenvoegsel
stussenvoegsel = oRecordSetResults.Fields("Tussenvoegsel")
If isNull(stussenvoegsel) Then
strWerknemer = oRecordSetResults.Fields("Voornaam") & " " & oRecordSetResults.Fields("Achternaam")
Else
strWerknemer = oRecordSetResults.Fields("Voornaam") & " " & oRecordSetResults.Fields("Tussenvoegsel") & " " & oRecordSetResults.Fields("Achternaam")
End If
%>
<tr class="tablecontent">
<td><a href="link" class="name"><% Response.Write (strWerknemer) %></a></td>
<td><%= oRecordSetResults.Fields("Telefoonnummer") %></td>
<td><%= oRecordSetResults.Fields("Bedrijf") %></td>
<td><%= oRecordSetResults.Fields("Voornaam") %></td>
<td><%= oRecordSetResults.Fields("Voornaam") %>(lvl <%= oRecordSetResults.Fields("Voornaam") %>)</td>
</tr>
<%
oRecordSetResults.MoveNext
Wend
END IF
END IF
%>
[/code=asp]
Wat ik nu ook invoer, er komen altijd dezelfde resultaten terug, dus ik gok dat er iets niet goed zit in de query, maar ik kan mijn vinger er niet op leggen. Vandaar dan ook dit topic. Misschien zien jullie wel wat er fout is.
erhmm.