Coger valores al mismo tiempo

Batan · #1 (**permalink**) 21/09/2010, 03:47

Hola saludos a todos.

Queria saber como podria enviar los valores que coga de todos los select select y que al darle a un unico boton cambie las notas de su correspondiente registro.

Alumno_registrado.asp

Cita:

Código ASP:

Ver original<&#37;
Dim sql
Dim BD
Dim recordset
Dim ruta_fichero
ruta_fichero=server.mappath("Calificaciones.mdb")
Set BD=Server.createobject("ADODB.connection")
BD.Open"provider=Microsoft.jet.OLEDB.4.0;Data Source="&ruta_fichero
sql="SELECT *from Alumnos"
Set recordset=CreateObject("ADODB.recordset")
recordset.open sql,BD
 
Response.write ("<table border='1' cellpadding='0' cellspacing='0' style='border: 1px solid #aaaaaa;color:#8D0905' width='100%'><tr><td width='33%' align='center'><b>Nombre</b></td><td width='33%' align='center'><b>Nota</b></td><td width='34%' align='center'><b>Aptitud</b></td></tr></table><br>")
response.write ("<table width='100%' border='1' cellpadding='0' cellspacing='0' style='border: 1px solid #aaaaaa;color:#373737;font-family:arial;font-size:12'")
recordset.movefirst
    While Not recordset.eof or recordset.Bof
        if recordset.fields("Nota")>4 then
            response.write ("<tr bgcolor='#D7E4FF'><td width='33%' align='center'>")
            response.write recordset.fields("Nombre")
' En el action creo la ruta del querystring con el valor del campo Matricula de la base de datos.
            response.write ("</td><td width='33%' align='center' valign='middle'><br><form action='nota_cambio.asp?matri="&recordset.fields("Matricula")&"' method='post'>")
            response.write recordset.fields("Nota")
'el select envia la nota a la que se va actualizar.
            response.write (" <select name='nota_cambio'><option value='0'>0</option><option value='1'>1</option><option value='2'>2</option><option value='3'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option></select>")
            response.write ("</td><td width='34%' align='center'>")
            response.write ("Apto")
            response.write ("</td></tr>")
        Else
            response.write ("<tr bgcolor='#FFD2D2'><td width='33%' align='center'>")
            response.write recordset.fields("Nombre")
' En el action creo la ruta del querystring con el valor del campo Matricula de la base de datos.
            response.write ("</td><td width='33%' align='center' valign='middle'><br><form action='nota_cambio.asp?matri="&recordset.fields("Matricula")&"' method='post'>")
            response.write recordset.fields("Nota")
'el select envia la nota a la que se va actualizar.
            response.write (" <select name='nota_cambio'><option value='0'>0</option><option value='1'>1</option><option value='2'>2</option><option value='3'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option></select>")
            response.write ("</td><td width='34%' align='center'>")
            response.write ("No apto")
            response.write ("</td></tr>")
        end if
recordset.movenext
    Wend 
response.write("</table>")
response.write("<br><center><input style='background-color:#5474F1;border-color:#0C3DAF:;width: 150px;height:25px;font-family: verdana;border: 1px solid #103EF5;color: #FFFFFF;font-weight: bold;font-size:10' type='submit' value='CAMBIAR NOTAS'></form></center>")
response.write("<br><br>")
BD.close
Set BD=Nothing 
%>
 
<!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>
 
<style type="text/css">
#nombre {
    font-family:Verdana; 
    font-size:15px;
    color:#1F1F1F}
 
#boton {
    background-color:#5474F1;
border-color:#0C3DAF:;
    width: 60px;
    font-family: verdana;
    border: 1px solid #103EF5;
    color: #FFFFFF;
    font-weight: bold;
    font-size: 10px;}
    
#alum {
    font-family:Verdana;
    font-size:12px;
    color:#8D0905;
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin t&iacute;tulo</title>
</head>
 
<body>
<form action="nota.asp" method="post">
<div id="alum">
  <div align="center"><strong>Alumno registrado</strong></div>
</div>
    <br />
    <div id="nombre">
      <div align="center">Nombre:
        <input name="nombre"> 
        Matricula: <input name="matricula">
        <select name="nota">
          <option value="0">0</option>
          <option value="1">1</option>
          <option value="2">2</option>
          <option value="3">3</option>
          <option value="4">4</option>
          <option value="5">5</option>
          <option value="6">6</option>
          <option value="7">7</option>
          <option value="8">8</option>
          <option value="9">9</option>
          <option value="10">10</option> 
        </select>
      </div>
    </div>
    <div align="center">
      <input id="boton" type="submit" value="ENVIAR">
     </div> <br/>
</form>         
</body>
</html>

nota_cambio.asp

Cita:

Código ASP:

Ver original<%option explicit
'defino las variables
'<---
Dim nota_cambio
Dim nom
Dim sql
Dim BD
Dim ruta_fichero
Dim nombre
'--->
 
