Busqueda Multiple En Asp

darkmcloud · #1 (**permalink**) 01/10/2007, 23:04

buenas amigos de forosdelweb.....soy un poco novato en el diseño de paginas web y necesito ayuda urgente !!!
necesito crear en asp un formulario de busqueda que permita al usuario buscar por multiples criterios: me explico mejor...
los campos son : csr, distribuidor, fecha_ingreso, num_serie, estado, etc
la idea es que pueda buscar por cada uno de los parametros o por una seleccion multiple, o sea que el usuario escriba en dos o mas campos y tambien permita hacer la busqueda...
es una pagina asp con conexion a sql server 2000

De antemano Muchas gracias
PD: si me va bien...prometo postear el codigo de mi sitio, a mas de alguien le podria servir....ya que tiene varias funciones interesantes que he ido aprendiendo.....

PosProdukcion · #2 (**permalink**) 02/10/2007, 01:23

Una idea: podrías ir construyendo una query en función de los campos del formulario...

Código:

Valor1 = Request.form(Campo1)
Valor2 = Request.form(Campo2)
.....
ValorN = Request.form(CampoN)

strQuery = "Select columnas_de_mi_tabla from mi_tabla where "

If Not(EsNulo(valor1)) ThenstrQuery = strQuery & " columna1 = " & valor1 End If

If Not(EsNulo(valor2)) ThenstrQuery = strQuery & " AND columna2 = " & valor2 End If
.....

If Not(EsNulo(valorN)) ThenstrQuery = strQuery & " AND columnaN = " & valorN End If

Ojo: Si alguna de las columnas es varchar o datetime, en el where, el valor debe ir rodeado de comillas " columnaN = '" & valorN &"'"

Bueno, esto es una idea... Tendrás que tener cuidado con que por lo menos algún campo tenga valor o si no no pondrías la palabra where en la query, o que solo pongas el AND si hay m´sa de una condición, etc...

darkmcloud · #3 (**permalink**) 02/10/2007, 21:43

compadre......te agradezco por responderme......pero me podrias explicar un poco mejor por favor !!!

De Antemano muchas gracias

darkmcloud · #4 (**permalink**) 03/10/2007, 00:38

mira compadre.....sabes que lo probe y no me funciona....por favor dime donde estara mi error....por el momento solo para saber si hace la consulta bien o no le cree un if para que si la consulta es correcta aparezca el mensaje "usuario existe" o "el usuario no existe"......pero cuando la ejecuto....solo busca si el campo csr y el campo distribuidor contienen datos que existen en la tblcliente, o sea no permite hacerlo solo al ingresar csr o solo al ingresar distribuidor....... que estare haciendo mal ??

NOTA: el campo csr y distribuidor es varchar
NOTA2: los campos csr y distribuidor los recibo de un formulario llamado buscar.asp.....pero esta bien...solo que este formulario llamado validar.asp me genera el error

este es el codigo:

Cita:

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<FORM ACTION='Validar.asp' METHOD='GET' id=form1 name=form1>
</HEAD>
<%

if Session("id_usuario") = "" then
Response.Write "<SCRIPT LANGUAGE='JAVASCRIPT'>"
Response.Write "top.opener.close()"
Response.Write "</SCRIPT>"
Response.Redirect("Login.Asp")
end if

dim dbConn

if Not IsEmpty(Request.form("csr")) then
csr = Request.form("csr")
end if
if Not IsEmpty(Request.form("distribuidor")) then
distribuidor = Request.form("distribuidor")
end if

On Error Resume next

Dim Rs, Cnn, strSQL
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")

strQuery = "Select * from Tblcliente where "

If Not(IsEmpty(csr)) Then

strQuery = strQuery & " csr = '" & csr &"'"

End If

If Not(IsEmpty(distribuidor)) Then

strQuery = strQuery & " AND distribuidor = '" & distribuidor &"'"

End If

rs.Open strQuery, Cnn, 1, 2

If rs.EOF then
Response.Write("Usuario no existe")
end if

If Not rs.EOF then
Response.Write("usuario existe")
end if

Cnn.Close
set Cnn= nothing
set rs=Nothing
%>
<BODY>
</BODY>
</HTML>

cual sera mi error ??? por favor necesito ayuda !!!!

PosProdukcion · #5 (**permalink**) 03/10/2007, 01:32

No se, si seguro que los dos campos tienen valor, para intentar detectar el error puedes hacer:

