Foros del Web - Ver Mensaje Individual

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.