nom=request.Querystring("matri")'con el querystring llamo a lo que contenga el parametro matri de alumno_registrado.asp
nota_cambio=request.form("nota_cambio")'contiene el valor del select que envio del boton submit echo en asp
ruta_fichero=server.mappath("Calificaciones.mdb")'Base de datos con 4 campos: Matricula(numerico, clave primaria), Nota(numero), Aptitud(char), Nombre(char) base de datos de accsess
Set BD=Server.createobject("ADODB.connection")
BD.Open"provider=Microsoft.jet.OLEDB.4.0;Data Source="&ruta_fichero
 
    sql="update Alumnos set Nota="&nota_cambio&" where Matricula="&nom&""'este es un update que me actualiza la nota. cuando elijo el valor del select se queda grabado en la variable nota_cambio y  en matricula se queda grabado la matricula de cada alumno
 
BD.execute(sql)'ejecuto la sentencia sql
BD.close'cierro la base de datos
Set BD=Nothing 
Response.Redirect("alumno_registrado.asp")'para finalizar redirecciono a alumno_registrado.asp y con los camios ya echos
%>

estan alojados en brinkster.
http://angelgon.brinkster.net/Prueba_/alumno_registrado.asp

No encuentro la forma de guardarlos en variables distintas aunque supongo que ese no seria la forma correcta. Y si la es nose como programarla.

Ya habia echo algo parecido en http://angelgon.brinkster.net/Prueba/alumno_registrado.asp (me ayudasteis en un problema con el querystring) pero en este caso cree un boton para cada registro y lo que quiero es cambiar las notas pero con un unico boton.
Queda mejor supongo.

Saludos y gracias.

Adler · #2 (**permalink**) 21/09/2010, 04:26

Hola

No he entendido gran cosa. Intenta replantear la explicación. También sería conveniente que nos mostrases el HTML que se genera al ejecutar Alumno_registrado.asp

Suerte

Batan · #3 (**permalink**) 21/09/2010, 04:36

Me explico.
Quiero cambiar las notas de cada alumno, eligiendo primero los valores para las notas y una vez haya elegido esos valores para cada registro(alumno), darle al boton y se actualicen las notas de todos los alumnos por el valor que se haya asignado a su respectivo select.

Puedes probar el que tengo en
http://angelgon.brinkster.net/Prueba/alumno_registrado.asp
Es igual solo que en este caso eligo primero las notas y al darle al unico boton que hay,se actualicen las notas.

Aqui tengo el HTML del unico boton:
alumno_registrado.asp

Adler · #4 (**permalink**) 21/09/2010, 05:50

Hola

Yo lo dejaría tal y como está, solamente que usaría AJAX para no cargar una y otra vez la página. No sé si esto te convence

Suerte

Myakire · #5 (**permalink**) 21/09/2010, 06:57

En lo personal estoy de acuerdo que haya solo un botón, eso de darle "OK" por cada cambio con Ajax o sin el como que es una lata (y actualizarlo con Ajax por cada change de la lista tampoco por que puede estar solo jugueteando con las calificaciones).

Viendo tu ejemplo creo que esta fácil, tendrías que tener un solo formulario (no uno por cada lista como ahora) y a cada Select ponerle el Id del alumno de nombre, luego en tu página de actualización recorres la colección Request.Form y hacer la actualización por cada item

for each control in request.form
for indice=1 to request.form(control).count
Cmd.Execute ("UPDATE alumnos_cal SET Calificacion = " & request.form(control)(indice) & " WHERE idAlumno = " & control)
next
next

Bueno, esa es la idea que se me ocurre así a lo rápido

Saludos!

Adler · #6 (**permalink**) 21/09/2010, 08:08

Hola

Es en la primera opción que pensé, pero luego me dí cuenta que habría que actualizar todos los campos, aunque solamente se hubiese modificado uno. Luego pensé en hacer un filtrado para saber que campos llegaban vacíos, de esta manera queda solventado el problema, pero luego me di cuenta que habría que hacer un filtrado y es lo que no supe como resolver. Llegué al mismo código que expones, en el cual haces el filtrado usando control, que lo único que trae es el nombre del campo.
¿Me equivoco? no lo he probado

Batan · #7 (**permalink**) 21/09/2010, 08:36

Yo tampoco lo he provado acabo de ver el mensaje pero aun asi cuando recoges la id y el valor en el select ya se quedan grabados,y solo tienes que llamarlos mediante el request en la pagina del actualizacion.
Pero no se como poner la id en el select para cada registro.

Adler · #8 (**permalink**) 21/09/2010, 12:05

Hola

Tendría que ir en el value de cada option y después con la función Split() dividirlo

Cita:

<option value="1-10">1</option>
<option value="2-10">1</option>
.....

Suerte

