Foros del Web » Programando para Internet » ASP Clásico »

consultar base de datos y mostrar los resultados

Estas en el tema de consultar base de datos y mostrar los resultados en el foro de ASP Clásico en Foros del Web. estoy comenzando con asp, Tengo una base de datos en acces llamado lista con una tabla llamada trabajador, la conexion de la base de datos ...
  #1 (permalink)  
Antiguo 19/07/2007, 16:27
 
Fecha de Ingreso: julio-2007
Mensajes: 1
Antigüedad: 16 años, 10 meses
Puntos: 0
consultar base de datos y mostrar los resultados

estoy comenzando con asp, Tengo una base de datos en acces llamado lista con una tabla llamada trabajador, la conexion de la base de datos esta ok creo es lo mas facil deseo realizar una consulta mediante un cuadro de texto o algo parecido para que por medio del campo dni de la tabla trabajador realize un reporte del trabajador que corresponde su dni.

necesito de su ayuda.
por favor
  #2 (permalink)  
Antiguo 20/07/2007, 00:07
 
Fecha de Ingreso: febrero-2003
Ubicación: D.F.
Mensajes: 74
Antigüedad: 21 años, 3 meses
Puntos: 0
Re: consultar base de datos y mostrar los resultados

Orales, jejejejeje. Saludos

Mira, explicarte al 100% aqui esta medio complicadon, pero la onda es la siguiente

la consulta la haces asi

sql = "select dni, nombre, from empleados order by nombre"
set tabla = ...
tabla.open sql, conexion, 3,1

do while not tabla.EoF
response.write "<tr><td>"&tabla(0) & tabla(1)"</td>/<tr>"
tabla.movenext
loop


Ya debes tener creado antes tu <table>
puedes poner un link en tabla(1) y que te abra en otra pagina donde veas el reporte completo, la consulta seria

sql = "select * from empleados where dni = " &request.querystring("dni")

el request viene del link anterior

Eso seria a grandes rasgos, espero que ya tengas conocimientos en html para que sepas como poner los demas, pero esto es basico y te puede ayudar para iniciar, tendras que investigarle un poquitin, además ahora ya hay muchos cursos y ejemplos que puedes verificar en linea.

Saludos


Nos leemos... o nos vemos, si no es aqui, entonces, delante del trono

richer
__________________
Nos leemos...

Richer
Is 40:31 1Co 16:22
  #3 (permalink)  
Antiguo 20/07/2007, 09:41
 
Fecha de Ingreso: julio-2007
Mensajes: 6
Antigüedad: 16 años, 11 meses
Puntos: 0
Re: consultar base de datos y mostrar los resultados

Perro: aqui tengo un ejemplo que encontre no se si sirva, ti puedes hacerlo funcionar respondeme a mi correo [email protected]

ARCHIVO HTML

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Busqueda</title>
</head>
<form method="Post" action="buscar.asp">
<body bgcolor="#FFFFCC">
<p align="center"><font face="Tahoma" size="2"><b><i>Ingrese Palabra a buscar</i></b></font>

</p>
<p align="center"><input type="text" name="Palabra" size="20">

</p>

<p align="center">
<input type="submit" value="Buscar" name="boton1">
<input type="reset" value="Restablecer" name="boton"></form>
<p> </p>
</body>

</html>


ARCHIVO ASP

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>

<head>
<title>Buscar datos</title>
</head>
<body bgcolor="#FFFFCC">
<p><font face="Tahoma" size="2">Resultados obtenidos con <strong><% =Request("Palabra") %></strong></font></p>

<%

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")

Dim Temp

Temp="Select * From Tabla1 Where UCase(Pal) like '%" & UCase(Request("palabra")) & "%'"

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><% =Request("palabra") %></strong> en la Base de Datos</font></p>


<%
Else
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Categoria</font></strong>
</td>
<td width="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Nombre de la pagina</font></strong></p>
</td>
<td width="52%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Descripcion</font></strong>
</td>
<td width="19%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Url</font></strong></p>
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="28%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Categoria")%></font></td>
<td width="28%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Nombre")%></font></td>
<td width="52%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Des")%></font></td>
<td width="19%" bgcolor="#FFCC00" height="51">
<p align="center"><a href="<%=Tabla.Fields("url")%>"><font face="Tahoma" size="2">Ir</font></a>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</center></div>
<p align="center"><font face="Tahoma" size="2">Busquedas</font></p>
<p align="center"><font face="Tahoma" size="2">2002</font></p>
<p align="center"> </p>
</body>
</html>
  #4 (permalink)  
Antiguo 23/07/2007, 10:10
 
Fecha de Ingreso: febrero-2003
Ubicación: D.F.
Mensajes: 74
Antigüedad: 21 años, 3 meses
Puntos: 0
Re: consultar base de datos y mostrar los resultados

igual si me dices en que esta fallando este codigo te puedo ayudar.

richer
__________________
Nos leemos...

Richer
Is 40:31 1Co 16:22
  #5 (permalink)  
Antiguo 23/07/2007, 10:10
 
Fecha de Ingreso: febrero-2003
Ubicación: D.F.
Mensajes: 74
Antigüedad: 21 años, 3 meses
Puntos: 0
Re: consultar base de datos y mostrar los resultados

ah, y si, si puedo hacerlo funcionar
__________________
Nos leemos...

Richer
Is 40:31 1Co 16:22
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:27.