Rs.AbsolutePage

[webfaber]

Ciao a tutti,

come posso risolvere il fatto che
Rs.AbsolutePage = -1 e quindi mi sballa tutto la divisione dei risultati per pagina?
Ho correttamente inserito adovbc.inc sul server

Suggerimenti?
Grazie

[Baol74]

Devi cambiare i cursorsi di apertura del recorset

Rs.Open Sql,Conn,3,3

Stai attento che questa paginazione è finta.
In realtà apri sempre tutti il set di records.
Quindi sei hai una tabella grossa ti conviene fare una paginazione col select Top

[webfaber]

Ti posto il codice perchè sto impazzendo..

iPageSize =2

If Request.QueryString("pg") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("pg"))
End If

Apro la connessione

reccount = Rs.recordcount
iPageCount = Rs.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
IF Rs.Recordcount = 0 THEN

NON C'E' NIENTE

else

Rs.AbsolutePage = iPageCurrent
iRecordsShown = 0
cont=1
Do While iRecordsShown < iPageSize And Not Rs.EOF

TABELLA

Cont = Cont + 1
iRecordsShown = iRecordsShown + 1
Rs.MoveNext
loop

If ipagecount <> 1 Then
NON ENTRA IN QUESTO PUNTO. Se diminuisco il iPageSize diminuisce visualizzazione risultati ma non ripartisce per pagina.

Sai dove è il problema?
Grazie

[Baol74]

Il problema è dove apri il recordset. Hai postato tutto tranne l'apertura.

[webfaber]

Oppssss.....


Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../db/my.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = AdOpenStatic
rs.ActiveConnection = Con
strstring = "SELECT * FROM dati where categoria = '"&x&"' order by data_ins ASC"
rs.open strstring,Con,3,3

[Baol74]

Scrivi così:

Set Con = Server.CreateObject("ADODB.Connection") 
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../db/my.mdb") 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.CursorType = 3
strstring = "SELECT * FROM dati where categoria = '"&x&"' order by data_ins ASC" 
rs.open strstring,Con,3,3

Dopo che avri risolto, ti consiglio di usare OLEDB: è più veloce.

[webfaber]

Non va.. e sinceramente non riesco a capire dato che su altri siti, che però sono su altri server, funziona correttamente.

Hai suggerimenti?

[Baol74]

Che errore da?

Ma dove imposti Rs.PageSize ?

[webfaber]

Semplicemente non ripartisce i record per pagina. Sul db ci sono 10 record. Ho settato iPageSize = 4 quindi mi aspetto 2 pagine, invece niente.

Non capisco

[Baol74]

Dove imposti Rs.PageSize ?