Sumar valores de una celda de todos los registros encontrados

[fercom]

Hola a todos tengo una tabla que muestra los registros encontrados de la busqueda hecha a la BD, lo que quiero hacer es sumar todos los valores encontrados de una columna para sacar un promedio.

Por ejm. mi busqueda muestra todos los examenes de X alumno con sus respectivas Notas, lo que quiero hacer es colocar en algun lugar de la pagina un Promedio ponderado que viene a ser de la suma de todas la notas encontradas divididas entre la cantidad de notas encontras, parece facil pero no tengo idea por donde empezar.

Tengan en cuenta que los datos encontrados se muestran con una region repetida de todos los registros encontrados.

Agradezco la ayuda de antemano
saludos

[meru-kun]

Pues puedes sumar todas sus notas así:
strSQL = "SELECT NOTAS FROM TABLA WHERE USUARIO="&nUser
set mr = miconex.execute(strSQL)
Do while not mr.eof or mr.bof
intNota = intNota + mr("NOTAS")
mr.movenext
Loop
mr.close

Y luego, haces:
strSQL = "SELECT COUNT("NOTAS") AS Total FROM TABLA WHERE USUARIO="&nUser
set mr = miconex.execute(strSQL)
intTotal = mr("TOTAL")
mr.close

Y luego, simplemente:
nMedia = intNota / intTotal

Espero que te sirva :P

[debspain]

hola fercom! la nota media es de todos los alumnos o solo de los examenes de un solo alumno?

[fercom]

ES DE UN SOLO ALUMNO, EL ALUMNO SE CONECTA Y SOLO TIENE ACCESO A SUS DATOS, LA MEDIA ES DE SOLO UN ALUMNO, DE TODOS SUS EXAMENES.

HAGO MI CONEXION CON DREAMWEAVER MX 2004 SI LES SIRVE DE ALGO ESTA INFO. (POR QUE VEO QUE LOS PARAMETROS QUE USA LA PIMERA RESPUESTA SON DISTINTOS:

ESTA ES MI CONEXION

Código HTML:

<%
Dim RegistroNotas__IdNotas
RegistroNotas__IdNotas = "1"
If (Session("IdNotas") <> "") Then 
  RegistroNotas__IdNotas = Session("IdNotas")
End If
%>
<%
Dim RegistroNotas
Dim RegistroNotas_numRows

Set RegistroNotas = Server.CreateObject("ADODB.Recordset")
RegistroNotas.ActiveConnection = MM_ConCapacitacion_STRING
RegistroNotas.Source = "SELECT *  FROM dbo.RegistroNotas  WHERE Id_Empleado = '" + Replace(RegistroNotas__IdNotas, "'", "''") + "'  ORDER BY Substring(Fecha,7,4) Desc, Substring(Fecha,4,2) Desc, Substring(Fecha,1,2) Desc"
RegistroNotas.CursorType = 0
RegistroNotas.CursorLocation = 2
RegistroNotas.LockType = 1
RegistroNotas.Open()

RegistroNotas_numRows = 0
%>