Suma por campos

[aanil]

Hola Maco

Ahora se para en el primer datam.Query1.Next; y dice error de sintaxis.

Seguimos....

[[Caral]]

Hola
No se que estas haciendo, pero mi primera intervención estaba correcta, solo que lo hice de memoria y ya no da mas.
Fijate en lo que haces aqui:

Código Delphi [-]
procedure TForm3.BitBtn2Click(Sender: TObject);
datam.Query1.SQL.Text := ' select *,(exp + expgrup+ pract1 + pract2+ pract3 + pract4 + pract5) As Practica from 20092';
datam.Query1.SQL.Text := ' select *,( parcial1 + pasrcial2) As parciales from 20092';
datam.Query1.SQL.Text := ' select *,( practica + parciales + final) As Calf_final from 20092';
 datam.Query1.Open;
end;

Un solo query para todo, pero lo REESCRIBES quedando solo el ultimo.
Para hacer eso se necesita hacerlo asi:

Código Delphi [-]
procedure TForm3.BitBtn2Click(Sender: TObject);
datam.Query1.SQL.Text := ' select *,(exp + expgrup+ pract1 + pract2+ pract3 + pract4 + pract5) As Practica,'+
'( parcial1 + pasrcial2) As parciales, ( practica + parciales + final) As Calf_final  from 20092';
datam.Query1.Open;
end;

El codigo funciona perfectamente como lo indique.
Aqui esta el codigo con TRES update seguidos sin poblemas.
Saludos

[aanil]

Caral:

Parece que tengo algo malo en mi composicion, ya que se produce el error al actualizar la ultima sentencia, o sea, en esta, que es donde se para el programa.

Código SQL [-]
datam.Query2.SQL.Text := 'Update 20092 set calif_final = '+datam.Query1calif_final.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
datam.Query2.ExecSQL; // ejecuta el query2

En lo anterior si se actualiza.

Seguire viendo a ver donde es que esta el problema.


Mil Gracias por tu ayuda.

[[Caral]]

Hola
Coloca el programa y la BD en un Zip aqui y lo reviso.
Saludos

[aanil]

Hola:

Ahora te envío el programa, mas adelante DB, ya que parece que no me permite por el tamaño.

[aanil]

Ahora te envío la DB que va dentro de la Carpeta Estudiantes

[aanil]

Parece que tengo que mandarte la otra parte cuando baje esta primera parte.