Antes de ejecutar el Open hacer Response.write(strQuery) y copiar y pegar en tu bd, a ver si ejecutando la query directamente funciona
Probar solo Select * from Tblcliente, sin where, a ver si la conexion con la BD esta bien
Si no esta bien, probar rs.Open strQuery, Cnn (sin los paramtetros de tipo de cursor, 1, 2)

De todas formas la forma de construir la query la tienes que mejorar, yo te di solo un ejemplo, como lo tienes ahora, si CSR fuera vacío, te saldría una query así:

Select * from Tblcliente where AND distribuidor = 'distribuidor'

darkmcloud · #6 (**permalink**) 03/10/2007, 07:09

Cita:

De todas formas la forma de construir la query la tienes que mejorar, yo te di solo un ejemplo

como la podria mejorar entonces ???? help me please !!

creo que la consulta esta bien, ya que si escribo en ambos campos me realiza la busqueda correctamente......pero si escribo solo en uno de ellos ......la consulta si se ejecuta....pero aunque escriba un dato que realmente existe en la base de datos, no me encuentra nada..... no entiendo que podra ser.......

xplorer · #7 (**permalink**) 03/10/2007, 20:21

que tal Dark.... a ver compa aplica lo siguiente:

Valor1 = Request(Campo1)
Valor2 = Request(Campo2)
.....
ValorN = Request(CampoN)

sql = "Select columnas_de_mi_tabla from mi_tabla where "

primera = TRUE

if valor1<>"" then
sql = sql & "valor1 = '%"&valor1&"' and "
primera = FALSE
end if

if valor2<>"" then
sql = sql & "valor2 = '%"&valor2&"' and "
primera = FALSE
end if

sql = sql & " valorX = '"&valorX&"'"

set consulta = Conn.Execute (sql)
response.write (sql)

en donde el "valorX" debe ser algo verdadero, algo que tu sepas que existe para evitar un error en caso de que el usuario mande todos los campos en blanco(se puede evitar con js) o para evitar el AND que se encuentra al final cuando si se selecciono un campo.

despues manda a imprimir en pantalla para que veas el sql y realices la consulta directamente a la BD

Sale amigo, espero que te funcione.

saludos

darkmcloud · #8 (**permalink**) 03/10/2007, 22:11

lo siento amigos mios.....aun no me funciona...........por favor !!! digan donde esta mi error.....ya me estoy desesperando....
creo que se dan cuenta que soy un novato...pero quiero aprender.....pero ya no se que hacer....por favor sean lo mas explicativos .......diganme como hacer la consulta correctamente y como mostrar los resultados please !!! help me !!!
les agradesco a los que han puesto su atencion y me han respondido..

este es el nuevo codigo:

Cita:

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<FORM ACTION='Validar.asp' METHOD='GET' id=form1 name=form1>
</HEAD>
<%

if Session("id_usuario") = "" then
Response.Write "<SCRIPT LANGUAGE='JAVASCRIPT'>"
Response.Write "top.opener.close()"
Response.Write "</SCRIPT>"
Response.Redirect("Login.Asp")
end if

dim dbConn

csr = Request.form("csr")

distribuidor = Request.form("distribuidor")

On Error Resume next

Dim Rs, Cnn, strSQL
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")

strQuery = "Select * from Tblcliente where "

If Not(IsEmpty(csr)) Then

strQuery = strQuery & " csr = '" & csr &"'"

End If

If Not(IsEmpty(distribuidor)) Then

strQuery = strQuery & " AND distribuidor = '" & distribuidor &"'"

End If

rs.Open strQuery, Cnn

If rs.EOF then
Response.Write("Usuario no existe")
end if

If Not rs.EOF then
Response.Write("usuario existe")
end if

Cnn.Close
set Cnn= nothing
set rs=Nothing
%>
<BODY>
</BODY>
</HTML>

por favor !!! les suplico su ayuda !!!
lo extraño es que si yo borro el

Cita:

If Not(IsEmpty(distribuidor)) Then
strQuery = strQuery & " AND distribuidor = '" & distribuidor &"'"
End If

la consulta si se ejecuta bien.....o si lo incluyo y en ambos campos de busqueda yo le escribo dos valores que se encuentren en la bdd, la consulta se ejecuta bien....
pero si escribo solo en el campo "csr" o solo en el campo "distribuidor" .....la consulta no me encuentra ningun valor....por favor les pido que me ayuden!!!

