Access y ASP

yahismar
17 de Septiembre del 2004
Hola!!!! estoy haciendo una pequeña pagina con ASP y tengo almacenado mis datos en Access y ya he logrado, ingresar y actualizar datos con mis formularios, pero necesito hacer una busqueda y no se como; me explico, quiero que el usuario introduzca un dale y poder devolverle la informacion de ese usuario. Por ejemplo asi como cuando me piden mi pregunta secreta para poder recuperar mi contrseña.
GRACIAS.

KATIER
17 de Septiembre del 2004
Hola yahismar!!
Me gustaria saber como has conseguido introducir tus formularios y tus datos almacenados en Access en esa pagina con ASP.
Yo estoy intentando hacer algo parecido pero todavia no lo he conseguido.
Por favor si no te importa te lo agradeceria que me lo contaras.
Besos
GRACIAS

Rodolfo Reyes
17 de Septiembre del 2004
Ahi te va un ejemplo:

<%
option explicit
'declaración de variables

dim obj_conn 'objeto connetion para acceder a la base
dim obj_rs 'objeto recordset para mostrar la tabla
dim antiguedad 'Antiguedad de la persona que buscamos
%>

<html>
<head>
<title> Ejemplo de bases de datos </title>
</head>
<body>
<%

if request.form = "" then
%>
<font size ="5"> Información del Personal </font>
<form method="post" action="prueba02.asp">
No. de Antigüedad: <input name="anti">
<input type="submit" value="Buscar">
</form>


<%
else
antiguedad= request.form ("anti")
' antiguedad= 3611
set obj_conn = server.createobject ("adodb.connection")
set obj_rs = server.createobject ("adodb.recordset")
obj_conn.connectionstring = "empleados"
'"driver={microsft driver access(*.mdb)};dbq=c:paginaspersonal2.mdb"
obj_conn.open
'"driver={microsft driver access(*.mdb)};dbq=c:paginaspersonal.mdb"
set obj_rs = obj_conn.execute("select empleado.codempleado as anti, empleado.nombreempleado as nombre, " &_
"empleado.direccion as dir, empleado.telefono as tel, ocupacion.codocupacion as cod, " &_
"ocupacion.desocupacion as ocu from empleado, ocupacion " &_
"where empleado.codempleado = " & antiguedad & " "&_
"and ocupacion.codocupacion = empleado.codocupacion;")
if obj_rs.eof then
response.write "<center><h1>No existen registros</h1></center>"
else
%>
<font size ="5"> Información del Personal </font>
<table border="1" aling="center">
<tr>
<th>Antiguedad</th>
<th>Nombre</th>
<th>Direccion</th>
<th>Telefono</th>
<th>Cod ocupacion</th>
<th>Ocupacion</th>
</tr>
<%
do while not obj_rs.eof
%>
<tr>
<td><%= obj_rs ("anti") %></td>
<td><%= obj_rs ("nombre") %></td>
<td><%= obj_rs ("dir") %></td>
<td><%= obj_rs ("tel") %></td>
<td><%= obj_rs ("cod") %></td>
<td><%= obj_rs ("ocu") %></td>
</tr>
<%
obj_rs.movenext
loop
%>
</table>
<%
end if
obj_rs.close
obj_conn.close
set obj_rs = nothing
set obj_conn = nothing
end if
%>
</body>
</html>