URGENTE SINO ME ECHAN DEL TRABAJO

Pablo Correa
12 de Mayo del 2005
Hola lo que yo necesitaria es que algun alma piadosa me ayude.
mi problema es el siguiente.
tengo una base de datos con una lista de autores y libros. necesito crear una especie de buscador para la misma. o sea que cuando pongo el nombre de un autor de o de un libro me aparesca en pantalla.

eternamente agradecido
Pablo Correa

pablo correa
12 de Mayo del 2005
finalmente de tanto luchar consegui un cogigo pero no se por que no funciona alguien me puede decir aqui va el codigo
Fconsu.htm
<html>
<head><title>Formulario para consulta sencilla</title></head>
<body>
<h3 align="center">consulta sencilla</h3>
<p>&nbsp;</p>
<form method="POST" action="http://www20.brinkster.com/argenta/consultasencilla.asp">
<table border="1" width="100%">
<tr>
<td width="16%">Titulo:</td>
<td width="84%"><input type="text" name="titulo" size="55"></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>
Consultasencilla.asp
<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>
<%strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("BDbiblioteca.mdb")
set conn = Server.Createobject("adodb.connection")
conn.open strconn %>
<%if rs.eof then%>
<h3 align="center">
<font color="#FF0000">No hay datos que coincidan con su peticin </font></h3><%else%>
<table border="0" width="100%"><tr>
<th width="33%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Titulo</font></th>
<th width="33%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Autor</font></th></tr>
<%do while not rs.eof%><tr>
<td width="33%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><%=rs("Titulo")%></font></td>
<td width="33%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><%=rs("Autor")%></font></td></tr><%rs.movenext
loop
rs.close
end if%></table>
<p>&nbsp;</p>
<p align="center"><a href="fconsu.htm">Otra vez</a></p>
</body></html>
La base de datos se llama biblioteca, tinen una tabla que se llama libros y dos campos titulo y autor.
mi servidor es brinkster la url del problema es http://www20.brinkster.com/argenta/ y el error es

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x958 Thread 0x450 DBC 0xe7ddfa4 Jet'.

/argenta/consultasencilla.asp, line 18

Israel
12 de Mayo del 2005
Si vees con cuidado tu Script falta la sentencia SQL y la obtencio del <<rs>>
esto deberia quedar asi
set conn = Server.Createobject("adodb.connection")
SET Ob_Command = Server.CreateObject("ADODB.Command)
conn.Open [DB_name] !-- Necesitas configurar tu ODBC -->
Ob_Command.ActiveConnection = conn
Ob_Command.CommandType = adCmdText
Ob_Command.CommandText = [query..]
SET rs = Ob_Command.Execute()
.. y continuas con lo que sigue

slaudos

pablo correa
12 de Mayo del 2005
no entiendo necesito configurar el OBDC? mi asp esta en un internet, conoces el hosting brinkster
? y en entre que lineas inserto el codigo que me distes?
muchisimas gracias por todo,Gracias pablo correa

multivac
12 de Mayo del 2005
Realiza una consulta empleando el operador LIKE en el comando SQL. Por ejemplo: "SELECT * FROM libros WHERE nombrelibro LIKE '%quijote%'"

pablo correa
12 de Mayo del 2005
bueno..
he reconfigurado mi codigo a:<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>

<%Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("\argenta\db\biblioteca.mdb") & ";" & _
"Persist Security Info=False")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * From (libros) WHERE titulo = " & titulo
rs.Open strSQL, conn
if rs.eof then%>
<h3 align="center">
<font color="#FF0000">No hay datos que coincidan con su peticin </font></h3>
<%else%>
<table border="0" width="100%">
<tr>
<th width="33%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Titulo</font></th>
<th width="33%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Autor</font></th>
</tr>
<%do while not rs.eof%>
<tr>
<td width="33%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><%=rs("Titulo")%></font></td>
<td width="33%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><%=rs("Autor")%></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>

y me da el siguiente error :
ADODB.Recordset error \'800a0bb9\'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/argenta/consultasencilla.asp, line 22

QUE ES LO QUE ESTA MAL!!!!
EL ASP NO ES PARA MI?

Nick
12 de Mayo del 2005
Es que para ke te funcione la conexion a internet tenes ke agregar en tu sitio el archivo..
ADOVBS.INC
para eso bajatelo de algun sitio. o sino enviame un mail y te lo paso...
salu2

gloria
12 de Mayo del 2005
Hola Pablo:
Si la base de datos es de Access, prueba lo siguiente:
1. Crea una CONSULTA con un parmetro en el campo "autores", es decir, [Qu autor necesita?].
2. Luego creas un FORMULARIO con la consulta creada.
3. Cuando abras el formulario te har la pregunta anterior.
4. Reproduce el mismo procedimiento creando una consulta con los mismos datos, pero aadiendo el parmetro [Qu libro desea consultar?] en el campo "libros".
Espero que te funcione. Un saludo.

rapomon
12 de Mayo del 2005
Este tio es un pesao, lo que quiere es que se lo hagamos nosotros, lleva pidiendo lo mismo semanas.

Aqu no enseamos ni hacemos las cosas a los dems, ayudamos.