Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

array y sql

05/05/2006 - 21:22 por Alex | Informe spam
Ayuda Hacer una pregunta
Hola que tal un gran saludo,, quisiera exponer mi problemita y ver si
alguine me puede brindar su ayuda
Tengo en una hoja llamada marca.asp con un List/box multiple ,, este combo
tiene 25 marcas y pueden seleccionar varias marcas hasta aqui todo bien,,
mi problemita surge en la siguiente hoja que es la que recibe la peticion,
es una hoja llamada resultados,asp, donde puse este codigito,, en donde por
si solo si funciona correctamente ,, con lo cual compruebo que si esta
recibiendo los datos correctamente,, mi pregunta es, como puedo hacer para
que me tome el array como un filtro en la sentencia sql y me presente los
resultados solo de las marcas seleccionadas previamente???
Alguien me podria orientar o ponerme un ejemplo??

<%
Dim intNumberSelected
Dim strSelectedItems
Dim arrSelectedItems
Dim I

intNumberSelected = Request.Form("selItems").Count
strSelectedItems = Request.Form("selItems")
arrSelectedItems = Split(strSelectedItems, ", ", -1, 1)
%>
<%
For I = LBound(arrSelectedItems) To UBound(arrSelectedItems) %>
<%= arrSelectedItems(I) %><BR>
<%
Next 'I
%>

De antemano muchas gracias,, saludos
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Matías Iacono
06/05/2006 - 00:57 | Informe spam
Dependiendo de tu consulta el concepto sería mas o menos así:

<%
dim _TempWhere

_TempWhere = "Where "

For I = LBound(arrSelectedItems) To UBound(arrSelectedItems) %>


_TempWhere = _TempWhere & "Campo = " & arrSelectedItems(I)
Next 'I
%>



Y luego, concatenas esto al final de tu consulta.

Claro esta que deberás agregar una , en cada ciclo, y deberás controlar si
el campo es de tipo texto agregandole las ' '.

Saludos.

Matías Iacono
Microsoft MVP ASP/ASP.net
Microsoft Student Ambassador
Coordinador de evento Comunidad MSDN Bolivia
DCE2 v.2005
"Alex" escribió en el mensaje
news:
Hola que tal un gran saludo,, quisiera exponer mi problemita y ver si
alguine me puede brindar su ayuda
Tengo en una hoja llamada marca.asp con un List/box multiple ,, este combo
tiene 25 marcas y pueden seleccionar varias marcas hasta aqui todo bien,,
mi problemita surge en la siguiente hoja que es la que recibe la peticion,
es una hoja llamada resultados,asp, donde puse este codigito,, en donde
por
si solo si funciona correctamente ,, con lo cual compruebo que si esta
recibiendo los datos correctamente,, mi pregunta es, como puedo hacer para
que me tome el array como un filtro en la sentencia sql y me presente los
resultados solo de las marcas seleccionadas previamente???
Alguien me podria orientar o ponerme un ejemplo??

<%
Dim intNumberSelected
Dim strSelectedItems
Dim arrSelectedItems
Dim I

intNumberSelected = Request.Form("selItems").Count
strSelectedItems = Request.Form("selItems")
arrSelectedItems = Split(strSelectedItems, ", ", -1, 1)
%>
<%
For I = LBound(arrSelectedItems) To UBound(arrSelectedItems) %>
<%= arrSelectedItems(I) %><BR>
<%
Next 'I
%>

De antemano muchas gracias,, saludos


Respuesta Responder a este mensaje
#2 Alex
06/05/2006 - 03:08 | Informe spam
Retomando el tema,, por mas que le muevo al codigo nada mas no puedo
encontrar como hacerlo funcionar,,
Estoy tratando de generar mi pagina de resultados pero por mas que le muevo
no logro que la consulta me devuelva el resultado con todos los parametros
previamente seleccionados,, el codigo que pego abajo me genera la consulta
pero solo me toma el ultimo valor del array

Abajo pego el codigo generado que tengo actualmente,, mucho agradecere si
alguien me pudiera ayudar???

De antemano mil Gracias!!! Saludos!!!!

<%
Dim compDM__MMColParam
compDM__MMColParam = "1"
If (Request.Form("selItems") <> "") Then
Dim intNumberSelected
Dim strSelectedItems
Dim arrSelectedItems
Dim I

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

For I = LBound(arrSelectedItems) To UBound(arrSelectedItems)
compDM__MMColParam = arrSelectedItems(I)
Next

End If
%>
<%
Dim compDM
Dim compDM_numRows

Set compDM = Server.CreateObject("ADODB.Recordset")
compDM.ActiveConnection = MM_ccmMod_STRING
compDM.Source = "SELECT Homologacion, Precio1, Moda1, Precio_2, Moda_2 FROM
qryModas_OvD WHERE Homologacion IN ('" + Replace(compDM__MMColParam, "'",
"''") + "') ORDER BY Ordenacion ASC"
compDM.CursorType = 0
compDM.CursorLocation = 2
compDM.LockType = 1
compDM.Open()

compDM_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
compDM_numRows = compDM_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xht...">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Cerveceria Cuauhtemoc Moctezuma ::. Monitoreo de Precios</title>
<style type="text/css">
<!--
body {
margin-left: 5px;
margin-top: 5px;
margin-right: 0px;
margin-bottom: 0px;
}
.style1 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: medium;
color: #000066;
font-weight: bold;
}
.style2 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: x-small;
font-weight: bold;
color: #000099;
}
.style7 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size:
x-small; }
.style13 {color: #000099; font-family: Verdana, Arial, Helvetica,
sans-serif; font-size: x-small; }
</style>

<script type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length;
i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document;
if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++)
x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++)
x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_nbGroup(event, grpName) { //v6.0
var i,img,nbArr,args=MM_nbGroup.arguments;
if (event == "init" && args.length > 2) {
if ((img = MM_findObj(args[2])) != null && !img.MM_init) {
img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src;
if ((nbArr = document[grpName]) == null) nbArr = document[grpName] new Array();
nbArr[nbArr.length] = img;
for (i=4; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) !null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = args[i+1];
nbArr[nbArr.length] = img;
} }
} else if (event == "over") {
document.MM_nbOver = nbArr = new Array();
for (i=1; i < args.length-1; i+=3) if ((img = MM_findObj(args[i])) !null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])?
args[i+1] : img.MM_up);
nbArr[nbArr.length] = img;
}
} else if (event == "out" ) {
for (i=0; i < document.MM_nbOver.length; i++) {
img = document.MM_nbOver[i]; img.src = (img.MM_dn) ? img.MM_dn :
img.MM_up; }
} else if (event == "down") {
nbArr = document[grpName];
if (nbArr)
for (i=0; i < nbArr.length; i++) { img=nbArr[i]; img.src = img.MM_up;
img.MM_dn = 0; }
document[grpName] = nbArr = new Array();
for (i=2; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) !null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up;
nbArr[nbArr.length] = img;
} }
}
//-->
</script>
</head>

<body
onload="MM_preloadImages('../../../Images/boton/boton_f3.jpg','../../../Imag
es/boton/boton_f2.jpg')">
<table width="390" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td><span class="style1"><a name="Ex" id="Ex"></a>Reporte Comparativo de
Marcas / DM </span></td>
</tr>
<tr>
<td><img src="../../../Images/Bar_1.gif" width="802" height="5" /></td>
</tr>
</table>
<br />
<br />
<table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="565"><img src="../../../Images/Exc.jpg" width="150"
height="19" /></td>
<td width="90"><div align="right"><span class="style2">Ir a Mixtos
</span></div></td>
<td width="15"><div align="left"><a href="#mix"><img
src="../../../Images/flecD.gif" width="10" height="10" border="0"
/></a></div></td>
<td width="7">&nbsp;</td>
<td width="75" class="style2"><div align="right">Ir a Extra </div></td>
<td width="34"><div align="left"><a href="#Extra"><img
src="../../../Images/flecD.gif" width="10" height="10" border="0"
/></a></div></td>
</tr>
</table>
<br />
<table width="390" border="0" align="center" cellpadding="0"
cellspacing="0">
<tr>
<td><table width="390" border="1" align="center" cellpadding="0"
cellspacing="2">
<tr>
<td><div align="center"><span class="style7">Marca</span></div></td>
<td colspan="2"><div align="center"><span class="style7">Moda 1
</span></div></td>
<td colspan="2"><div align="center"><span class="style7">Moda 2
</span></div></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT compDM.EOF))
%>
<tr>
<td><div align="left"
class="style7"><%=(compDM.Fields.Item("Homologacion").Value)%></div></td>
<td><div align="right" class="style7"><%FormatCurrency((compDM.Fields.Item("Precio1").Value), 2, -2, -2, -2)
%></div></td>
<td><div align="right" class="style7"><%FormatPercent((compDM.Fields.Item("Moda1").Value), 0, -2, -2, -2)
%></div></td>
<td><div align="right" class="style13"><%FormatCurrency((compDM.Fields.Item("Precio_2").Value), 2, -2, -2, -2)
%></div></td>
<td><div align="right" class="style13"><%FormatPercent((compDM.Fields.Item("Moda_2").Value), 0, -2, -2, -2)
%></div></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
compDM.MoveNext()
Wend
%>
</table></td>
</tr>
</table>
<p>&nbsp;</p>
<table width="400" height="400" border="0" align="center" cellpadding="0"
cellspacing="0">
<tr>
<td><table width="390" height="400" border="0" align="center"
cellpadding="0" cellspacing="0">
<tr>
<td>&nbsp;</td>
</tr>
</table></td>
</tr>
</table>
<br />
<table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>&nbsp;</td>
<td><div align="center"><a href="javascript:;" target="_parent"
onclick="MM_nbGroup('down','navbar1','boton','../../../Images/boton/boton_f3
.jpg',1)"
onmouseover="MM_nbGroup('over','boton','../../../Images/boton/boton_f2.jpg',
'../../../Images/boton/boton_f3.jpg',1)"
onmouseout="MM_nbGroup('out');"><img src="../../../Images/boton/boton.jpg"
alt="Regresar" name="boton" width="77" height="29" border="0"
usemap="#botonMap" lowsrc="../../../Images/boton/boton.png" id="boton"
/></a></div></td>
<td>&nbsp;</td>
</tr>
</table>
<br />
<table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="559"><img src="../../../Images/Mixtos.jpg" width="150"
height="19" /><a name="mix" id="mix"></a></td>
<td width="107"><div align="right"><span class="style2">Ir a Exclusivos
</span></div></td>
<td width="15"><div align="left"><a href="#Ex"><img
src="../../../Images/flecA.gif" width="10" height="10" border="0"
/></a></div></td>
<td width="7">&nbsp;</td>
<td width="76" class="style2"><div align="right">Ir a Extra </div></td>
<td width="36"><div align="left"><a href="#Extra"><img
src="../../../Images/flecD.gif" width="10" height="10" border="0"
/></a></div></td>
</tr>
</table>
<br />
<table width="390" border="0" align="center" cellpadding="0"
cellspacing="0">
<tr>
<td><table width="390" border="1" align="center" cellpadding="0"
cellspacing="2">
<tr>
<td><div align="center"><span class="style7">Marca</span></div></td>
<td colspan="2"><div align="center"><span class="style7">Moda 1
</span></div></td>
<td colspan="2"><div align="center"><span class="style7">Moda 2
</span></div></td>
</tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table></td>
</tr>
</table>
<p>&nbsp;</p>
<table width="400" height="400" border="0" align="center" cellpadding="0"
cellspacing="0">
<tr>
<td><table width="390" height="400" border="0" align="center"
cellpadding="0" cellspacing="0">
<tr>
<td>&nbsp;</td>
</tr>
</table></td>
</tr>
</table>
<br />
<table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>&nbsp;</td>
<td><div align="center"><a href="javascript:;" target="_parent"
onclick="MM_nbGroup('down','navbar1','boton','../../../Images/boton/boton_f3
.jpg',1)"
onmouseover="MM_nbGroup('over','boton','../../../Images/boton/boton_f2.jpg',
'../../../Images/boton/boton_f3.jpg',1)"
onmouseout="MM_nbGroup('out');"><img src="../../../Images/boton/boton.jpg"
alt="Regresar" name="boton" width="77" height="29" border="0"
lowsrc="../../../Images/boton/boton.png" id="boton" /></a></div></td>
<td>&nbsp;</td>
</tr>
</table>
<br />
<table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="559"><img src="../../../Images/Extra.jpg" width="150"
height="19" /><a name="Extra" id="Extra"></a></td>
<td width="107"><div align="right"><span class="style2">Ir a Exclusivos
</span></div></td>
<td width="15"><div align="left"><a href="#Ex"><img
src="../../../Images/flecA.gif" width="10" height="10" border="0"
/></a></div></td>
<td width="7">&nbsp;</td>
<td width="76" class="style2"><div align="right">Ir a Mixtos </div></td>
<td width="36"><div align="left"><a href="#mix"><img
src="../../../Images/flecA.gif" width="10" height="10" border="0"
/></a></div></td>
</tr>
</table>
<br />
<table width="390" border="0" align="center" cellpadding="0"
cellspacing="0">
<tr>
<td><table width="390" border="1" align="center" cellpadding="0"
cellspacing="2">
<tr>
<td><div align="center"><span class="style7">Marca</span></div></td>
<td colspan="2"><div align="center"><span class="style7">Moda 1
</span></div></td>
<td colspan="2"><div align="center"><span class="style7">Moda 2
</span></div></td>
</tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table></td>
</tr>
</table>
<p>&nbsp;</p>
<table width="400" height="400" border="0" align="center" cellpadding="0"
cellspacing="0">
<tr>
<td><table width="390" height="400" border="0" align="center"
cellpadding="0" cellspacing="0">
<tr>
<td>&nbsp;</td>
</tr>
</table></td>
</tr>
</table>
<br />
<table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>&nbsp;</td>
<td><div align="center"><a href="javascript:;" target="_parent"
onclick="MM_nbGroup('down','navbar1','boton','../../../Images/boton/boton_f3
.jpg',1)"
onmouseover="MM_nbGroup('over','boton','../../../Images/boton/boton_f2.jpg',
'../../../Images/boton/boton_f3.jpg',1)"
onmouseout="MM_nbGroup('out');"><img src="../../../Images/boton/boton.jpg"
alt="Regresar" name="boton" width="77" height="29" border="0"
lowsrc="../../../Images/boton/boton.png" id="boton" /></a></div></td>
<td>&nbsp;</td>
</tr>
</table>
<br />

<map name="botonMap" id="botonMap"><area shape="rect" coords="4,3,74,27"
href="Fil1.asp" target="_self" alt="Regresar" />
</map></body>
</html>
<%
compDM.Close()
Set compDM = Nothing
%>

"Alex" wrote in message
news:
Hola que tal un gran saludo,, quisiera exponer mi problemita y ver si
alguine me puede brindar su ayuda
Tengo en una hoja llamada marca.asp con un List/box multiple ,, este combo
tiene 25 marcas y pueden seleccionar varias marcas hasta aqui todo bien,,
mi problemita surge en la siguiente hoja que es la que recibe la peticion,
es una hoja llamada resultados,asp, donde puse este codigito,, en donde


por
si solo si funciona correctamente ,, con lo cual compruebo que si esta
recibiendo los datos correctamente,, mi pregunta es, como puedo hacer para
que me tome el array como un filtro en la sentencia sql y me presente los
resultados solo de las marcas seleccionadas previamente???
Alguien me podria orientar o ponerme un ejemplo??

<%
Dim intNumberSelected
Dim strSelectedItems
Dim arrSelectedItems
Dim I

intNumberSelected = Request.Form("selItems").Count
strSelectedItems = Request.Form("selItems")
arrSelectedItems = Split(strSelectedItems, ", ", -1, 1)
%>
<%
For I = LBound(arrSelectedItems) To UBound(arrSelectedItems) %>
<%= arrSelectedItems(I) %><BR>
<%
Next 'I
%>

De antemano muchas gracias,, saludos


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida