query di visualizzazione dati tra due date

[m_ferraris]

ciao a tutti, devo realizzare una parte del programma per visualizzare i dati presenti in un db di tipo access nell'intervallo di tempo che va da giorno X al giorno Y.

Ho creato un db access dove ho un tabella denominata: report ed i seguenti campi: dataRegistrazione, articolo, quantita, prezzo.

Vi posto il codice delle pagine in asp da me scritte che però non riesco a far ancora funzionare:

form.asp:

<form action="report_Date.asp" method="get" name="data" target="_self" id="data">
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="110" class="testo">Data iniziale </td>
<td width="290" class="testo"><label>
<input name="dataInizio" type="text" class="testo" id="dataInizio" size="20" />
Formato data: gg/mm/aaaa
</label></td>
</tr>
<tr>
<td colspan="2" class="testo">[img]immagini/null.gif[/img]</td>
</tr>
<tr>
<td class="testo">Data finale </td>
<td class="testo"><input name="dataFine" type="text" class="testo" id="dataFine" size="20" />
Formato data: gg/mm/aaaa </td>
</tr>
<tr>
<td colspan="2" class="testo">[img]immagini/null.gif[/img]</td>
</tr>
<tr>
<td colspan="2" align="center" class="testo"><input name="button22" type="submit" class="testo" value="Cerca" /></td>
</tr>
</table>
</form>

report_date.asp:


<%
Dim rsReport__MMColParam
rsReport__MMColParam = "1"
If (Request.QueryString("dataRegistrazione") <> "") Then
rsReport__MMColParam = Request.QueryString("dataRegistrazione")
End If
%>
<%
dataInizio = month(Request.QueryString("dataInizio")) & "/" & day(Request.QueryString("dataInizio")) & "/" & year(Request.QueryString("dataInizio"))
dataFine = month(Request.QueryString("dataFine")) & "/" & day(Request.QueryString("dataFine")) & "/" & year(Request.QueryString("dataFine"))

Dim rsReport
Dim rsReport_numRows

Set rsReport = Server.CreateObject("ADODB.Recordset")
rsReport.ActiveConnection = MM_magazzino_STRING
rsReport.Source = "SELECT * FROM report WHERE (dataRegistrazione BETWEEN #"&dataInizio&"# And #"&dataFine&"#) ORDER BY articolo DESC"



rsReport.CursorType = 0
rsReport.CursorLocation = 2
rsReport.LockType = 1
rsReport.Open()

rsReport_numRows = 0
%>

connesione.asp

<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("db.mdb")
%>

L'errore che mi esce quando eseguo la pagina è il seguente:

Tipo di errore:
ADODB.Recordset (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/test/report_Date.asp, line 21


chi mi sa aiutare per favore?


connessione.asp

[optime]

impariamo a fare un po' di debug

Set rsReport = Server.CreateObject("ADODB.Recordset")
rsReport.ActiveConnection = MM_magazzino_STRING

sSource = "SELECT * FROM report WHERE (dataRegistrazione BETWEEN #"&dataInizio&"# And #"&dataFine&"#) ORDER BY articolo DESC"
Response.Write "eccomi..: " & sSource
Response.Flush

rsReport.Source = sSource

[m_ferraris]

l'errore mi compare alla linea 17 on il segunete codice:

Tipo di errore:
ADODB.Recordset (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.

[optime]

hai fatto come ti ho detto?

[m_ferraris]

si, ma mi dava sempre errore, ho modificato come segue così ho la possibilità anche di impaginare tutto in tabella:

<%
Dim rsReport__MMColParam
rsReport__MMColParam = "1"
If (Request.QueryString("dataRegistrazione") <> "") Then
rsReport__MMColParam = Request.QueryString("dataRegistrazione")
End If
%>
<%
dataInizio = month(Request.QueryString("dataInizio")) & "/" & day(Request.QueryString("dataInizio")) & "/" & year(Request.QueryString("dataInizio"))
dataFine = month(Request.QueryString("dataFine")) & "/" & day(Request.QueryString("dataFine")) & "/" & year(Request.QueryString("dataFine"))

dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"


Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM report WHERE (dataRegistrazione BETWEEN #"&dataInizio&"# And #"&dataFine&"#) ORDER BY articolo ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

do while not(rs.eof)
if intVolta="1" then
intVolta="0"
intTesto="#00FF99"
intSfondo="#FFFF00"
else
intVolta="1"
intTesto="#FFFF99"
intSfondo="#33CCFF"
end if

%>
<div align="center"><%=rs(1)%></div>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

che ne pensi?

[optime]

funziona?

[m_ferraris]

si, funziona. ti ringrazio comunque della tua disponibilità

[optime]

optime!