mostrar registros
Publicado por Leonel (1 intervención) el 10/03/2001 12:57:20
Hice una aplicacion en asp, con una conexion mediante odbc a una bd en acces2000
que tenia al principio 10 nombres de empleado
y me mostraba los resultados pero una vez que agrege mas mediante mi pagina solo me muestro los que agruege no los anteriores utilizo ADO
en IIS 4.0 que es ayudeme llevo varios dias
mando codigo
<HTML>
<TITLE> Base de datos </TITLE>
<BODY BACKGROUND="Arena.gif">
<!-- #INCLUDE File="ADOVBS.inc" -->
<%IF (Request.Form <> "") THEN
IF (Request.Form ("Pagina") = "Pagina Siguiente") THEN
Session ("Pagina")= Session ("Pagina") + 1
ELSE IF (Request.Form ("Pagina") = "Pagina Anterior") THEN
Session ("Pagina")= Session ("Pagina") - 1
ELSE Session ("Pagina")= 1
END IF
END IF
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "EjemploBD"
Ob_RS.Open "Fichas", Ob_Conn, adOpenStatic, adCmdTable
Poner_AND= False
Filtro= ""
FOR EACH Parametro IN Request.Form
IF Request.Form (Parametro) <> "" AND Parametro <> "PAGINA" THEN
IF Poner_AND THEN
Filtro= Filtro & " AND " & Parametro & "='"
Filtro= Filtro & Request.Form (Parametro) & "'"
ELSE
Filtro= Filtro & Parametro & "='"
Filtro= Filtro & Request.Form (Parametro) & "'"
Poner_AND = True
END IF
END IF
NEXT
Filtro= LCase (Filtro)
Ob_RS.Filter = Filtro
IF NOT Ob_RS.Eof THEN %>
que tenia al principio 10 nombres de empleado
y me mostraba los resultados pero una vez que agrege mas mediante mi pagina solo me muestro los que agruege no los anteriores utilizo ADO
en IIS 4.0 que es ayudeme llevo varios dias
mando codigo
<HTML>
<TITLE> Base de datos </TITLE>
<BODY BACKGROUND="Arena.gif">
<!-- #INCLUDE File="ADOVBS.inc" -->
<%IF (Request.Form <> "") THEN
IF (Request.Form ("Pagina") = "Pagina Siguiente") THEN
Session ("Pagina")= Session ("Pagina") + 1
ELSE IF (Request.Form ("Pagina") = "Pagina Anterior") THEN
Session ("Pagina")= Session ("Pagina") - 1
ELSE Session ("Pagina")= 1
END IF
END IF
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "EjemploBD"
Ob_RS.Open "Fichas", Ob_Conn, adOpenStatic, adCmdTable
Poner_AND= False
Filtro= ""
FOR EACH Parametro IN Request.Form
IF Request.Form (Parametro) <> "" AND Parametro <> "PAGINA" THEN
IF Poner_AND THEN
Filtro= Filtro & " AND " & Parametro & "='"
Filtro= Filtro & Request.Form (Parametro) & "'"
ELSE
Filtro= Filtro & Parametro & "='"
Filtro= Filtro & Request.Form (Parametro) & "'"
Poner_AND = True
END IF
END IF
NEXT
Filtro= LCase (Filtro)
Ob_RS.Filter = Filtro
IF NOT Ob_RS.Eof THEN %>
Valora esta pregunta
0