funzione next e previous

[domenico.nardo]

Buongiorno,

Ho un database in access per gestire gli utenti.
La tabella Utenti ha i campi: ID_Utente; Cognome; Nome.

Vorrei far apparire quando apro la pagina un'utente per volta (e questo è semplice) poi tramite i tasti next e previous vorrei far avanzare gli utenti avanti o dietro a seconda del caso.

Ora ho iniziato con questo script (pagina in asp):
==================================


<%
'RICAVO LE VARIABILI
id = Request("id")
muovi = Request ("muovi")
%>
<%
'RICAVO GLI UTENTI
Set RsUtenti = Server.CreateObject("ADODB.Recordset")
sqlutenti = " Select * from Utenti"
RsUtenti.open sqlutenti, connobj
%>
<%
if id <> "" and muovi <> "" then
RsUtenti.find "ID_Utente=" & id
'Controllo il valore di muovi
if muovi ="next" then
'Record successivo
RsUtenti.movenext
end if
end if
%>
=======================

Questo per far andare il recordset avanti.

Però a video mi appare il seguente errore:

==========================

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E29)
Il set di righe non supporta lo scorrimento all'indietro.
/default.asp, line 16

===============================

La riga 16 è questa:

RsUtenti.find "ID_Utente=" & id


Quale potrebbe essere il problema?

[mexican]

Originariamente inviato da domenico.nardo
Buongiorno,

Ho un database in access per gestire gli utenti.
La tabella Utenti ha i campi: ID_Utente; Cognome; Nome.

Vorrei far apparire quando apro la pagina un'utente per volta (e questo è semplice) poi tramite i tasti next e previous vorrei far avanzare gli utenti avanti o dietro a seconda del caso.

Ora ho iniziato con questo script (pagina in asp):
==================================


<%
'RICAVO LE VARIABILI
id = Request("id")
muovi = Request ("muovi")
%>
<%
'RICAVO GLI UTENTI
Set RsUtenti = Server.CreateObject("ADODB.Recordset")
sqlutenti = " Select * from Utenti"
RsUtenti.open sqlutenti, connobj
%>
<%
if id <> "" and muovi <> "" then
RsUtenti.find "ID_Utente=" & id
'Controllo il valore di muovi
if muovi ="next" then
'Record successivo
RsUtenti.movenext
end if
end if
%>
=======================

Questo per far andare il recordset avanti.

Però a video mi appare il seguente errore:

==========================

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E29)
Il set di righe non supporta lo scorrimento all'indietro.
/default.asp, line 16

===============================

La riga 16 è questa:

RsUtenti.find "ID_Utente=" & id


Quale potrebbe essere il problema?

usa la paginazione

[domenico.nardo]

Grazie per l'informazione
Solo una domanda.

Cosa intendi per paginazione?

Grazie ancora

[mexican]

Originariamente inviato da domenico.nardo
Grazie per l'informazione
Solo una domanda.

Cosa intendi per paginazione?

Grazie ancora

pag=request.QueryString("pag")
if pag="" then
pag=1
else
pag=cint(pag)
end if
strsql=Session("risultato")
rs.open strsql, conn,3,3
rs.pagesize=1

[byluciani]

studia questo script
http://www.byluciani.com/asp/default...articoli&ID=18
http://www.byluciani.com/asp/default...articoli&ID=19
http://www.byluciani.com/asp/default...articoli&ID=21

[domenico.nardo]

grazie byluciani adesso do un'occhiata agli script.

[domenico.nardo]

grazie byluciani...

questo è il mio script nel caso dovesse servire a qualcuno.
Chiaramente la connessione al database è quella classica e si trova nel file di inclusione connobj.asp

<%
'RICAVO LE VARIABILI
id = Request("id")
direzione = Request("direzione")
%>
<%
'RICAVO IL VALORI MASSIMO E MINIMO DELLA TABELLA UTENTI
Set RsAntipodi = Server.CreateObject("ADODB.Recordset")
sqlantipodi = "Select MIN(ID_Utente), MAX(ID_Utente) From Utenti"
RsAntipodi.open sqlantipodi, connobj
minimo = RsAntipodi(0)
massimo = RsAntipodi(1)
%>
<%
'RICAVO IL MOME
Set RsUtenti = Server.CreateObject("ADODB.Recordset")
'VEDO SE LA VARIABILE DIREZIONE NON E VUOTA
if direzione <> "" then
'SE LA DIREZIONE E NEXT
if direzione = "next" then
sqlutenti = "Select Top 1 * from Utenti where ID_Utente > "&id&""
end if
'SE LA DIREZIONE E PREVIOUS
if direzione = "previous" then
sqlutenti = "Select Top 1 * from Utenti where ID_Utente < "&id&" order By ID_Utente desc"
end if
else
sqlutenti = "Select * from Utenti"
end if
RsUtenti.open sqlutenti, connobj
%>

Per i pulsanti avanti e dietro ho usato questo:

 <table width="300"  border="0" cellspacing="0" cellpadding="2">
        <tr>
          <td><div align="center"><%=RsUtenti("Cognome")%></div></td>
          <td><div align="center"><%=RsUtenti("Nome")%></div></td>
        </tr>
        <tr>
          <td><div align="center"><% if minimo <> RsUtenti("ID_Utente") then %>
            &direzione=previous">Indietro
          <% end if %></div></td>
          <td><div align="center"><% if massimo <> RsUtenti("ID_Utente") then %>
            &direzione=next">Avanti
          <% end if %></div></td>
        </tr>
      </table>

GRAZIE ANCORA E ALLA PROSSIMA