Shiryu_Libra · #9 (**permalink**) 03/10/2007, 23:11

haz una prueba con esto
cambia esto...

Cita:

If Not(IsEmpty(distribuidor)) Then
strQuery = strQuery & " AND distribuidor = '" & distribuidor &"'"
End If

por esto

Cita:

If Not(IsEmpty(distribuidor)) Then
strQuery = strQuery & " AND distribuidor like '" & distribuidor &"'"
End If

solo como pregunta... el campo distribuidor..... lo llenas con un textbox, libremente o ya traes los datos desde la base de datos????

debes recordar que los campos, si son text van entrecomillados (campotext= 'variable' ), y numericos (campoNumerico = 123 ) sin ningun tipo de comilla simple

darkmcloud · #10 (**permalink**) 03/10/2007, 23:24

Cita:

<HTML>
<HEAD>
<%
if Session("id_usuario") = "" then
Response.Write "<SCRIPT LANGUAGE='JAVASCRIPT'>"
Response.Write "top.opener.close()"
Response.Write "</SCRIPT>"
Response.Redirect("Login.Asp")
end If
%>
<p>
<title>Buscar Cliente</title>
</head>
<body BACKGROUND ="2.jpg" bgcolor="BLACK" text="BLACK" vlink="BLACK" alink="BLACK">
<font face="verdana">
<br><br><br><br><br>
<h2><center> INGRESE CSR DE CLIENTE </center></h2>
<center>
<form name="Login" method="post" action="Scripts/validar.asp">
<table width="608" height="101" border="0" cellpadding="0" cellspacing="5" class="clsformulario">
<td width="32">CSR</td>
<td width="172"><input name="csr" style="WIDTH: 147px; HEIGHT: 22px" size=18>
</td>

<td width="32"><font face="verdana">DISTRIBUIDOR</font></td>
<td width="347"><input name="distribuidor" style="WIDTH: 147px; HEIGHT: 22px" size=18> </td>
<tr>
<td colspan="2" align="center">
<INPUT id=submit1 type=submit value=Aceptar name=submit1> </td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<BR> <a href="menu.asp" TARGET=_parent> Volver al Menu </a>
</center>
</font>
</body>
</html>

ese es el codigo de la pagina que postea los datos a validar.asp.....los campos csr y distribuidor los tengo como varchar en la bdd y los lleno escribiendo en ellos libremente

acabo de probar el codigo que escribiste.....y no me funciono...

Shiryu_Libra · #11 (**permalink**) 03/10/2007, 23:57

Mcloud, de rigor las preguntas... el CSR tambien es ingresado libremente?? si es asi, trata de cambiar la misma parte del codigo, el = X LIKE, veremos que pasa, ok??

darkmcloud · #12 (**permalink**) 04/10/2007, 00:10

si compadre.....el csr tambien es ingresado libremente.....ya cambie el = x like.....y me sigue pasando lo mismo....

no entiendo que onda.....ya que si escribo en los dos campos...me devuelve que "usuario existe" (esto claro si le ingreso valores que existan en la bdd)
pero me sigue pasando lo mismo.....no puedo buscar solo por un parametro....sino que tiene que ser en ambos.....
se me ocurre algo...pero no se si se puede en asp:

Cita:

If Not(IsEmpty(csr)) Then
If (IsEmpty(distribuidor)) Then
strQuery = strQuery & " csr like '" & csr &"'"
End If
End If

esto es para que valide que si el campo csr se le ingreso un valor y el campo distribuidor venga vacío.....entonces deberá buscar solo por csr....pero no se si se puede hacer en asp

despues se me ocurre algo parecido para el caso de que el campo csr venga vacío y solo el campo distribuidor se le ingreso un valor a buscar.....y por ultimo hacer algo similar para validar que los dos campos se les haya ingresado un valor y busque con un AND...algo asi:

Cita:

If Not(IsEmpty(csr)) AND If Not(IsEmpty(distribuidor)) Then
strQuery = strQuery & " csr like '" & csr &"'" AND distribuidor like '" & distribuidor &"'"
End If

se podra hacer??? es que yo lo intente y tampoco me resulto.....

PosProdukcion · #13 (**permalink**) 04/10/2007, 02:06

Cita:

Iniciado por PosProdukcion

Antes de ejecutar el Open hacer Response.write(strQuery) y copiar y pegar en tu bd, a ver si ejecutando la query directamente funciona

