Buscador con base de datos en access Hola,
Deseo realizar un buscador que actue con una base de datos en access.
La base de datos se llama baseasp.mdb, he colgado los dos archivos (la base de datos y la pagina en asp) a un servidor, he modificado un script que dejaron en este foro, pero el buscador me arroja error:
"ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/buscar.asp, line 22"
Adjunto el codigo por si alguien se interesa en la respuesta:
Muchas Gracias
<html>
<head>
<title>testeando buscador</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%
Dim buscar
buscar = Request.Form("palabra")
%>
<body bgcolor="#FFFFFF" text="#000000"><center>
<p><b><font size="5">Buscador</font></b> </p>
<%
Function fBuscar(cnn)
Dim rs
Dim SQL
Dim str
SQL="SELECT nombre, des, pal, url FROM Buscador WHERE pal LIKE '%"&buscar&"%';"
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = str
rs.Open SQL
While Not rs.EOF
str = str & "<A Class='t5' Href='" & rs("url") & "'>" & rs("nombre") & " >> <br>" & "</a>" & rs("des")& "<BR> <BR>"
rs.MoveNext
Wend
if str = "" then str ="<CENTER><B>Lo siento, no se encontraron resultados</B></CENTER>"
if buscador = "" then str ="<CENTER><B>Por favor, especifique su búsqueda</B></CENTER>"
fBuscar = str
End Function
Dim cnn
Dim str
Set cnn = CreateObject("ADODB.Connection")
str="DRIVER={Microsoft Access Driver (*.mdb)}; "
str=str & "DBQ=" & Server.MapPath("baseasp.mdb")
cnn.Open str
Response.write "<FONT COLOR=Blue "
Response.write "SIZE=4 FACE=Arial> "
Response.write "Resultados "
Response.write "de la busqueda: <P>"
Response.write "</FONT> "
Response.write "<FONT COLOR=Green "
Response.write "SIZE=3 FACE=Arial> "
Response.Write fBuscar(cnn)
Response.write "</FONT><hr> "
%>
<form name="form1" method="post" action="Buscar.asp">
<input type="text" name="textfield">
<input type="submit" name="Submit" value="Buscar!">
</form></center>
</body>
</html>
