ver valor cargado en un campo del formulario

Pelao · #1 (**permalink**) 29/03/2007, 08:58

tengo el siguiente form y necesito saber que poner en el value del campo "bme" para que me devuelva el valor bme que tengo en el SQL.

Código:

<%
Dim cnn, rs, SQL
set cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
cnn.open "circulacion", "sa", ""
set rs = cnn.execute("SELECT * FROM costos_maxirest WHERE turno = 1 & and local = 1")
%>
<%
FInicio = "31/12/2006"
dia=DateDiff("d", FInicio ,date())
%>
<FORM METHOD="POST" ACTION="cargado.asp">
<%
for i = 1 to 31
%>
  <table width="70%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td><div align="center" class="Estilo10"><%=((Date() - dia) + i)%></div></td>
      <td><span class="Estilo10">
        <input name="bme<% = i %>" type="text" value="<% response.Write(rs.fields("bme").value) %>"/>
      </span></td>
      <td><div align="center" class="Estilo10">
        <input name="fecha<% = i %>" type="hidden" value="<%=((Date() - dia) + i)%>" /></td>
      <td><div align="center" class="Estilo10">
        <input name="turno<% = i %>" type="hidden" value="1" />
      </div></td>
      <td><div align="center" class="Estilo10">
        <input name="local<% = i %>" type="hidden" value="1" />
      </div></td>
    </tr>
  </table>
  <%next%>
      <INPUT TYPE="hidden" value="<% = i %>" name="cantidad"> 
	  <INPUT TYPE="hidden" value="<% = i %>" name="cantidad2">
	  <INPUT TYPE="hidden" value="<% = i %>" name="cantidad3">
	  <INPUT TYPE="hidden" value="<% = i %>" name="cantidad4">
	  <br>
      <INPUT TYPE="SUBMIT" value="Insertar">
      </p>
</p>
    </FORM>

gracias amigos :D

Adler · #2 (**permalink**) 30/03/2007, 06:01

Solo has de hacerlo así

value="<%=rs.fields("bme") %>"/>

Suerte

Pelao · #3 (**permalink**) 30/03/2007, 06:43

hola adler,
claro pero de esa forma me carga el valor "bme" que se encuentra en la posicion numero 1 para los 31 campos de mi formulario. Yo necesito que me muestre en cada campo de mi formulario el valor "bme" cargado en el SQL y no para todos el mismo.

tammander · #4 (**permalink**) 30/03/2007, 07:51

En la sentencia SQL:

SELECT * FROM costos_maxirest WHERE turno = 1 & and local = 1

Si solo necesitas el campo bme, pide ese campo solo. Estará más optimizado.

SELECT bme FROM costos_maxirest WHERE turno = 1 & and local = 1

Supongo que no sabes cuantos registros tiene esa tabla con esos criterios. Si sabes de antemano que van a ser 31 registros puedes hacerlo asi:

Código:

<%
Dim cnn, rs, SQL
set cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
cnn.open "circulacion", "sa", ""
set rs = cnn.execute("SELECT * FROM costos_maxirest WHERE turno = 1 & and local = 1")
rs.moveFirst()
%>
<%
FInicio = "31/12/2006"
dia=DateDiff("d", FInicio ,date())
%>
<FORM METHOD="POST" ACTION="cargado.asp">
<%
for i = 1 to 31
   if not rs.EOF and rs.RecordCount >= i then
         rs.move(i-1)
         valor_bme = rs("bme")
   end if
%>
  <table width="70%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td><div align="center" class="Estilo10"><%=((Date() - dia) + i)%></div></td>
      <td><span class="Estilo10">
        <input name="bme<% = i %>" type="text" value="<%=valor_bme %>"/>
      </span></td>
      <td><div align="center" class="Estilo10">
        <input name="fecha<% = i %>" type="hidden" value="<%=((Date() - dia) + i)%>" /></td>
      <td><div align="center" class="Estilo10">
        <input name="turno<% = i %>" type="hidden" value="1" />
      </div></td>
      <td><div align="center" class="Estilo10">
        <input name="local<% = i %>" type="hidden" value="1" />
      </div></td>
    </tr>
  </table>
  <%next%>
      <INPUT TYPE="hidden" value="<% = i %>" name="cantidad"> 
	  <INPUT TYPE="hidden" value="<% = i %>" name="cantidad2">
	  <INPUT TYPE="hidden" value="<% = i %>" name="cantidad3">
	  <INPUT TYPE="hidden" value="<% = i %>" name="cantidad4">
	  <br>
      <INPUT TYPE="SUBMIT" value="Insertar">
      </p>
</p>
    </FORM>

Espero no haber metido mucho la pata

Es que es viernes

Un saludo

Pelao · #5 (**permalink**) 31/03/2007, 15:54

gracias tammander

hice unas modificaciones por que no funcionaba y lo mas cerca que estuve fue que me toma algunos valores pero como salteados, aqui te dejo el codigo como lo tengo
los id van del 1 al 31 todos consecutivos los que necesito tomar.

