Hola. No he podido hacer funcionar una búsqueda en una base de datos Access.
La idea de lo que quiero hacer es que por medio de un formulario busque en la base de datos con un campo numérico y me devuelva la respuesta de si no lo encuentra ó cuando encuentre el registro que coincida me muestre sólo cuatro de los cerca de 15 campos que posee el registro.
Aquí está el código que tengo:
Buscar.html
<html>
<head>
<title>Busqueda</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<!-- Post a buscar.asp -->
<form method="Post" action="BuscarAseguramiento.asp">
<body bgcolor="#FFFFFF">
<p align="center"><font face="Arial, Helvetica, sans-serif" size="2"><b><i>Ingrese la identificación a buscar:</i></b></font>
</p>
<!-- fijemosnos en esta linea en el Name del INPUT, algo muy importante -->
<p align="center"><input type="text" name="txtIdentificacion" size="20">
</p>
<p align="center">
<input name="btnBuscar" type="submit" id="btnBuscar" value="Buscar">
<input name="btnRestablecer" type="reset" id="btnRestablecer" value="Restablecer">
</form>
<p> </p>
</body>
</html>
BuscarAseguramiento.asp
<html>
<head>
<title>Buscar datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body bgcolor="#FFFFFF">
<%
'realizamos la conexión de la Base de Datos
Dim Conexion
Dim Tabla
Set Conexion=Server.CreateObject("ADODB.Connection")
Set Tabla=Server.CreateObject("ADODB.Recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("Aseguramiento.mdb")
'definimos las variables de busqueda
'Dim Identi
Dim Temp
'Identi=(Cdbl(Request.Form("txtIdentificacion")))
'Creamos la sentencia SQL que extrae de la base de datos la identificación
Temp="Select * From Aseguramiento Where Identificacion= '" & Request.Form("txtIdentificacion") & "'"
'Temp="Select * From Aseguramiento Where Identificacion= '" & Identi & "'"
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
'si no encuentra nada nos da este mensaje
<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("txtIdentificacion")%></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">Identificación</font></strong>
</td>
<td width="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Primer Nombre</font></strong>
</td>
<td width="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Segundo Nombre</font></strong></p>
</td>
<td width="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Primer Apellido</font></strong>
</td>
<td width="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Segundo Apellido</font></strong></p>
</td>
</tr>
<% While Not Tabla.EOF %>
<tr bgcolor="#00FFFF">
<td width="28%" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Identificacion")%></font></td>
<td width="28%" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Nombre1")%></font></td>
<td width="28%" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Nombre2")%></font></td>
<td width="28%" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Apellido1")%></font></td>
<td width="28%" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Apellido2")%></font></td>
</tr>
<%
'si encuentra mas de un resultado nos hace una celda mas en la tabla
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</center></div>
</body>
</html>