Batan · #9 (**permalink**) 21/09/2010, 15:09

Gracias. Lo voy a probar

Myakire · #10 (**permalink**) 22/09/2010, 07:07

Ya me perdí ....

Pero por si entendí que Adler te esta sugiriendo poner el Id del alumno junto con el valor en cada propiedad value pues como que no comulgo con ello, ¿por qué no poner de NOMBRE el ID y dejas el value con la calificación como asume el código que puse?

Quizá el que ahora no entiende soy yo

Batan · #11 (**permalink**) 22/09/2010, 07:39

Segun dijo Adler quedaria algo como esto?

Código ASP:

Ver originalresponse.write (" <select name='nota_cambio'><option value='"&recordset.fields("Matricula")&"-0'>0</option><option value='"&recordset.fields("Matricula")&"-1'>1</option><option value='"&recordset.fields("Matricula")&"-2'>2</option><option value='"&recordset.fields("Matricula")&"-3'>3</option><option value='"&recordset.fields("Matricula")&"-4'>4</option><option value='"&recordset.fields("Matricula")&"-5'>5</option><option value='"&recordset.fields("Matricula")&"-6'>6</option><option value='"&recordset.fields("Matricula")&"-7'>7</option><option value='"&recordset.fields("Matricula")&"-8'>8</option><option value='"&recordset.fields("Matricula')&"-9">9</option><option value='"&recordset.fields("Matricula")&"-10'>10</option></select> <input style='background-color:#0B5795;border-color:#0C3DAF:;width: 25px;font-family: verdana;border: 1px solid #103EF5;color: #FFFFFF;font-weight: bold;font-size: 10px;' type='submit' value='OK'></form>")

Elde Myakire no entendi a que se refiere. Lo siento.

Adler · #12 (**permalink**) 22/09/2010, 07:41

Hola

Cita:

Iniciado por Myakire

Ya me perdí ....

Pero por si entendí que Adler te esta sugiriendo poner el Id del alumno junto con el valor en cada propiedad value pues como que no comulgo con ello, ¿por qué no poner de NOMBRE el ID y dejas el value con la calificación como asume el código que puse?

Quizá el que ahora no entiende soy yo

Si usa de nombre el id del usuario, cuando despliegue el select tendrá que ponerse a contar hasta que llegue a la opción que busca. Como dije en un post anterior puede que me equivoque, ya que no lo he probado, pero creo que control es el nombre del campo, si me equivoco, entonces todo esto no tiene punto

Un saludo

Edito: Justamente a eso me referí. Lo que sugiere @Myakire, creo que es algo como esto

Cita:

<option value=""0"">"&recordset.fields("Matricula")&"</option>
<option value=""1"">"&recordset.fields("Matricula")&"</option>
<option value=""2"">"&recordset.fields("Matricula")&"</option>

Myakire · #13 (**permalink**) 22/09/2010, 16:13

Me da miedo pensar que eso es lo que di a entender ...

Copia y pega esto en un archivo .asp y correlo, eso es lo que quería decir:

Código ASP:

Ver original<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%
if request("btn")<>"" Then
   for each control in request.form
       for indice=1 to request.form(control).count
           Response.write ("UPDATE alumnos_cal SET Calificacion = " & request.form(control)(indice) & " WHERE idAlumno = " & control & "<br>")
       next
   next
End if
%>
<html>
<head>
<title>Page title</title>
</head>
<body>
<form method="post">
<%
vecUsuarios = array("juan", "pedro", "luis", "hugo", "sandra", "verónica") 
For Cnt=1 To UBound(vecUsuarios)
%>
Usuario <%=vecUsuarios(Cnt)%>
<select name="Cal_de_<%=vecUsuarios(Cnt)%>">
<%For i=0 To 10%>
<option value="<%=i%>"><%=i%></option>
<%Next%>
</select>
<br>
<%Next%>
 
<input name="btn" style='background-color:#0B5795;border-color:#0C3DAF:;width: 25px;font-family: verdana;border: 1px solid #103EF5;color: #FFFFFF;font-weight: bold;font-size: 10px;' type='submit' value='OK'>
</form>
 
 
</body>
</html>

La idea es que con un solo botón se generen todas las intrucciones que actualicen la calificación de cada alumno

Adler · #14 (**permalink**) 23/09/2010, 04:30

Blanco y en botella?

Ahhhh, orchata!!!

Muy bueno!!

Batan · #15 (**permalink**) 23/09/2010, 09:00

Gracias me va a servir como orientacion. Como valor de esa variable podria poner recordset.fields("Nombre") ya que los campos se guardan en una base de datos en el que pueden anadir nuevos registros.

Tengo bien echo la primera de las pruebas que hice.
http://angelgon.brinkster.net/Prueba-3/alumno_registrado.asp

Creeis que podria poner algo mas?Lo digo para practicar.