Paginacion o Paginar con access

registros_r2 · #1 (**permalink**) 13/02/2009, 13:32

Hola:

Soy nuevo en esto y necesito ayuda. El caso es que he realizado una base de datos con mis clientes contactados y funciona perfentametne, puedo añadir y consultar los datos. El caso es que tengo un formulario de busqueda donde pongo los criterios (nombre, direccion, contacto) y en otra pagina de resultados se me muestran todos. El caso es que estoy buscando como hacer para que estos me salgan paginados por ejemplo de 10 en 10 ya que ahora tengo mas de 400 contactos y las cosas que encuentro por e foro no se como aplicarlas a mi pagina.

si lo necesitais puedo poner aqui el codigo para que lo veais.

muchas gracias

asp con access

registros_r2 · #2 (**permalink**) 13/02/2009, 13:33

por cierto, es asp con base de datos access

JuanRAPerez · #3 (**permalink**) 13/02/2009, 14:24

busca en el foro palabras claves
paginacion asp

hay mucho material al respecto

suerte

registros_r2 · #4 (**permalink**) 14/02/2009, 03:52

Hola Juanp:

Gracias por contestar, la verdad es que antes de escribir ya habia mirado y no se como utilizar los codigo. en la tabla que tengon por lo que he leido, con esta instruccion "RS.MoveNext Loop" consigo que se repitan todos los resltados encontrados, el caso es que no se como implementar el codigo que sale en las preguntas que hay en el foro de paginacion en mi web. si me pudieras ayudar estaria infinitamente agradecido ya que llevo bastante tiempo intentando hacer esto

garcias

Adler · #5 (**permalink**) 14/02/2009, 06:32

Hola

Hace unos meses me vi forzado a trabajar con access. Veamos si esto te ayuda

Barra de navegación

Código asp:

Ver originalIf Request.QueryString("pagina") = "" or Not IsNumeric(Request.QueryString("pagina")) Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("pagina"))
End If
 
contador = 20 ' número de registros por página
 
rs.PageSize = contador
rs.CacheSize = contador
 
' consulta
 
IF rs.EOF = True then ' ha ocurrido alguna incidencia
 
ELSE
 
cant_paginas = rs.PageCount ' número de páginas que se formaron con la variable contador
 
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
 
BarraDeNavegacion(cant_paginas, pagina_actual)
 
rs.AbsolutePage = pagina_actual
 
Dim registros
registros=rs.getrows()
 
registros_mostrados = 0
 
For p=0 to UBound(registros,2)
If registros_mostrados > (contador-1) then
Else
 
' imprime registros
 
End If
registros_mostrados = registros_mostrados + 1
Next 'p
END IF

Suerte

registros_r2 · #6 (**permalink**) 14/02/2009, 13:50

muchas gracias adler:

Llevo un buen rato intentando poner este codigo en mi pagina pero siempre me da errores, tambien he mirado el de resultado paginados que me has puesto pero ese no me da ningun error pero no me hace ningun cambio, te pongo el codigo de mi pagina para que lo veas y ver si me puedes orientar.

gracias por vuestra ayuda

<title>CLIENTES ENCONTRADOS</title>
</head>
</script
<center>
<body style="text-align: center">

<table border="1" cellspacing="1" style="border-width:0px; border-collapse: collapse; " bordercolor="#C0C0C0" width="750" id="AutoNumber1" height="101">
<tr>
<td width="90%" bgcolor="#3F3F3F" height="30" style="border-left:medium none #C0C0C0; border-right:medium none #C0C0C0; border-top-style:none; border-top-width:medium; ">
<p align="center">
<font face="Lucida Sans Unicode" size="2" color="#FFFFFF">ESTADO DE
LOS CONTACTOS</font></td>
</tr>
<tr>
<td width="86%" bgcolor="#FBFBFB" height="69" align="center" valign="top" style="border-right:1px solid #C0C0C0; border-left:1px solid #C0C0C0; border-bottom-style: solid; border-bottom-width: 1px; border-top-style:solid; border-top-width:1px">