Para depurar el código, escribe en pantalla la query, copia y pega la query en tu base de datos a ver si funciona, da filas o no da filas, da errores de sintaxis...

(¿¿Podría ser por cuestión de mayúsculas??)

darkmcloud · #14 (**permalink**) 04/10/2007, 08:41

Cita:

Iniciado por PosProdukcion

Para depurar el código, escribe en pantalla la query, copia y pega la query en tu base de datos a ver si funciona, da filas o no da filas, da errores de sintaxis...

(¿¿Podría ser por cuestión de mayúsculas??)

mira compadre...el codigo no da errores en el analizador de consultas de sql server,
y si da filas......pero solo al escribir en ambos campos (con valores que existen en la bdd), no asi si escribo en uno solo de ellos (con valores verdaderos)
please help me !!!

gustavowd · #15 (**permalink**) 04/10/2007, 09:30

Hola
despues de validar los campos vacios, hacete un response.write de strQuery a ver que te trae y postealo
asi vas a ver como se armo la consulta

Saludos

Gustavo

darkmcloud · #16 (**permalink**) 04/10/2007, 11:22

Cita:

Iniciado por gustavowd

Hola
despues de validar los campos vacios, hacete un response.write de strQuery a ver que te trae y postealo
asi vas a ver como se armo la consulta

Saludos

Gustavo

creo no entenderte mucho compadre.....pero el response me lo hace y me trae resulstados ......pero solo si escribo en ambos campos un valor....pero no si un campo viene vacio y uno con valor.....

pero sacame de una duda please!!
se puede validar un campo con valor (csr)
y uno vacio (distribuidor) asi???

Cita:

If Not(IsEmpty(csr)) Then
If (IsEmpty(distribuidor)) Then
strQuery = strQuery & " csr like '" & csr &"'"
End If
End If

y para el otro campo ( o sea distribuidor con valor y csr vacío) asi???

Cita:

If Not(IsEmpty(distribuidor)) Then
If (IsEmpty(csr)) Then
strQuery = strQuery & " distribuidor like '" & distribuidor &"'"
End If
End If

Shiryu_Libra · #17 (**permalink**) 04/10/2007, 11:48

lo que te dice Gustavo(

), es de que generes tu string de conexion con los campos que te da problemas (CSR, Distribuidor) y lo pegues aki....
algo asi como

SELECT campo1, campo2, campo3, campo4 FROM TABLA where CSR="esto" and Distribuidor="ACME";

algo asi...a lo mejor no se genera bien la sentencia... asi podremos ubicarte mas rapido, sale??

gustavowd · #18 (**permalink**) 04/10/2007, 11:50

Hola
justo despues de esta linea

Código:

strQuery = strQuery & " AND distribuidor = '" & distribuidor &"'"

escribe lo siguiente

Código:

response.write strQuery 
response.end

luego desde el formulario, llena los dos campos de buscqueda para y dale submit a ver que te muestra en pamtalla, te tiene q mostrar la consulta SQL, no los resultados, de esta manera verificamos si la consulta esta bien realizada.

darkmcloud · #19 (**permalink**) 04/10/2007, 20:52

mira compadre gustavo......acabo de hacer lo que tu me dijiste en tu post anterior y me dio el siguiente resultado:

Select * from Tblcliente where csr = '59986' AND distribuidor = 'A. PARIS'

o sea al parecer esta bien la consulta....ya que ambos campos si existen en mi bdd....pero el problema ahora es como hacer para que si yo solo escribo '59986' me realice la busqueda o si solo escribo 'A. PARIS' tambien se pueda ejecutar....please.......help me !!!

darkmcloud · #20 (**permalink**) 04/10/2007, 22:29

amigos mios!!!! por fin encontre la solucion a mis problemas!!!!

resulta que despues de mucho buscar......encontre una funcion la cual modifique y.....

por fin dio los resultados esperados...asi que lo minimo es compartir con toda la comunidad de foros del web el codigo:

Cita:

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<FORM ACTION='Validar.asp' METHOD='GET' id=form1 name=form1>
</HEAD>
<body bgcolor="#FFCC66" background="2.jpg" text="BLACK" link="BLACK" vlink="BLACK" alink="BLACK">
<%
if Session("id_usuario") = "" then
Response.Write "<SCRIPT LANGUAGE='JAVASCRIPT'>"
Response.Write "top.opener.close()"
Response.Write "</SCRIPT>"
Response.Redirect("Login.Asp")
end if

