Forums Últimos mensajes - Powered by IBM
 

Consulta de Multiples Valores

04/03/2006 - 23:51 por Alex | Informe spam
Por favor un alama caritativa que me ayude a resolver este problemilla,, por
mas que intento no me funciona,

el siguiente codigo recoge los valores de un list/box multiple llamado
selItems, hasta aqui no tengo problema lo hace correctamente,,

<%

Dim strSelectedItems ' String returned from QS (or Form)
Dim arrSelectedItems ' Variable to hold team array
Dim I ' Looping variable

strSelectedItems = Request.Form("selItems")
arrSelectedItems = Split(strSelectedItems, ", ", -1, 1)

%>
<%
For I = LBound(arrSelectedItems) To UBound(arrSelectedItems) %>
'<%= arrSelectedItems(I) %><BR>

<%
Next 'I
%>

Ahora como puedo hacer para que estos valores sean el filtro para una base
de tados de access, tengo lo siguiente pero no me funciona,, si selecciono
solo un Item si me da la consulta pero si selecciono varios Items ya no me
devuelve nada

"SELECT Homologacion, Precio1, Moda1, Precio_2, Moda_2 FROM qryModas_OvD
WHERE Homologacion IN ('" + Replace(compDM__MMColParam, "'", "''") + "')
ORDER BY Ordenacion ASC"

POR FAVOR UN ALMA CARITATIVA QUE ME AYUDE,, POR FAVOR¡¡¡
 

Leer las respuestas

#1 Fernando Sonego
05/03/2006 - 20:17 | Informe spam
A ver si no entedi mal vos tenes unos variables que recupera los valores no?
bueno la variable se llama strSelectItems que dentro puede tener asi

strSelectItems = "1,2,3,5"

Primero
el campo Homologacion es un numero no hagas puedes poner asi
"WHERE Homologacion IN ('" & strSelectItems & '")"

Segundo
Si el campo es de tipo caracter o string puedes hacer
"WHERE Homologacion IN ('" & Replace(strSelectItems,",","','") & '")"


"Alex" escribió en el mensaje
news:
Por favor un alama caritativa que me ayude a resolver este problemilla,,
por
mas que intento no me funciona,

el siguiente codigo recoge los valores de un list/box multiple llamado
selItems, hasta aqui no tengo problema lo hace correctamente,,

<%

Dim strSelectedItems ' String returned from QS (or Form)
Dim arrSelectedItems ' Variable to hold team array
Dim I ' Looping variable

strSelectedItems = Request.Form("selItems")
arrSelectedItems = Split(strSelectedItems, ", ", -1, 1)

%>
<%
For I = LBound(arrSelectedItems) To UBound(arrSelectedItems) %>
'<%= arrSelectedItems(I) %><BR>

<%
Next 'I
%>

Ahora como puedo hacer para que estos valores sean el filtro para una base
de tados de access, tengo lo siguiente pero no me funciona,, si selecciono
solo un Item si me da la consulta pero si selecciono varios Items ya no me
devuelve nada

"SELECT Homologacion, Precio1, Moda1, Precio_2, Moda_2 FROM qryModas_OvD
WHERE Homologacion IN ('" + Replace(compDM__MMColParam, "'", "''") + "')
ORDER BY Ordenacion ASC"

POR FAVOR UN ALMA CARITATIVA QUE ME AYUDE,, POR FAVOR¡¡¡


Preguntas similares