<%
Dim oConn, RS, sql, varName
'on error resume next
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/contactos.mdb")
varName= Trim(Request.Form ("T1"))
sql = "SELECT * FROM altacontactos WHERE (respuestas=0) and (CONTACTO & DIRECCION & FECHA) like '%" & varName & "%'" & "ORDER BY Fecha DESC"
RS.Open sql, oConn,3 ,1
%>
<%
if rs.EOF then
Response.Write("No se encuentran resultados con estos criterios.")
end if
%>

<%
do while not rs.EOF
%>

</font>

</font>

<div align="center">
<table border="1" width="100%" id="table1" cellspacing="1" style="border-width:0; border-collapse: collapse; " bordercolor="#336699" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="10">
<tr>
<td bgcolor="#E0DFE3" align="center" width="28%" style="border-left:1px solid #C0C0C0; border-right-style:solid; border-right-width:1px; border-top-style:solid; border-top-width:1px; border-bottom-style:solid; border-bottom-width:1px" bordercolor="#C0C0C0" height="16">
<font face="Lucida Sans Unicode" style="font-size: 8pt">
CONTACTO</font></td>
<td bgcolor="#E0DFE3" align="center" style="border-style: solid; border-width: 1px" bordercolor="#C0C0C0" width="32%" height="16">
<font face="Lucida Sans Unicode" style="font-size: 8pt">DIRECCIÓN</font></td>
<td bgcolor="#E0DFE3" align="center" width="13%" style="border-style: solid; border-width: 1px" bordercolor="#C0C0C0" height="16">
<font face="Lucida Sans Unicode" style="font-size: 8pt">
ESTADO</font></td>
<td bgcolor="#E0DFE3" align="center" width="11%" style="border-style: solid; border-width: 1px" bordercolor="#C0C0C0" height="16">
<font face="Lucida Sans Unicode" style="font-size: 8pt">FECHA
SOLICI</font></td>
</tr>
<tr>
<td width="28%" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="30" style="border-left: 1px solid #C0C0C0; border-right-style: solid; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">
<font face="Lucida Sans Unicode" style="font-size: 8pt">
<%= rs("CONTACTO") %><br></font></td>
<td align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="32%" height="30" style="border-style: solid; border-width: 1px">
<font face="Lucida Sans Unicode" style="font-size: 8pt">
<%= rs("DIRECCION") %></IMG><br></td>
<td width="13%" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="30" style="border-style: solid; border-width: 1px">
<font face="Lucida Sans Unicode" style="font-size: 8pt"> <%= rs("ESTADO") %></font></td>
<td width="11%" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="30" style="border-style: solid; border-width: 1px">
<font face="Lucida Sans Unicode" style="font-size: 8pt"> <%= rs("FECHAFS") %></font></td>
</tr>
<tr>
<td align="center" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:solid; border-top-width:1px; border-bottom-style:none; border-bottom-width:medium" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" colspan="4" height="0">
<span style="font-size: 1pt"> </span></td>
</tr>
</table></div>

</table>
<p align="center"> </p>

<%
RS.MoveNext
Loop
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>

Adler · #7 (**permalink**) 14/02/2009, 14:52

Hola

Copia este código en un archivo con extensión .asp y nombrelo como paginacion. Guardalo en la raíz de tu sitio

Código asp:

Ver original<!--#include virtual="paginacion.asp"-->
Dim oConn, RS, sql, varName, pagina_actual, contador, cant_paginas, registros_mostrados
 
If Request.QueryString("pagina") = "" or Not IsNumeric(Request.QueryString("pagina")) Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("pagina"))
End If
 
contador = 10
 
 
RS.PageSize = contador
RS.CacheSize = contador
 
'on error resume next
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/contactos.mdb")
varName= Trim(Request.Form ("T1"))
sql = "SELECT * FROM altacontactos WHERE (respuestas=0) and (CONTACTO & DIRECCION & FECHA) like '%" & varName & "%'" & "ORDER BY Fecha DESC"
RS.Open sql, oConn,3 ,1
%>
<%
if rs.EOF then
Response.Write("No se encuentran resultados con estos criterios.")
end if
%>
 
<%
else
cant_paginas =RS.PageCount
 
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
 
Call BarraDeNavegacion(cant_paginas, pagina_actual)
 