Código:

   <%
Dim cnn, rs, SQL
set cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
cnn.open "circulacion", "sa", ""
set rs = cnn.execute("SELECT * FROM costos_maxirest")
rs.moveFirst()
%>
<%
FInicio = "31/12/2006"
dia=DateDiff("d", FInicio ,date())
%>
<FORM METHOD="POST" ACTION="cargado.asp">
<%
for i = 1 to 31
         rs.move(i-1)
         valor_bme = rs("bme")
%>
  <table width="70%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td><div align="center" class="Estilo10"><%=((Date() - dia) + i)%></div></td>
      <td><span class="Estilo10">
        <input name="bme<% = i %>" type="text" onBlur="MM_validateForm('bme<% = i %>','','NisNum');return document.MM_returnValue" value="<%=valor_bme %>"/>
      </span></td>
      <td><div align="center" class="Estilo10">
        <input name="fecha<% = i %>" type="hidden" value="<%=((Date() - dia) + i)%>" /></td>
      <td><div align="center" class="Estilo10">
        <input name="turno<% = i %>" type="hidden" value="1" />
      </div></td>
      <td><div align="center" class="Estilo10">
        <input name="local<% = i %>" type="hidden" value="1" />
      </div></td>
    </tr>
  </table>
  <%next%>
      <INPUT TYPE="hidden" value="<% = i %>" name="cantidad"> 
	  <INPUT TYPE="hidden" value="<% = i %>" name="cantidad2">
	  <INPUT TYPE="hidden" value="<% = i %>" name="cantidad3">
	  <INPUT TYPE="hidden" value="<% = i %>" name="cantidad4">
	  <br>
      <INPUT TYPE="SUBMIT" value="Insertar">
      </p>
</p>
    </FORM>

Pelao · #6 (**permalink**) 02/04/2007, 19:05

alguien sabe donde puede estar el error?
gracias

Shiryu_Libra · #7 (**permalink**) 03/04/2007, 01:30

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim cnn, rs, SQL
set cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
cnn.open "circulacion", "sa", ""
'rs.moveFirst()
%>
<%
FInicio = "31/12/2006"
dia=DateDiff("d", FInicio ,date())
%>
<FORM METHOD="POST" ACTION="cargado.asp">
<table width="70%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
for i = 1 to 31
set rs = cnn.execute("SELECT * FROM costos_maxirest")
valor_bme = rs("bme")
%>
<tr>
<td><div align="center" class="Estilo10"><%=((Date() - dia) + i)%></div></td>
<td><span class="Estilo10">
<input name="bme<% = i %>" type="text" onBlur="MM_validateForm('bme<% = i %>','','NisNum');return document.MM_returnValue" value="<%=valor_bme %>"/>
</span></td>
<td><div align="center" class="Estilo10">
<input name="fecha<% = i %>" type="hidden" value="<%=((Date() - dia) + i)%>" /></td>
<td><div align="center" class="Estilo10">
<input name="turno<% = i %>" type="hidden" value="1" />
</div></td>
<td><div align="center" class="Estilo10">
<input name="local<% = i %>" type="hidden" value="1" />
</div></td>
</tr>
<%
rs.move(i-1)
next%>
</table>
<INPUT TYPE="hidden" value="<% = i %>" name="cantidad">
<INPUT TYPE="hidden" value="<% = i %>" name="cantidad2">
<INPUT TYPE="hidden" value="<% = i %>" name="cantidad3">
<INPUT TYPE="hidden" value="<% = i %>" name="cantidad4">
<br>
<INPUT TYPE="SUBMIT" value="Insertar">
</p>
</p>
</FORM>

haber si te funciona asi amigo juan, observaciones:

si te fijas por lo señalado en letras grandes en el ciclo que has creado se introdujo la sentencia de consulta, de otra manera siempre seria el mismo numero,
movi el RS.MOVE(i-1) del inicio del FOR ya que no te desplegaria el primer registro, aunque lo mas recomendable seria RS.MOVENEXT ya que al estar al final del ciclo FOR, avanza al siguiente registro.

suerte

, intentalo y ya diras que paso

Pelao · #8 (**permalink**) 03/04/2007, 04:58

hermano hoy entrego el trabajo al cliente y gracias a ti lo resolvi, te debo una muy grande ya arreglaremos algo.

saludos desde aqui argentina para ti en el desierto de altar, sonora, mexico :D

Shiryu_Libra · #9 (**permalink**) 03/04/2007, 11:27

Cita:

Iniciado por Pelao

hermano hoy entrego el trabajo al cliente y gracias a ti lo resolvi, te debo una muy grande ya arreglaremos algo.

saludos desde aqui argentina para ti en el desierto de altar, sonora, mexico :D

que bueno que te fuimos de ayuda

, y a celebrar que haya

quedado
hasta la proxima