dim dbConn

'aca recibo los campos que voy a realizar la busqueda
csr = Request.form("csr")
distribuidor = Request.form("distribuidor")
estado = Request.form("estado")

On Error Resume next

'declaro las variables a utilizar incluyendo la se_encuentra
Dim Rs, Cnn, SQL
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")

'ejecuto la consulta
strSQL="SELECT * FROM tblcliente"
se_encuentra = False
if csr <> "" then
strSQL=strSQL & " WHERE csr LIKE '%"&csr&"%'"
se_encuentra=True
end if

'la variable se_encuentra se inicializa en falso y se cambia a verdadero si el campo trae un valor ingresado

if distribuidor <> "" then
if se_encuentra then
strSQL=strSQL & " AND distribuidor LIKE '%"&distribuidor&"%'"
else
strSQL=strSQL & " WHERE distribuidor LIKE '%"&distribuidor&"%'"
se_encuentra=True
end if
end if

if estado <> "" then
if se_encuentra then
strSQL=strSQL & " AND estado LIKE '%"&estado&"%'"
else
strSQL=strSQL & " WHERE estado LIKE '%"&estado&"%'"
se_encuentra=True
end if
end if
'abrimos la tabla para llamar los registros
set rs = Cnn.Execute(strSQL)

cnn.Execute(strSQL)

if rs.EOF then
Response.Write("No existe el campo ingresado, verifique los datos")
else %>
'si encuentra los datos, mostramos los resultados
<CENTER>
<TABLE WIDTH=2000 BORDER=1 align="center" CELLSPACING="0">
<tr> <td width=80 bordercolor="#F0F0F0"bgcolor="ORANGE"><center><b>C sr</b></center>
<td width=100 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Local</b></center>
<td width=99 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Guia De Despacho</b></center>
<td width=134 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Distribuidor</b></center>
<td width=102 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Fecha Ingreso</b></center>
<td width=160 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Artefacto</b></center>
<td width=100 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Serie</b></center>
<td width=80 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Estado</b></center>
</tr> </table> </CENTER>

<%do while not rs.EOF%>

<center>
<TABLE BORDER=1 CELLSPACING="0" WIDTH=2000>
<tr>
<%Response.Write "<td WIDTH=80 align='center' >"&rs("csr")&"<td WIDTH=100 align='center'>"&rs("loc")&"<td WIDTH=99 align='center'>"&rs("guia_d")&"<td WIDTH=134 align='center'>"&rs("distribuidor")&"<td WIDTH=102 align='center'>"&rs("fecha_in")&"<td WIDTH=160 align='center' >"&rs("artefacto")&"<td WIDTH=100 align='center' >"&rs("serie")&"<td WIDTH=80 align='center' >"&rs("estado")%>
<br> </tr>
<%rs.Movenext%>
</table></center>
<%loop

end if

rs.Close

set rs = nothing

Cnn.Close

set oCnn = nothing

%>
<br> <br> <font face="Verdana">
<h3> <center> <a href="../menu.asp">Volver</a> </center> </h3>
</font>
</body>
</html>
[/CENTER]

espero que les sirva a toda la comunidad y muchas gracias a todos los que me ayudaron.....

hasta pronto amigos.....y espero ayudar a este foro.....
SPECIAL THANKS TO: todos lo que me respondieron mis consultas...

gustavowd · #21 (**permalink**) 05/10/2007, 06:42

ok, ahora bien, nose que criterio usas de busqueda, pero asi como esta:

Código:

Select * from Tblcliente where csr = '59986' AND distribuidor = 'A. PARIS'

busca un registro que tenga como csr 59986 y ademas distribuidor A.PARIS

existe algun registro que cumpla con los dos criterios al mismo tiempo en tu base?

no sera que estas buscando csr 59986 o registros con distribuidor A.PARIS?
en ese caso deberias cambiar el AND por OR

Byes

Shiryu_Libra · #22 (**permalink**) 05/10/2007, 11:29

perfecto amigo Mcloud, mire que agregaste %, para que buscara en todo el campo y no solo especifico

perfecto

xplorer · #23 (**permalink**) 05/10/2007, 16:40

Que bien darkmcloud...

cheque tus codigos y me parecion interesante algunas cosas de las que aplicas.

saludos.-