RS.AbsolutePage = pagina_actual
 
registros_mostrados= ""
 
do while not rs.EOF and registros_mostrados < contador
%>
 
'muestras los registros
 
 
<%
registros_mostrados = registros_mostrados + 1
RS.MoveNext
Loop
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>

PD: Estaría bien que te pasases por un tutorial de CSS

Suerte

registros_r2 · #8 (**permalink**) 14/02/2009, 18:46

Adler:

Agradezco muchisimo tu ayuda, he seguido los pasos pero ahora al hacer la busqueda me da el siguiente error:

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03EA)
Error de sintaxis
/paginacion.asp, línea 31
else

Por que puede ser? gracias por tu ayuda, estoy ojenado el link que me has dado sobre css

Adler · #9 (**permalink**) 15/02/2009, 08:20

Hola

Fijate en esta sección del script, tienes cerrado el if

Cita:

<%
if rs.EOF then
Response.Write("No se encuentran resultados con estos criterios.")
end if
%>

<%
else
cant_paginas =RS.PageCount

Veamos si lo hemos solucionado

Código asp:

Ver original<!--#include virtual="paginacion.asp"-->
Dim oConn, RS, sql, varName, pagina_actual, contador, cant_paginas, registros_mostrados
 
If Request.QueryString("pagina") = "" or Not IsNumeric(Request.QueryString("pagina")) Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("pagina"))
End If
 
contador = 10
 
 
RS.PageSize = contador
RS.CacheSize = contador
 
'on error resume next
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/contactos.mdb")
varName= Trim(Request.Form ("T1"))
sql = "SELECT * FROM altacontactos WHERE (respuestas=0) and (CONTACTO & DIRECCION & FECHA) like '%" & varName & "%'" & "ORDER BY Fecha DESC"
RS.Open sql, oConn,3 ,1
%>
<%
if rs.EOF then
Response.Write("No se encuentran resultados con estos criterios.")
%>
 
<%
else
cant_paginas =RS.PageCount
 
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
 
Call BarraDeNavegacion(cant_paginas, pagina_actual)
 
RS.AbsolutePage = pagina_actual
 
registros_mostrados= ""
 
do while not rs.EOF and registros_mostrados < contador
%>
 
'muestras los registros
 
 
<%
registros_mostrados = registros_mostrados + 1
RS.MoveNext
Loop
end if
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>

Suerte

goldberg · #10 (**permalink**) 15/02/2009, 09:45

Para continuar con el tema, como podría hacer un formulario para filtrar los datos de búsqueda? Muchas gracias con la ayuda.

registros_r2 · #11 (**permalink**) 15/02/2009, 13:17

Hola a todos:

Adler, ahora me arroja otro error, esto es desepserante.

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: ''
/paginacion.asp, línea 13

siento darte tanta guerra pero por mas que intento por ", cambiar valores y demas para decirte que ya lo he conseguido solo consigo sacar nuevos errores.

ayudame otra vez, muchas gracias

registros_r2 · #12 (**permalink**) 15/02/2009, 13:26

Hola Goldberg:

yo uso este, lo unico que ahora estoy intentando solucionar lo de la paginacion con la ayuda de Adler y los demas.

Espero que te sirva aunque

Código PHP:

  <html> 
