Foros del Web - Ver Mensaje Individual - 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>