Ayuda para hacer un update a un base de datos desde un combobox

rotsen24154 · #1 (**permalink**) 24/04/2010, 11:41

Hola, espero puedan ayudarme porfavor

!!!
Como puedo tomar todos los valores que eligen en el combobox de una columna y hacer un update de las calificaciones correspondientes de cada alumno, mi idea es que presionando un botón manden todas las calificaciones del primer periodo, presionando otro las del segundo y de igual forma para el tercero ,ah y los campos donde guardo las calificaciones son "primera", "segunda" y "tercera" de la tabla "cal_progra" jeje pues bueno espero puedan ayudarme porque la verdad soy muy nuevo en esto de la programación en Internet y quiero aprender

Gracias!!
ai les dejo mi código aquí para ver si esta bien o mal lo que llevo porfavor!!

Cita:

<html>
<head>
<link href="Estilo.css" rel="stylesheet" type="text/css"/>
</head>
<body>
<table border=1>
<th>Boleta</th>
<th>Apellido Paterno</th>
<th>Apellido Materno</th>
<th>Nombre</th>
<th colspan="3"><p>Programación</p><p>orientada a objetos</p></th>
<%

Dim SqlStr

Set Basededatos=CreateObject("ADODB.Connection")
Set ApuntadoTabla=CreateObject("ADODB.RecordSet")
Basededatos.open "DSN=proyecto"

SqlStr = "SELECT Alumnos.Numero_boleta, Alumnos.nombre, Alumnos.apellido_pate, Alumnos.apellido_mate FROM Alumnos order by apellido_pate"

If ApuntadoTabla.state Then ApuntadoTabla.close
ApuntadoTabla.open SqlStr, Basededatos
Do While Not ApuntadoTabla.EOF
response.write "<tr>" & vbNewLine
response.write "<td>" & ApuntadoTabla("Numero_boleta") &"</td>" & vbNewLine
response.write "<td>" & ApuntadoTabla("apellido_pate") &"</td>" & vbNewLine
response.write "<td>" & ApuntadoTabla("apellido_mate") &"</td>" & vbNewLine
response.write "<td>" & ApuntadoTabla("nombre") &"</td>" & vbNewLine
response.write "<td class=hola2><SELECT NAME=selCombo1 SIZE=1> <OPTION VALUE=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></td>" & vbNewLine
response.write "<td class=hola2><SELECT NAME=selCombo2 SIZE=1> <OPTION VALUE=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></td>" & vbNewLine
response.write "<td class=hola2><SELECT NAME=selCombo3 SIZE=1> <OPTION VALUE=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></td>" & vbNewLine
response.write "</tr>" & vbNewLine
ApuntadoTabla.MoveNext
Loop

%>
</table>
<body>
</html>

Adler · #2 (**permalink**) 24/04/2010, 15:51

Hola

No tamizas la consulta, así que te traerá todos los registros que tienes en esa tabla.
Presuponiendo, lo que quieres es que un usario seleccione de los combos sus 3 notas, sumite el formulario y actualize ese registros.
No lo conseguirás, ya que
1 No estás metiendo todos esos campos en un formulario
2 No estás sacando ninguna id para saber que registro actulizar
3 El nombre de los 3 combos es el mismo
4 Aunque le des un nombre distinto a cada combo, habrá mas de uno con el mismo nombre
5 .....

Tal y como yo lo veo tienes dos opciones, o usar AJAX, para así actualizar el registro correcto, o tamizar la consulta para que solo muestre los datos de un solo registro

Suerte