Estimado amigo.......
Avelar. Sabes e intentado conectar una pequeña BD, en excel como prueba, e realizado una pagina de formulario en html, el codigo es el siguiente:
<html>
<head>
<title>Formulario para consulta sencilla</title>
</head>
<body>
<h3 align="center">consulta sencilla</h3>
<p> </p>
<form method="POST" action="consultasencilla.asp">
<table border="1" width="100%">
<tr>
<td width="16%">Cedula identidad:</td>
<td width="84%"><input type="text" name="cedeula" size="20"></td>
</tr>
<tr>
<td width="16%"><input type="submit" value="Enviar" name="B1"></td>
<td width="84%"><input type="reset" value="Restablecer" name="B2"></td>
</tr>
</table>
</form>
Y la pagina de asp, donde se debe dar la respuesta a la peticion del formulario, su codigo es:
<html>
<head>
<title>Ejemplo de consulta sencilla</title>
</head><body bgcolor="#808000">
<div align="center">
<center>
<table border="1" width="62%" bgcolor="#008000">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF">Resultados de su consulta</font></td>
</tr>
</table>
</center>
</div>
<%
'Asigna a la variable Path, la ruta del archivo *.xls
Path=Server.MapPath("tabla.xls")
'Establece una conexión entre el servidor asp y una base de datos
Set ConexionBD = Server.CreateObject("ADODB.Connection")
'Abrimos el objeto con el driver específico para Microsoft Excel
ConexionBD.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Path
sql="select nombre,apellido from tabla"
set rs =conexionbd.execute(sql)
%>
<%if rs.eof then%>
<h3 align="center">
<font color="#FF0000">No hay datos que coincidan con su petición </font></h3>
<%else%>
<table border="0" width="100%">
<tr>
<th width="33%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">nombre</font></th>
<th width="33%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">apellido</font></th>
</tr>
<%do while not rs.eof%>
<tr>
<td width="33%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><%=rs("nombre")%></font></td>
<td width="33%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><%=rs("apellido")%></font></td>
</tr>
<%rs.movenext
loop
rs.close
end if%>
</table>
<p> </p>
<p align="center"><a href="fconsu.htm">Otra vez</a></p>
</body></html>
NOTA: cuando corre me da el siguiente error:
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E37)
[Microsoft][Controlador ODBC Excel] El motor de base de datos Microsoft Jet no pudo encontrar el objeto 'tabla'. Asegúrese de que el objeto existe, y que ha escrito el nombre y la ruta de acceso al objeto correctamente.
/asp/consultasencilla.asp, línea 26
Cro que estoy haciedo mal algo o TODO!!!!!!!!, por favor ayudame....
miguel