Suma por campos

[aanil]

Hola Caral.

No puedo enviarte la DB, ya que no me lo permite, por razones de tamaño

Te digo que esta hecha en access y se llama “Alumnos_uasd” con una tabla que se llama 20092, con los siguientes campos definidos.

Matricula: Texto
Nombre:Texto
Centro:Texto
Asignatura: Texto
Clave : Texto
Seccion: Texto
A1: Texto
A2: Texto
A3: Texto
A4: Texto
A5: Texto
A6: Texto
A7: Texto
A8: Texto
A9: Texto
A10: Texto
EXP: numero
ExpGrup: numero
Pract1: numero
Pract2: numero
Pract3: numero
Pract4: numero
Pract5: numero
Practica: numero
Parcial1: numero
Parcial2: numero
Parciales: numero
Trab_Final: numero
Final: numero
Final: numero
Comentarios:texto
**********************
Saludos……

[[Caral]]

Hola
1. la tabla estaba incompleta.
2- no coincidían los datos de la bd con el programa
No se como se maneja el programa pero revisando y cambiando estos problemas actualiza perfectamente y no da ningún error.
Particularmente no lo haría con una sola tabla, se ve desordenado y obliga a actualizar muchos campos a la vez.
Yo haría varias tablas, incluyendo las notas por aparte y solo enlazaría.
Colocaría un ini para poder colocar la bd donde guste, ademas de un login para darle privacidad.
Saludos
PD: Si vas a enviar algo, no incluyas el exe, ocupa mucho espacio y es innecesario.

[aanil]

Hola Caral.

Si el programa que me retorna a ti te funciona, aqui me da el mismo problema.

Lo he revisado campo por campo y siempre da el mismo error.

Seguire revisando para determinar donde es que se produce el error.

Voy a tratar se hacer dos tablas relacionadas.

Saludos.

[aanil]

Hola.

Si se puede corregir este ejemplo y me dicen donde estan los errores, creo que podre completar mi proyecto.


AAnil

[*Caro*]

Empezado por aanil

Hola.

Si se puede corregir este ejemplo y me dicen donde estan los errores, creo que podre completar mi proyecto.


AAnil

Hola Aanil, ¿cual es el error que te esta dando?

Saluditos

[*Caro*]

Hola de nuevo aanil, acabo de revisar tu codigo y veo que tienes algunos errores.

1.- Si vas a cambiar tu consulta en ejecución como lo estas haciendo es mejor no utilizar campos persistentes, o por lo menos debes añadir todos los campos que tienes como persistentes en tu consulta, eso en "Calcular".

2.- No le pongas como Alias, los nombres de campos de tu tabla, como TNotas...

3.- Has un Close cada ves que ejecutas una nueva consulta esto entre tus Updates seguidos.

Te adjunto el pas y dfm, espero que ahora si te funcione, sino, debes indicarnos los errores exactos que te da y mejor aún en la línea de codigo que te esta dando.

Saluditos

[aanil]

Hola Caro

En mi proyecto el error que se produce es este:

Project, Project1.exe raised esception class EOleException with message
'Error de sintaxis en la instruccion UPDATE', Process Stopped. Use Step o
Run to continue.

Este error lo produce en la primera actualizacion de un estudiantes cualquiera,
Luego no lo produce, y actualiza los campos, pero hay que darle doble clic al boton actualizar.

Este codigo lo he puesto de todas formas, juntos, separados, con dos botones y siempre lo mismo.

Código SQL [-]
with datam.Query1 do begin
   SQL.Text := ' select *, (exp + expgrup + pract1 + pract2 + pract3 + pract4 + pract5)As practica from 20092';
   SQL.Text := ' select *,( parcial1 + parcial2) As parciales from 20092';
   SQL.Text := ' select *,(practica + parciales + final + trab_final) As tfinal from 20092';
Filter:='matricula Like '''+ Edit1.Text + '*''';
Filtered:= True;
Open;

datam.Query1.First;
while not datam.Query1.Eof do   // recorre la tabla en el query1
begin
  // hace el update del query2
datam.Query2.sql.Text := 'Update 20092 set practica = '+datam.Query1Practica.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
datam.Query2.ExecSQL;

datam.Query2.SQL.Text := 'Update 20092 set parciales = '+datam.Query1Parciales.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
datam.Query2.ExecSQL;

datam.Query2.SQL.Text := 'Update 20092 set tfinal = '+datam.Query1tfinal.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
datam.Query2.ExecSQL; // ejecuta el query2
datam.Query1.Next; // recorre el query1 hasta el final

En la primera ejecución cuando se produce el error se para en esta línea del código que te presento.

Código SQL [-]
datam.Query2.SQL.Text := 'Update 20092 set parciales = '+datam.Query1Parciales.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);

Luego reinicio y ya el problema no sale con el estudiante en cuestión, luego se produce cuando se le colocan las notas al siguiente estudiante consultado y así sucesivamente.

Gracias por tomarnos en cuenta.