</script> 
<head> 
<title>contactos</title> 
<style> 
<!-- 
td { font-family: Verdana, Arial, Helvetica, sans-serif } 
.bodyline    { background-color: #FFFFFF; border: 1px #98AAB1 solid; } 
.gensmall { font-size : 10px; } 
.gensmall { color : #000000; } 
--> 
</style> 
</head> 
 
<body> 
  <center> 
   
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-left-width:0px; border-right-width:0px; border-bottom-width:0px" bordercolor="#C0C0C0" width="750" id="AutoNumber1" height="52%"> 
 
  </center> 
  
      </script> 
 
<script Language="JavaScript"><!-- 
function FrontPage_Form1_Validator(theForm) 
{ 
 
  if (theForm.T1.value == "") 
  { 
    alert("Inserte algún dato"); 
    theForm.T1.focus(); 
    return (false); 
  } 
  return (true); 
} 
//--></script> 
      <tr> 
        <td width="100%" bgcolor="#3F3F3F" align="center" height="30" style="border-left:1px solid #C0C0C0; border-right:1px solid #C0C0C0; border-top-style:solid; border-top-width:1px; border-bottom-style:solid; border-bottom-width:1px; "> 
        <font face="Lucida Sans Unicode" size="2" color="#FFFFFF">BUSCAR CLIENTES</font></td> 
    </tr> 
    <tr> 
        <td width="100%" bgcolor="#FFFFFF" align="center" height="200" style="border-left:1px solid #C0C0C0; border-right:1px solid #C0C0C0; border-bottom-style: solid; border-bottom-width: 1px; "> 
        <form method="POST" action="clientesencontrados.asp" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form2" language="JavaScript"> 
            <font style="font-size: 8pt" face="Lucida Sans Unicode">BUSCAR  
    </font><font face="Calibri" size="2"> 
            <!--webbot bot="Validation" s-display-name="Cadena de búsqueda" b-value-required="TRUE" --><input name="T1" size="26" style="border: 1px solid #C0C0C0; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; font-family:Lucida Sans Unicode; font-size:8pt" tabindex="1"></font><font style="font-size: 8pt" face="Lucida Sans Unicode"> 
            <input type="image" src="buscamini.gif" name="B2" alt="Buscar Cliente" width="16" height="16"></font></form> 
        </td> 
    </tr> 
    </table> 
 
</body> 
 
</script 
 
</html></font>

Adler · #13 (**permalink**) 15/02/2009, 13:54

Hola

Cita:

Iniciado por registros_r2

siento darte tanta guerra pero por mas que intento por ", cambiar valores y demas para decirte que ya lo he conseguido solo consigo sacar nuevos errores.

Nada, para eso estamos

Aún no está creado el objeto, así que cambia esto

Código asp:

Ver originalRS.PageSize = contador
RS.CacheSize = contador
 
 
'on error resume next
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/contactos.mdb")

por esto otro

Código asp:

Ver originalSet oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/contactos.mdb")
 
RS.PageSize = contador
RS.CacheSize = contador

Cita:

Iniciado por Goldberg

Para continuar con el tema, como podría hacer un formulario para filtrar los datos de búsqueda? Muchas gracias con la ayuda.

Tu pregunta parece más de javascript que asp así que haz lo que te comenta registros_r2. Si tu pregunta va dirigida a la recogida de los valores del form, cosa que no parece, lo que has de hacer es declarar el tipo de datos, por ejemplo

numero = CInt(Request.Form("campo"))
texto = CStr(Request.Form("campo"))
...

Suerte

registros_r2 · #14 (**permalink**) 15/02/2009, 14:28

Hola de nuevo,

Ahora me arroja este error

Call BarraDeNavegacion(cant_paginas, pagina_actual)

pufff

Adler · #15 (**permalink**) 21/02/2009, 07:20

Hola

Cita:

Iniciado por registros_r2

Hola de nuevo,

Ahora me arroja este error

Call BarraDeNavegacion(cant_paginas, pagina_actual)

pufff

¿Has insertado el include en la página donde se muestra la paginación?


¿Has guardado el archivo paginacion.asp en la raíz de tu sitio?

Suerte

Myakire · #16 (**permalink**) 21/02/2009, 09:33

Esta así :emoticón de una mano con los dedos índice y pulgar muy cerca: de que te merezcas un monumento a la paciencia y al servicio Adler

Adler · #17 (**permalink**) 21/02/2009, 13:56

Cita:

Iniciado por Myakire

Esta así :emoticón de una mano con los dedos índice y pulgar muy cerca: de que te merezcas un monumento a la paciencia y al servicio Adler

Se agradece Maykire
Nada, es un placer poder ayudar dentro de mis posibilidades
De una forma egoísta aprendo más lo problemas de otros que de los mios

registros_r2 · #18 (**permalink**) 23/02/2009, 15:05

Hola:

Muchas gracias a todos en especial ADLER, por fin lo consegui, el problema es que como estuvo el foro tanto tiempo fuera se me olvido contestaros Como dice Maykire un monumento, por aguantar tanto.

unos campeones