7 svar · 286 visningar · startad av trexter.com
Exakt - HUR?
Jag använder följande formulär:
<form ACTION="searchdb.asp?wanna=yes" method="post" name=search>
<select name="yesorno">
<option value="Sent">Sent</option>
<option value="Nada" selected>Nada</option>
<option value="Delivered">Delivered</option>
</select>
<br>
<INPUT TYPE="submit" VALUE="Sök"><input type="reset" value="Sudda">
</form>
--------------
Reqeust.Form("vad då?")
Hmm, det var också vad jag trodde... varför får jag då fel på följande kod?
<%
Way = Request.QueryString("Way")
If Way = "search" Then
%>
<form ACTION="searchdb.asp?wanna=yes" method="post" name=search>
<INPUT TYPE="RADIO" NAME="Type" VALUE="Name">Namn
<br>
<INPUT TYPE="RADIO" NAME="Type" VALUE="email">Email
<br>
<INPUT TYPE="RADIO" NAME="Type" VALUE="address">Adress
<br>
<INPUT TYPE="RADIO" NAME="Type" VALUE="CityAndZip">Postnummer
<br>
<INPUT TYPE="TEXT" VALUE="" NAME="searchwindow" SIZE="20">
<br>
<select name="yesorno">
<option value="Sent">Sent</option>
<option value="Nada" selected>Nada</option>
<option value="Delivered">Delivered</option>
</select>
<br>
<INPUT TYPE="submit" VALUE="Sök">
</form>
<%
End If
%>
Och hemsidan som tar emot:
<% Response.Buffer = TRUE %>
<html>
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\a\a.mdb;pwd=a"
If Request.Form("yesorno") <> "Nada" Then
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Find2 = "SELECT * FROM orders WHERE " & Request.Form("yesorno") & " = """
RecSet2.Open Find2, Connect, adOpenStatic, adLockOptimistic
Else
Set RecSet = Server.CreateObject("ADODB.Recordset")
Find = "SELECT * FROM orders WHERE " & Request.Form("Type") & " LIKE '%" & Request.Form("searchwindow") & "%'"
RecSet.Open Find, Connect, adOpenStatic, adLockOptimistic
End If
Do Until RecSet.EOF
%>
<%=RecSet("Name")%> - <%=RecSet("email")%> - <%=RecSet("address")%><br>
<%=RecSet("CityAndZip")%> - <%=RecSet("Delivered")%> - <%=RecSet("orderTime")%><br>
<%=RecSet("Notes")%> - <%=RecSet("delType")%> - <%=RecSet("zip")%><br>
<%=RecSet("Delivered")%> - <%=RecSet("Sent")%> - <%=RecSet("phone")%><br>
<%=RecSet("total")%>
<br><br>
<hr>
<br><br>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
</HTML>
Och felmeddelandet:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression 'Sent = "'.
/a/searchdb.asp, line 11
:)
Find2 = "SELECT * FROM orders WHERE " & Request.Form("yesorno") & " = ''"
Vad vill du söka efter egentligen? (Om det är null eller en tom sträng?)
Varför döper du ditt recordsett till recset2? Du använder ju recset sedan.
LarsG skrev:
Find2 = "SELECT * FROM orders WHERE " & Request.Form("yesorno") & " = ''"Vad vill du söka efter egentligen? (Om det är null eller en tom sträng?)
Varför döper du ditt recordsett till recset2? Du använder ju recset sedan.
Jag vill visa de poster där fälten i tabellen är helt tomma. Borde jag använda null istället eller?
Tack för det där med RecSet:en, missade det!
:)
Det är skillnad på en tom sträng och null, så det beror på vad du har lagrat i kolumnen.
-- en tom sträng
insert into t(c1,c2,c3) values('a',4711,'')
-- null
insert into t(c1,c2,c3) values('a',4711,null)
För att söka efter poster som är null så använder man sig av
select * from t where c3 is null
Jag vill t.ex. visa namn + adress + telefonnummer från alla de rader i tabellen där fältet delivered är tomt!
(Och förresten, koden du föreslog fungerade bara det att inga poster visas.)
Förstår du hur jag menar...
:)
I så fall låter det som om du skulle använda
Find2 = "SELECT * FROM orders WHERE " & Request.Form("yesorno") & " is null "
Det blir också null om man utelämnar en kolumn när man gör insert.