Paging con interrogazione su DB

[acer1629]

Ciao ragazzi
qualcuno mi sa dire un modo "semplice" per fare paging di 200 record su una query fatta su un Db ?

Il mio Resultset è il seguente :

Set Con=Server.CreateObject("ADODB.Connection") 
Con.Open "Provider=msdaora;Data Source=XXXXXX;User Id=XXXXXXX;Password=XXXXXXXXX;" 

query="select * FROM XXXXX"

rs.Open query
while not rs.eof

<<< COMPOSIZIONE PAGINA IN HTML >>>

rs.movenext
Wend	
rs.close
set rs=nothing

Grazie.

[stefaniakia]

Guarda qui il codice che ho usato io per il mio db.

http://forum.html.it/forum/showthrea...6#post13178926

In alternativa se fai una ricerca in internet trovi facilmente le altre classi di baol per l'upload che sono semplici e funzionano molto bene.

[acer1629]

mi sono perso ... perchè parliamo di upload ? :O

A me serve l'impaginazione del risultato di una query ...

[stefaniakia]

oddio scusa.... mi sono confusa.
una cosa interessante la trovi qui
http://www.mrwebmaster.it/asp/artico...sioni_387.html

Vedi se può esserti utile!

[acer1629]

Ciao, grazie per il suggerimento !
Ho un problema (strano!)
Vi riporto di seguito il codice :

<% 
 else
 Dim quanti, pag, contatore
  
  ' DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA
  quanti = 10
 	
  ' RECUPERO IL NUMERO DI PAGINA CORRENTE
  ' E CONTROLLO CHE NON SIA INFERIORE A 1
  pag = Request.QueryString("pag")
  If IsNumeric(pag) = False Or pag < 1 Then pag = 1

  ' IMPOSTO UN CONTATORE
  contatore = 0	
    
  rs.PageSize = quanti
  rs.AbsolutePage = pag

  rs.Open query,Con,3

  %>

<<< COMPOSIZIONE PAGINA IN HTML >>>

	<% 
	'rs.PageSize = quanti
    'rs.AbsolutePage = pag
    ' ESEGUO IL CICLO
    While rs.EOF = False And contatore < quanti
	'while not rs.eof
	%>


<<< COMPOSIZIONE PAGINA IN HTML con popolamento dei singoli Record della tabella >>>

  <%
 
    rs.MoveNext
    ' INCREMENTO IL VALORE DEL CONTATORE
    contatore = contatore + 1
    Wend
  %>
  </table>

  <p align="center">
  <%If pag > 1 Then%>
    Indietro
  <%End If%>
  <%
    Dim x
    x = 1
    For x = 1 To rs.PageCount
        If CInt(pag) <> x Then
  %>
            [<%=x%>]
  <%
        Else
  %>
            [<%=x%>]
  <%
        End If
    Next
  %>
  <%If rs.EOF = False Then%>
    Avanti
  <%End If%>
  </p>

  </body>
  </html>
  <%
	
	rs.close
	set rs=nothing

end If

%>

Il problema è che mi da in errore nell'rs.AbsolutePage = pag
Commentandolo la pagina viene creata, ma viene inserito solo il tasto AVANTI in fondo alla pagina, senza numero di pagine da poter scorrere, facendomi vedere solo i primi 10 record.

Nel momento in cui eseguo :

rs.PageSize = quanti
rs.AbsolutePage = pag

quanti vale 10 e pag vale 1.
Perchè va in errore ?
Mi da errore 500 sul browser.

Grazie.

[fulviolo58]

Ciao,

guarda questo esempio: http://www.aspcode.it/articoli/artic...show_art&idx=9

fulvio

[acer1629]

Ciao
ho seguito l'esempio dato ... ma nulla !

L'absolutePage continua a darmi errore ... non capisco se può dipendere dal server su cui sta girando il sito ... ma da errore anche in locale ...

Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.
/cartella/dettaglio_scarti.asp, line 113

sulla riga 113 c'è proprio : rs.AbsolutePage = pag

[Grambo]

"Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype."

chissà magari l'errore è proprio nella selezione del tipo di cursore?

prova dandogli rs.Open query,Con,3,3

[acer1629]

Purtroppo è già aperta in quel modo la connessione ...

Set Con=Server.CreateObject("ADODB.Connection") 
Con.Open "Provider=msdaora;Data Source=xxxxx;User Id=xxxxx;Password=xxxxxxx;" 

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection=Con

query="select xxxxxxxx from xxxxx"
  
rs.Open query,Con,3,3
  
rs.PageSize = quanti (variabile)
rs.AbsolutePage = pag (variabile)

[acer1629]

Ps. non capisco il perchè rs.PageSize non da lo stesso problema ...