S.O.S. lll

tarlipes · #1 (**permalink**) 12/02/2003, 06:38

Cómo estan maestros?, necesito su ayuda nuevamente, porque no puedo darle fin a este código.

Por que no reconoce la palabra clave que ingreso en el form?
por mas que le ponga lo que le ponga, me muestra todos los records de la BD y no lo referente a la palabra clave:

que esta mal?

busqueda = request.querystring("busqueda")
strsql= "select * from BIBLIO WHERE AUTOR LIKE '%"&busqueda&"%' or TITULO LIKE '%"&busqueda&"%' or PUBLICACION LIKE '%"&busqueda&"%'"
While Not objRS.EOF
Response.Write objRS("AUTOR") & " "
Response.Write objRS("TITULO") & " "
Response.Write objRS("PUBLICACION")" "

objRS.MoveNext
Wend

gracias de antemano como siempre.

DanielRey · #2 (**permalink**) 12/02/2003, 07:00

Hola Juan

Cuando me pasan cosas raras, utilizo un método de depuración que es el siguiente: pongo Response.Write por todos lados, para inspeccionar los valores de las variables en juego.

Entonces, te pediría que pusieras:

Código PHP:

  busqueda = request.querystring("busqueda")

Response.Write "<H1>Busqueda = " & busqueda & "</H1>"

strsql= "select * from BIBLIO WHERE AUTOR LIKE '%"&busqueda&"%' or TITULO LIKE '%"&busqueda&"%' or PUBLICACION LIKE '%"&busqueda&"%'"

Response.Write "<H1>String SQL = " & strsql & "</H1>"

' While Not objRS.EOF

' Response.Write objRS("AUTOR") & "<BR>"

' Response.Write objRS("TITULO") & "<BR>"

' Response.Write objRS("PUBLICACION")"<BR>"

' objRS.MoveNext

' Wend

Después poné aquí en este mensaje la respuesta del navegador para que veamos si descubrimos el problema.

Suerte

tarlipes · #3 (**permalink**) 12/02/2003, 08:36

gracias por tu tiempo:

muestra lo siguiente:

Busqueda = CACHO
string sql = select * from BIBLIO WHERE AUTOR LIKE '%CACHO%' or TITULO LIKE '%CACHO%' or PUBLICACION LIKE '%CACHO%'

DanielRey · #4 (**permalink**) 12/02/2003, 09:00

Bueno, eso luce bien, habrá que buscar el error por otra parte...

Volvamos a esto:
busqueda = request.querystring("busqueda")
strsql= "select * from BIBLIO WHERE AUTOR LIKE '%"&busqueda&"%' or TITULO LIKE '%"&busqueda&"%' or PUBLICACION LIKE '%"&busqueda&"%'"
While Not objRS.EOF
Response.Write objRS("AUTOR") & " "
Response.Write objRS("TITULO") & " "
Response.Write objRS("PUBLICACION")" "
objRS.MoveNext
Wend

¿Donde ejecutás la consulta?
Está faltando (tal vez no lo has puesto para abreviar) algo como:
objRS.source = strsql
objRS.Open

o sino un:
Set objRS = Conn.Execute strsql

o algo por el estilo...

Por otro lado... estás seguro que CACHO no es parte de todos los datos... si, suena ridículo, pero por ahí lo que se nos escapa es lo más obvio (me ha pasado y me pasa)

Suerte

tarlipes · #5 (**permalink**) 12/02/2003, 09:11

a que te referis con que si es parte de todos los datos?, existe como primer nombre de uno de los autores.

el codigo completo es el siguiente:

<body>

<%'Dim objConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")

Dim strDatabaseType
'aca elijo con quien me conecto
strDatabaseType = "Access"
'strDatabaseType = "MSDE"

'abro la coneccion (en este caso abre con access)
If strDatabaseType = "Access" Then
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\datastores\biblio.mdb;" & _
"Persist Security Info=False"
Else
objConn.Open "Provider=SQLOLEDB;Persist Security Info=False;" & _
"User ID=sa;Initial Catalog=PUBLICACIONES;" & _
"Initial File Name=G:\MSSQL\Data Files\MSSQL\DATA\biblio.mdf"
End If

objRS.open "publicaciones", objconn

busqueda = ucase(cstr(trim(request.querystring("busqueda"))))

strsql= "select * from BIBLIO WHERE AUTOR LIKE '%"&busqueda&"%' or TITULO LIKE '%" & busqueda & "%' or PUBLICACION LIKE '%" & busqueda & "%'"

dim encontrados
encontrados = 0
While Not objRS.EOF %>
Autor: <%Response.Write objRS("AUTOR") & " "%>
Título: <% Response.Write objRS("TITULO") & " "%>
Publicación: <% Response.Write objRS("PUBLICACION") &" "
response.write "fuente: " &objRS("FUENTE") & " "
encontrados = encontrados + 1
objRS.MoveNext
Wend
response. write "TOTAL " & encontrados & " COINCIDENCIAS"
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
%>

</BODY>
</HTML>

DanielRey · #6 (**permalink**) 12/02/2003, 09:22

Creo que encontré el problema.

Estas tres lineas:

Código PHP:

  objRS.open "publicaciones", objconn

 
busqueda = ucase(cstr(trim(request.querystring("busqueda"))))

 
strsql= "select * from BIBLIO WHERE AUTOR LIKE '%"&busqueda&"%' or TITULO LIKE '%" & busqueda & "%'

or PUBLICACION LIKE '%" & busqueda & "%'"

Reemplazalas por estas:

Código PHP:

  busqueda = ucase(cstr(trim(request.querystring("busqueda"))))

 
strsql= "select * from BIBLIO WHERE AUTOR LIKE '%"&busqueda&"%' or TITULO LIKE '%" & busqueda & "%' or PUBLICACION LIKE '%" & busqueda & "%'"

 
objRS.open strsql, objconn

tarlipes · #7 (**permalink**) 12/02/2003, 09:28

HAY GENTE DE LA CUAL ME ASOMBRA SU CAPACIDAD, VOS SOS UNO DE ELLOS.

FUNCIONA!!!!

MUCHAS GRACIAS VIEJO, TE DEBO UNA..

DanielRey · #8 (**permalink**) 12/02/2003, 09:31

Fue un placer