Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 ASP busqueda con list/menu
 Foro Bloqueado  Tema Bloqueado


Autor Temas
caleb_montoya
Starting Member

Mexico
12 Posts
Mensajes - 08 Feb 2006 :  17:54:05  Ver Perfil  Enviar Email  Enviar caleb_montoya un Mensaje ICQ
Ke tal amigos, he venido siguiende muy frecuentemente su foro, y la verdad me ha servido muchisimo, pero ya me he topado con algunas cosas que no encuentro tutores y bueno voy a plantear la duda y el problema y espero que me pueda ayudar.

tengo una base de datos en Access y he hecho asp con dreamweaver mx y la vdd bastante funcional, puedo hacer consultas, registros, etc. Pero ha llegado el momento de hacer una busqueda multiple con difs parametros, en el formulario tengo para buscar list/menu tengo 5 menus y con 5 o 6 parametros diferentes(igual y es SQL lo ke necesito) uno tiene Colores y otro Fabricantes por ejemplo les paso el codigo:

<select name="scolor" size="1" class="style39" id="scolor">
<option selected value="">Todos</option>
<option value="Negro">Negro</option>
<option value="Rojo">Rojo</option>
<option value="Naranja">Naranja</option>
<option value="Verde">Verde</option>
<option value="Azul">Azul</option>
<option value="Amarillo">Amarillo</option>
<option value="Aqua">Aqua</option>
<option value="Gris">Gris</option>
<option value="Purpura">Purpura</option>
<option value="Cafe">Cafe</option>
<option value="Blanco">Blanco</option>
<option value="Violeta">Violeta</option>
<option value="Rosa">Rosa</option>
</select>

<select name="sfabricante" size="1" class="style39" id="sfabricante">
<option selected value="">Todos</option>
<option value="Breen Color Concentrates">Breen Color Concentrates</option>
<option value="Aurum Chemicals">Aurum Chemicals</option>
<option value="Polyone">Polyone</option>
<option value="Plastikrom">Plastikrom</option>
<option value="HannaColor">HannaColor</option>
<option value="TeknorColor">TeknorColor</option>
<option value="Silcopas">Silcopas</option>
<option value="Ciba">Ciba</option>
<option value="Mearl de Mexico">Mearl de Mexico</option>
<option value="Akzo">Akzo</option>
<option value="Metalplast">Metalplast</option>
<option value="Recubrimientos Plasticos">Recubrimientos Plasticos</option>
<option value="Plasticoncentrados">Plasticoncentrados</option>
<option value="Masterbach">Masterbach</option>
</select>

bien el momento de hacer una busqueda sin escoger algun parametro, por decir ke se kedara en la opcion de TODOS, en la pagina de resultados no me muestra ningun resultado, ke puedo hacer? o ke me recomendan hacer? he pensado que es cuestion de valores, pero si cambio los valores como hago para que encuentre esos valores?

Gracias por su ayuda.

Thank's for All

Alexis_m20
Senior Member

Chile
1021 Posts
Posted - 08 Feb 2006 :  18:51:55  Ver perfil  Enviar e-mail  Visit Alexis_m20's Homepage
como construyes tu query??

el que te devuelve los datos, por favor lo podrias poner

Si puedo ayudar lo hare
Entren a mi web y registrense y participen http://www.ofistar.cl/foro/Default.aspInicio Pagina

caleb_montoya
Starting Member

Mexico
12 Posts
Posted - 08 Feb 2006 :  21:21:45  Ver perfil  Enviar e-mail  Enviar caleb_montoya un Mensaje ICQ
<%
Dim resultsRecordset__MMColParam
resultsRecordset__MMColParam = "1"
If (Request.Form("scolor") <> "") Then
resultsRecordset__MMColParam = Request.Form("scolor")
End If
%>
<%
Dim resultsRecordset__sfabricante
resultsRecordset__sfabricante = "Todos"
If (Request.Form("sfabricante") <> "") Then
resultsRecordset__sfabricante = Request.Form("sfabricante")
End If
%>
<%
Dim resultsRecordset
Dim resultsRecordset_numRows

Set resultsRecordset = Server.CreateObject("ADODB.Recordset")
resultsRecordset.ActiveConnection = MM_conexdbpigm_STRING
resultsRecordset.Source = "SELECT * FROM Pigmentos WHERE Color = '" + Replace(resultsRecordset__MMColParam, "'", "''") + "' AND Fabricante = '" + Replace(resultsRecordset__sfabricante, "'", "''") + "' ORDER BY Id ASC"
resultsRecordset.CursorType = 0
resultsRecordset.CursorLocation = 2
resultsRecordset.LockType = 1
resultsRecordset.Open()

resultsRecordset_numRows = 0
%>

Thank's for AllInicio Pagina

caleb_montoya
Starting Member

Mexico
12 Posts
Posted - 08 Feb 2006 :  21:22:43  Ver perfil  Enviar e-mail  Enviar caleb_montoya un Mensaje ICQ
a ver si me puedes hechar la mano:

<%
Dim resultsRecordset__MMColParam
resultsRecordset__MMColParam = "1"
If (Request.Form("scolor") <> "") Then
resultsRecordset__MMColParam = Request.Form("scolor")
End If
%>
<%
Dim resultsRecordset__sfabricante
resultsRecordset__sfabricante = "Todos"
If (Request.Form("sfabricante") <> "") Then
resultsRecordset__sfabricante = Request.Form("sfabricante")
End If
%>
<%
Dim resultsRecordset
Dim resultsRecordset_numRows

