consultar base de datos y mostrar los resultados

wgm13 · #1 (**permalink**) 19/07/2007, 16:27

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

richerweb · #2 (**permalink**) 20/07/2007, 00:07

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

jaorcor · #3 (**permalink**) 20/07/2007, 09:41

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">
Ingrese Palabra a buscar


<input type="text" name="Palabra" size="20">




<input type="submit" value="Buscar" name="boton1">
<input type="reset" value="Restablecer" name="boton"></form>
 
</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">
Resultados obtenidos con <% =Request("Palabra") %>

<%

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
%>

No se ha encontrado nada con <% =Request("palabra") %> en la Base de Datos

<%
Else
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="28%" height="19">
Categoria
</td>
<td width="28%" height="19">
Nombre de la pagina
</td>
<td width="52%" height="19">
Descripcion
</td>
<td width="19%" height="19">
Url
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Categoria")%></td>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Nombre")%></td>
<td width="52%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Des")%></td>
<td width="19%" bgcolor="#FFCC00" height="51">
<a href="<%=Tabla.Fields("url")%>">Ir</a>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</center></div>
Busquedas
2002
 
</body>
</html>

richerweb · #4 (**permalink**) 23/07/2007, 10:10

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

richer

richerweb · #5 (**permalink**) 23/07/2007, 10:10

ah, y si, si puedo hacerlo funcionar