Ciao (adesso è il mio turno)
Ho una tbl in DB ACCESS che contiene questi records:
ID = 1
DataInizio = 25/10/2005
DataFine = 28/10/2005
ID = 2
DataInizio = 25/10/2005
DataFine = 26/10/2005
ID = 3
DataInizio = 25/10/2005
DataFine = 28/10/2005
Perchè eseguendo l'estrazione con questa query:vengono estratti due records invece che tre ???codice:strSQL = "Select * from TBL where DataInizio = #25/10/2005# order by DataInizio"
quella e' tutta la query o c'e' dell'altro? (sospetto... chiedi un valore singolo e poi order by????)
Pensavo ad un errore nella query, questo segue la query già postata:codice:Set objREC = Server.CreateObject("ADODB.Recordset") objREC.Open strSql, objConn, 3, 3 Redim aMessages(10) Redim aMessageCon(10) Redim aMessageCon(10) Redim aMessageMod(10) Redim aMessageMod2(10) Redim aMessageMod3(10) Redim aMessageMod4(10) Redim aMessageMod5(10) Redim aMessageMod6(10) Redim aMessageMod7(10) Redim aMessageMod8(10) Redim aMessageMod9(10) For I = 0 to 10 aMessages(I) = "" aMessageContent(I) = "" aMessageContentSplit(I) = "" aMessageMod(I) = "" aMessageMod2(I) = "" aMessageMod3(I) = "" aMessageMod4(I) = "" aMessageMod5(I) = "" aMessageMod6(I) = "" aMessageMod7(I) = "" aMessageMod8(I) = "" aMessageMod9(I) = "" Next Do While NOT objREC.EOF aMessages(CInt(Left(objREC("Due"),2))) = objREC("Sub") aMessageMOD(CInt(Left(objREC("Due"),2))) = objREC("Las") aMessageContent(CInt(Left(objREC("Due"),2))) = objREC("Con") aMessageContentSplit(CInt(Left(objREC("Due"),2))) = objREC("Con") aMessageMOD2(CInt(Left(objREC("Due"),2))) = objREC("DataFine") aMessageMOD3(CInt(Left(objREC("Due"),2))) = objREC("DataInizio") aMessageMOD4(CInt(Left(objREC("Due"),2))) = objREC("uoat") aMessageMOD5(CInt(Left(objREC("Due"),2))) = objREC("imp") aMessageMOD6(CInt(Left(objREC("Due"),2))) = objREC("odm") aMessageMOD7(CInt(Left(objREC("Due"),2))) = objREC("ese") aMessageMOD8(CInt(Left(objREC("Due"),2))) = objREC("IDC") aMessageMOD9(CInt(Left(objREC("Due"),2))) = objREC("Att") objREC.MoveNext Loop For I = 1 to 10 If I = 10 then strAdder = 0 else strAdder = I + 1 end if Response.Write .... 'qui stampa i due records invece che i tre...
hai gia' provato la query direttamente in access?
Si ed estrae correttamente i tre records...Originariamente inviato da optime
hai gia' provato la query direttamente in access?
In ASP è come se "raggruppasse" i due records 25-28/10/2005...
controlla bene lo script che li stampa
Code completocodice:strSQL = "Select * from TBL where DataInizio = #25/10/2005# order by DataInizio" Set objREC = Server.CreateObject("ADODB.Recordset") objREC.Open strSql, objConn, 3, 3 Redim aMessages(10) Redim aMessageContent(10) Redim aMessageContentSplit(10) Redim aMessageMod(10) Redim aMessageMod2(10) Redim aMessageMod3(10) Redim aMessageMod4(10) Redim aMessageMod5(10) Redim aMessageMod6(10) Redim aMessageMod7(10) Redim aMessageMod8(10) Redim aMessageMod9(10) For I = 0 to 10 aMessages(I) = "" aMessageContent(I) = "" aMessageContentSplit(I) = "" aMessageMod(I) = "" aMessageMod2(I) = "" aMessageMod3(I) = "" aMessageMod4(I) = "" aMessageMod5(I) = "" aMessageMod6(I) = "" aMessageMod7(I) = "" aMessageMod8(I) = "" aMessageMod9(I) = "" Next Do While NOT objREC.EOF aMessages(CInt(Left(objREC("DueTime"),2))) = objREC("Sub") aMessageMOD(CInt(Left(objREC("DueTime"),2))) = objREC("Las") aMessageContent(CInt(Left(objREC("DueTime"),2))) = objREC("Con") aMessageContentSplit(CInt(Left(objREC("DueTime"),2))) = objREC("Cot") aMessageMOD2(CInt(Left(objREC("DueTime"),2))) = objREC("DataFine") aMessageMOD3(CInt(Left(objREC("DueTime"),2))) = objREC("DataInizio") aMessageMOD4(CInt(Left(objREC("DueTime"),2))) = objREC("uoa") aMessageMOD5(CInt(Left(objREC("DueTime"),2))) = objREC("imp") aMessageMOD6(CInt(Left(objREC("DueTime"),2))) = objREC("odm") aMessageMOD7(CInt(Left(objREC("DueTime"),2))) = objREC("ese") aMessageMOD8(CInt(Left(objREC("DueTime"),2))) = objREC("IDC") aMessageMOD9(CInt(Left(objREC("DueTime"),2))) = objREC("Att") objREC.MoveNext Loop For I = 1 to 10 If I = 10 then strAdder = 0 else strAdder = I + 1 end if Response.Write "<TR><TD ALIGN='CENTER' CLASS='MARGIN' WIDTH=70>"&I&"" _ &"</TD><TD WIDTH='90' CLASS='MARGIN'>" &aMessageMOD4(I) &"</TD><TD WIDTH='90' CLASS='MARGIN'>" &aMessageMOD3(I) &"</TD><TD WIDTH='90' CLASS='MARGIN'>" &aMessageMOD2(I) &"</TD><TD WIDTH='110' CLASS='MARGIN'>" &aMessageMOD5(I) &"</TD><TD WIDTH='500' CLASS='MARGIN'>" if aMessages(I) <> " Attività non codificata" then Response.Write "" &aMessages(I)&"" else Response.Write "" &aMessageMOD9(I)&"" end if Response.Write "</TD><TD WIDTH='300' CLASS='MARGIN'>" &aMessageContentSplit(I)&"</TD><TD WIDTH='300' CLASS='MARGIN'>" &aMessageMOD6(I)&"</TD><TD WIDTH=150 CLASS='MARGIN'><a href='pagina.asp?iduoat="&iduoat&"&code=1&time=" &I &"" &"&date=" _ &dtDate &"'>[img]./images/modify.gif[/img]</a>" &"<a href='pagina.asp?iduoat="&iduoat&"&code=2&time=" &I &"" &"&date=" &dtDate _ &"'>[img]./images/delete.gif[/img]</a>" if aMessageMOD7(I) = True then Response.Write"" &"[img]./img/inline025.gif[/img]</TD></TR>" else Response.Write"" &"[img]./img/inline017.gif[/img]</TD></TR>" end if Next
per curiosità prova contare i loop del recordset non vorrei che fosse la tua array che li ragruppasse !!
Ciao Steweb
Come si contano i loop del rs? :master:Originariamente inviato da steweb
per curiosità prova contare i loop del recordset non vorrei che fosse la tua array che li ragruppasse !!
Ciao Steweb
metti cosi semplicemente :
conta=0
Do While NOT objREC.EOF
conta=conta+1
...
...
objREC.MoveNext
Loop
response.write (conta)
Ciao Steweb
Permessi di invio
Rispondi quotando