Set resultsRecordset = Server.CreateObject("ADODB.Recordset")
resultsRecordset.ActiveConnection = MM_conexdbpigm_STRING
resultsRecordset.Source = "SELECT * FROM Pigmentos WHERE Color = '" + Replace(resultsRecordset__MMColParam, "'", "''") + "' AND Fabricante = '" + Replace(resultsRecordset__sfabricante, "'", "''") + "' ORDER BY Id ASC"
resultsRecordset.CursorType = 0
resultsRecordset.CursorLocation = 2
resultsRecordset.LockType = 1
resultsRecordset.Open()

resultsRecordset_numRows = 0
%>

Thank's for AllInicio Pagina

Alexis_m20
Senior Member

Chile
1021 Posts
Posted - 08 Feb 2006 :  22:44:43  Ver perfil  Enviar e-mail  Visit Alexis_m20's Homepage
esta parte hazla de la siguiente manera

"SELECT * FROM Pigmentos WHERE (Color = '" + Replace(resultsRecordset__MMColParam, "'", "''") + "' or '' = '" + Replace(resultsRecordset__MMColParam, "'", "''") + "')
AND (Fabricante = '" + Replace(resultsRecordset__sfabricante, "'", "''") + "' or '' = '" + Replace(resultsRecordset__sfabricante, "'", "''") + "')
ORDER BY Id ASC"

y si te funciona me avisas

Si puedo ayudar lo hare
Entren a mi web y registrense y participen http://www.ofistar.cl/foro/Default.aspInicio Pagina

caleb_montoya
Starting Member

Mexico
12 Posts
Posted - 08 Feb 2006 :  23:19:51  Ver perfil  Enviar e-mail  Enviar caleb_montoya un Mensaje ICQ
nada viejo, no me funciona de esa manera ya lo intente como me pusiste... como ves que mas le puedo hacer?

Thank's for AllInicio Pagina

caleb_montoya
Starting Member

Mexico
12 Posts
Posted - 08 Feb 2006 :  23:24:38  Ver perfil  Enviar e-mail  Enviar caleb_montoya un Mensaje ICQ
mira viejo de esta manera si me funciona la busqueda pero es simple.. los list/menu no tienen una parametro de TODOS tengo que escoger un colo y despues un fabricante y viceversa, osea tengo que poner 2 parametros afuerzas para que haga la busqueda y encuentre, te paso el codigo

<td><select name="scolor" class="style39" id="scolor">
<option value="Negro" selected>Negro</option>
<option value="Rojo">Rojo</option>
<option value="Naranja">Naranja</option>
<option value="Verde">Verde</option>
<option value="Azul">Azul</option>
<option value="Amarillo">Amarillo</option>
<option value="Aqua">Aqua</option>
<option value="Gris">Gris</option>
<option value="Purpura">Purpura</option>
<option value="Cafe">Cafe</option>
<option value="Blanco">Blanco</option>
<option value="Violeta">Violeta</option>
<option value="Rosa">Rosa</option>
</select></td>
<td><select name="sfabricante" class="style39" id="sfabricante">
<option value="Breen Color Concentrates" selected>Breen Color Concentrates</option>
<option value="Aurum Chemicals">Aurum Chemicals</option>
<option value="Polyone">Polyone</option>
<option value="Plastikrom">Plastikrom</option>
<option value="HannaColor">HannaColor</option>
<option value="TeknorColor">TeknorColor</option>
<option value="Silcopas">Silcopas</option>
<option value="Ciba">Ciba</option>
<option value="Mearl de Mexico">Mearl de Mexico</option>
<option value="Akzo">Akzo</option>
<option value="Metalplast">Metalplast</option>
<option value="Recubrimientos Plasticos">Recubrimientos Plasticos</option>
<option value="Plasticoncentrados">Plasticoncentrados</option>
<option value="Masterbach">Masterbach</option>
</select></td>

y el query:

Dim resultsRecordset__MMColParam
resultsRecordset__MMColParam = "1"
If (Request.Form("scolor") <> "") Then
resultsRecordset__MMColParam = Request.Form("scolor")
End If
%>
<%
Dim resultsRecordset__sfabricante
resultsRecordset__sfabricante = "Todos"
If (Request.Form("sfabricante") <> "") Then
resultsRecordset__sfabricante = Request.Form("sfabricante")
End If
%>
<%
Dim resultsRecordset
Dim resultsRecordset_numRows

Set resultsRecordset = Server.CreateObject("ADODB.Recordset")
resultsRecordset.ActiveConnection = MM_conexdbpigm_STRING
resultsRecordset.Source = "SELECT * FROM Pigmentos WHERE Color = '" + Replace(resultsRecordset__MMColParam, "'", "''") + "' AND Fabricante = '" + Replace(resultsRecordset__sfabricante, "'", "''") + "' ORDER BY Id ASC"
resultsRecordset.CursorType = 0
resultsRecordset.CursorLocation = 2
resultsRecordset.LockType = 1
resultsRecordset.Open()

resultsRecordset_numRows = 0
%>

Thank's for AllInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar