Ayuda con variable y mysql

chispe · #1 (**permalink**) 08/09/2010, 12:05

Tengo la siguiente duda tengo el siguiente codigo que muestra toda la informacion de unas maquinas que estan disponibles. Cuando se selecciona los checkbox este guarda los valores en una variable y despues los muestra.

La pregunta es ¿ Como puedo realizar una consulta para traer la informacion de las maquinas desde la base de datos con los datos que se guardan en la variable?

Código asp:

Ver original<%@LANGUAGE="VBSCRIPT"%>
<!--#include virtual="/Connections/Conecciones.asp" -->
<%
Dim Maquinas
Dim Maquinas_cmd
Dim Maquinas_numRows
 
Set Maquinas_cmd = Server.CreateObject ("ADODB.Command")
Maquinas_cmd.ActiveConnection = MM_Conecciones_STRING
Maquinas_cmd.CommandText = "SELECT * FROM maquinas" 
Maquinas_cmd.Prepared = true
 
Set Maquinas = Maquinas_cmd.Execute
Maquinas_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Maquinas_numRows = Maquinas_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Ingreso Maquinas al Ssitema</title>
</head>
<body>
<table width="200" border="0" align="center" class="readMore">
  <tr class="HeaderCentro">
    <td><!--#include file="header.asp" --></td>
  </tr>
</table>
<tr></td>
</tr>
<table width="585" border="0" align="center" class="rightTxt1">
<tr bgcolor="#FFFFFF">
  <td width="579" height="235" class="readMore"><form id="form1" name="form1" method="post" action="carro_vendedores.asp">
    <table width="427" border="0">
      <tr>
        <td width="47">ID</td>
        <td width="72">Serie</td>
        <td width="74">Tipo Maquina</td>
        <td width="36">&nbsp;</td>
        <td width="37">&nbsp;</td>
      </tr>
      <% 
While ((Repeat1__numRows <> 0) AND (NOT Maquinas.EOF)) 
%>
  <tr>
    <td><input name="maquina" type="checkbox" id="maquina" value="<%=(Maquinas.Fields.Item("serie_maquina").Value)%>">
      <label for="maquina"></label></td>
    <td><%=(Maquinas.Fields.Item("serie_maquina").Value)%></td>
    <td><%=(Maquinas.Fields.Item("tipo_maquina").Value)%></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Maquinas.MoveNext()
Wend
%>
 
 
    </table>
    <p>&nbsp;</p>
    <p>&nbsp;</p>
    <p>
      <input type="submit" name="enviar" id="enviar" value="Seleccionar Maquinas" />
  </p>
</form>
    <table width="545" border="0" align="center">
      <tr class="Centrar">
        <td width="114">Serie Maquina</td>
        <td width="75">Condicion Maquina</td>
        <td width="204">Tipo Maquina</td>
        <td width="103">Tipo Botellon</td>
        <td width="27">&nbsp;</td>
      </tr>
      <tr>
        <td><% 
     Dim mode,mode_a,i
     mode=Request("maquina")
      mode_a=split(mode,",")
      For Each item In mode_a
    Response.Write(item & "<br />")
Next
 
 %></td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        </tr>
    </table>
    <p>&nbsp;</p>
    <p>&nbsp;</p></td>
</tr>
</table>
<p class="Centrar">
 
</p>
</body>
</html>
<%
Maquinas.Close()
Set Maquinas = Nothing
%>

Gracias

Adler · #2 (**permalink**) 08/09/2010, 13:01

Hola

Sería algo así

Código ASP:

Ver originalDim Arr()
for each campo in Request.Form
valCampos = valCampos & Request.Form(campo)
next
 
division = Split(valCampos, ",")
 
for i = 0 to UBound(division)
redim preserve Arr(i+1)
Arr(i) = division(i)
next
 
Select campo FROM tabla WHERE campo = " & Join(Arr, " or campo = ")

Suerte

chispe · #3 (**permalink**) 09/09/2010, 09:10

Gracias pero , aun no puedo realizar la consulta, ya guarde los valores en el arreglo pero no se como realizar la consulta tengo esto:

Código asp:

Ver original<&#37; 
                
Set prueba = Server.CreateObject ("ADODB.Command")
prueba.ActiveConnection = MM_Conecciones_STRING
prueba.CommandText = "Select * FROM maquina WHERE serie_maquina =?" 
prueba.Prepared = true
prueba.Parameters.Append prueba.CreateParameter("param1", 202, 1, 50, ) 
    prueba.Execute
    prueba.ActiveConnection.Close
 %>

Asi se guardan los datos

Código asp:

Ver original<% Dim Arr()
for each maquina in Request.Form("maquina")
valCampos = Request.Form("maquina")
next
division = Split(valCampos, ",")
for i = 0 to UBound(division)
redim preserve Arr(i+1)
Arr(i) = division(i)
next
%>

Adler · #4 (**permalink**) 09/09/2010, 12:40

Hola

Esto no es lo que te he indicado

Cita:

for each maquina in Request.Form("maquina")
valCampos = Request.Form("maquina")
next

Sino

Cita:

for each maquina in Request.Form
valCampos = valCampos & Request.Form(maquina)
next

Para hacer la consulta, usa la función Join() como te indiqué anteriormente

Suerte

chispe · #5 (**permalink**) 09/09/2010, 14:02

Cita:

Iniciado por Adler

Hola

Esto no es lo que te he indicado
Sino
Para hacer la consulta, usa la función Join() como te indiqué anteriormente

Suerte

Gracias por la ayuda , utilizo esta forma:

Código:

for each maquina in Request.Form
valCampos = Request.Form(maquina)
next

porque con la otra forma me duplica los valores de los campos, pero de todas formas los guarda.

Pero sigo teniendo problema con la consulta:

Código:

   strSQL = "SELECT * from maquinas where serie_maquina = ('" & join(Arr)& "')"

cuando guardo un valor me muestra los datos , pero cuando son 2 no muesta los datos. Hice una prueba he imprimi los valores del arreglo y me di cuenta que los esta guardando pero el sql no puede leerlos. No se si me explico.

Salu2

Adler · #6 (**permalink**) 09/09/2010, 15:01

Hola

La manera de hacerlo sería

Cita:

strSQL = "SELECT * from maquinas where serie_maquina = " & Join(Arr, " or serie_maquina = ")"

aunque parece mas conveniente usar el operador IN

Suerte