Sida som tar emot sökning från flera fält?

6 svar · 312 visningar · startad av brw 17 juli 2000

brwMedlem sedan juli 2000619 inlägg

Frågan17 juli 2000 06:07#1

Jag har gjort ett formulär där man skall kunna söka på 3 fält (companycode, datum till datum)
men jag vet inte hur jag ska formulera sqlsträngen som tar emot och kollar allt så att jag kan sortera det.

Companycode är alltså specifikt per företag så om jag söker på companycode: 145664 och 1999-12-31 till 2000-06-12
så skall den visa endast de poster som är reggade mellan dessa datum och som tillhör detta companycodenummer.

formular.asp

<form name="ccdate" method="post" action="sereceiverdisp.asp">
Companycode: <input type="text" name="companycode"><br>
Between date: <input type="text" name="date1"> and <input type="text" name="date2">
              <input type="submit" value="Search" name="submit">
            </form>

sereceiverdisp.asp

<%
companycode=Request.Form("companycode")
date1=Request.Form("date1")
date2=Request.Form("date2")

If len(trim(companycode))> 0 then
	companycode= "%" & companycode & "%"
End If

If len(trim(date1))> 0 then
	date1= "%" & date1 & "%"
End If

If len(trim(date2))> 0 then
	date2= "%" & date2 & "%"
End If

	Set Connection = Server.CreateObject("ADODB.Connection")
	Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\databaser\rec.mdb"

If len(trim(companycode))> 0 then
	SQLStmt = "SELECT * FROM recsys WHERE companycode LIKE '" & companycode & "' ORDER BY receiver"
If len(trim(date1)) and len(trim(date2)) > 0 then
	SQLStmt = "SELECT * FROM recsys WHERE datereg BETWEEN date1 AND date2 order by datereg DESC"
End If

Set RS = Connection.Execute(SQLStmt)
%>

Kan nån hjälpa mig med koden som tar emot från formuläret?

/brw

VideMedlem sedan dec. 19998 577 inlägg

17 juli 2000 06:21#2

Det du kan göra är såhär:

If len(trim(companycode))> 0 then
SQLStmt = "SELECT * FROM recsys WHERE companycode LIKE '" & companycode & "'"
If len(trim(date1)) and len(trim(date2)) > 0 then
SQLStmt = SQLStmt & "AND (datereg BETWEEN date1 AND date2) order by datereg DESC"
Else
SQLStmt = SQLStmt & " ORDER BY receiver"
End If

Är dina datumfält av datatypen datum, så skall du ha # som omfamnar värdet... och du måste nog ha datatypen datum om du skall jämföra två datum...

If len(trim(date1))> 0 then
date1= "#" & date1 & "#"
End If

If len(trim(date2))> 0 then
date2= "#" & date2 & "#"
End If

Och skall du verkligen ha wildcards för företagskoden? det finns väl bara en specifik för varje... eller skall man kunna hämta ur flera företag? om inte:

If len(trim(companycode))> 0 then
companycode = companycode
End If

Alltså så skulle du kunna ta bort dom raderna...

Lycka till! :)

------------------
Det prasslas i säven
www.webeye.nu

[Redigerat av Vide den 17 jul 2000]

brwMedlem sedan juli 2000619 inlägg

17 juli 2000 07:06#3

Tack för koden!

Det fungerar när jag söker på bara companycode... men söker jag på companycode, date1 och date2 samtidigt med värden som jag vet finns inlagda så får jag följande fel:

Microsoft OLE DB Provider for ODBC Drivers fel '80040e10'

[Microsoft][Drivrutin för ODBC Microsoft Access 97] För få parametrar angavs. 2 förväntades

Vad är fel?

Koden ser ut enligt följande nu:

companycode=Request.Form("companycode")
date1=Request.Form("date1")
date2=Request.Form("date2")

If len(trim(companycode))> 0 then
companycode = companycode
End If

If len(trim(date1))> 0 then
date1 = "#" & date1 & "#"
End If

If len(trim(date2))> 0 then
date2 = "#" & date2 & "#"
End If

	Set Connection = Server.CreateObject("ADODB.Connection")
	Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\databaser\login.mdb"

If len(trim(companycode))> 0 then
SQLStmt = "SELECT * FROM recsys WHERE companycode LIKE '" & companycode & "'"
If len(trim(date1)) and len(trim(date2)) > 0 then
SQLStmt = SQLStmt & "AND (datereg BETWEEN date1 AND date2) order by datereg DESC"
Else
SQLStmt = SQLStmt & "ORDER BY receiver"
End If

Set RS = Connection.Execute(SQLStmt)

/brw

VideMedlem sedan dec. 19998 577 inlägg

17 juli 2000 07:13#4

date1 och date2 är ju variabler...

If len(trim(companycode))> 0 then
SQLStmt = "SELECT * FROM recsys WHERE companycode LIKE '" & companycode & "'"
If len(trim(date1)) and len(trim(date2)) > 0 then
SQLStmt = SQLStmt & "AND (datereg BETWEEN " & date1 & " AND " & date2 & ") order by datereg DESC"
Else
SQLStmt = SQLStmt & "ORDER BY receiver"
End If

Annars så testa att skriva ut SQLsatsen så ser man lättare vad som är fel...

Byt
Set RS = Connection.Execute(SQLStmt)
Mot
Response.write SQLStmt

Det kommer inte att fungera, men du kommer att få en textsträng som du kan kolla igenom efter fel...

------------------
Det prasslas i säven
www.webeye.nu

[Redigerat av Vide den 17 jul 2000]

brwMedlem sedan juli 2000619 inlägg

17 juli 2000 07:18#5

Då får jag:

SELECT * FROM recsys WHERE companycode LIKE '894452'AND (datereg BETWEEN date1 AND date2) order by datereg DESC

verkar som om den inte tar datum värdena?

och sen

Körningsfel i Microsoft VBScript fel '800a01a8'
Objekt krävs.: ''

/recsys/sereceiverdisp.asp, rad 123

och rad 123 är där jag börjar rabbla upp dem

<%
Do Until RS.EOF
counter = counter + 1
If counter Mod 2 = 0 then
color = "#CCCCCC"
Else
color = "#ffffff"
End If
%>

VideMedlem sedan dec. 19998 577 inlägg

17 juli 2000 07:22#6

OK! Ersätt med koden nedan... och byt tillbaks till 'Set RS...'

If len(trim(companycode))> 0 then
SQLStmt = "SELECT * FROM recsys WHERE companycode LIKE '" & companycode & "'"
If len(trim(date1)) and len(trim(date2)) > 0 then
SQLStmt = SQLStmt & " AND (datereg BETWEEN " & date1 & " AND " & date2 & ") order by datereg DESC"
Else
SQLStmt = SQLStmt & "ORDER BY receiver"
End If

------------------
Det prasslas i säven
www.webeye.nu

brwMedlem sedan juli 2000619 inlägg

17 juli 2000 07:25#7

Hehe funkar fint som fan nu!

Tackar! =))