Hola Amigos Tengo El Siguiente Problema Al Hacer Un Buscador Asp Desde Una Bd Access.

emilio21 · #1 (**permalink**) 09/01/2005, 12:36

HOLA ES EMILIO NECESITO URGENTE UN FAVOR TUYO. SI ME VAN AYUDAR, POR FAVOR NECESITO UNA URGENTE RESPUESTA.

EL PROBLEMA ES EL SIGUIENTE:
YO HICE UN BUSCADOR SIGUIENDO UN TUTORIAL, Y PRESENTA EL SIGUIENTE ERROR:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/emiliomedina21/buscador/buscar2.asp, line 35

LA LINEA 35 CONTIENE LO SIGUIENTE:
cnn.Open str

YA HE DECLARADO EL CNN Y EL STR Y NADA, NO ME FUNCIONA.

¿QUE ME DICEN?

ATTE:
EMILIO

AGRADEZCO LA MAS PRONTA RESPUESTA

yiyocastro · #2 (**permalink**) 09/01/2005, 12:46

es fácil.. no has declarado bien tu string para conectarte con la base de datos... manda como introduciste el string para verificar.

yiyocastro · #3 (**permalink**) 09/01/2005, 12:49

el error 80 40 00 05 es demasiado comun y no te da errores especificos, sin embargo eso en español tiene que decir "El nombre de la direccion de origen no fué encontrada y no se especifico un driver"

recuerda que el driver es lo que le permite a asp identificar el tipo de la base de datos.

Albertorc · #4 (**permalink**) 09/01/2005, 13:03

Que valor tiene str??, si nos dices talvez te podemos ayudar, y tambien di cual es la direccion de la base de datos

emilio21 · #5 (**permalink**) 09/01/2005, 17:55

este es el codigo completodel buscador:

buscar.asp

<html>
<head>
<title>Buscar en ZonaFull</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<form name="form1" method="post" action="buscar2.asp">
<input type="text" name="busca">
<input type="submit" name="Submit" value="Buscar!">
</form></center>
</body>
</html>

buscar2.asp

<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Dim buscar
buscar = Request.Form("busca")
%>
<p align="center">
<%
Function fBuscar(cnn)
Dim rs
Dim SQL
Dim str
SQL="SELECT Titulo, Comentarios, PALAC, Link FROM Busqueda WHERE PALAC LIKE '%"&buscar&"%';"
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn
rs.Open SQL
While Not rs.EOF
str = str & "<A Class='t5' Href='" & rs("Link") & "'>" & rs("Titulo") & " >> <br>" & "</a>" & rs("Comentarios")& "<BR> <BR>"
rs.MoveNext
Wend
if str = "" then str ="<CENTER><B>Lo siento, no se encontraron resultados</B></CENTER>"
if buscar = "" then str ="<CENTER><B>Por favor, especifique su búsqueda</B></CENTER>"
fBuscar = str
End Function
Dim str
Dim cnn
Set cnn = CreateObject("ADODB.Connection")
str = "Data Source=Pafware"
cnn.Open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("buscar.mdb")
set conn = Server.Createobject("adodb.connection")
conn.open strconn
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> "
%>
</p>
<p> </p><p> </p></body>
</html>