Suma por campos

[[Caral]]

Hola
Me imagino que el campo esta en al misma tabla.
Lo que se hace es recorrer la tabla y hacer un update según el nombre.
Aquí esta el mismo ejemplo con esta modificación.
Saludos

[aanil]

Hola Caral.

Guiandome por el ejemplo que me enviaste hice esto:

procedure TForm3.BitBtn3Click(Sender: TObject);
begin

Código SQL [-]
datam.Query1.First;
   while not datam.Query1.Eof do   // recorre la tabla y hace el update
   begin
    datam.Query1. sql.Text := 'Update 20092 set practica = '+datam.Query1Practica.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
    datam.Query1.SQL.Text := 'Update 20092 set parciales = '+datam.Query1Parciales.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
    datam.Query1.SQL.Text := 'Update 20092 set calf_final = '+datam.Query1calif_final.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);

    datam.Query1.ExecSQL;
  datam.Query1 .Next;

end;
end;


procedure TForm3.BitBtn2Click(Sender: TObject);
begin

Código SQL [-]
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;

end.


El error se produce en datam.Query1 .Next;

Dice error de sintaxis en la instrucción UPDATE

Mas o menos siento que estoy cerca de llegar al final de mi proyecto, pero me falta algo por comprender.

Sera que debo de usar EQTemp.Sql? y no se de donde sale.

Gracias

[[Caral]]

Hola
Coloca otro query en el datamodule. (query2)
A este query lo llamas como gustes, yo lo llame EQTemp (ya que lo uso en cualquier lado como temporal, es un query normal y corriente).
Si haces el update en el mismo query borra el contenido del anterior, entonces no encuentra nada y da un error de sintaxis u otros.
No puedes hacer un update sin no hay información, ya la borraste usando el mismo query.
Nada mas pon otro query, asi:

Código Delphi [-]
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.SQL.Text := 'Update 20092 set parciales = '+datam.Query1Parciales.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
    datam.Query2.SQL.Text := 'Update 20092 set calf_final = '+datam.Query1calif_final.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);

    datam.Query2.ExecSQL; // ejecuta el query2
  datam.Query1 .Next; // recorre el query1 hasta el final

Saludos

[aanil]

Hola Caral:

Realmente no entiendo donde es que esta mal porque con tu codigo sigue produciendo el mismo error

Señala en azul este: datam.Query1.Next; // recorre el query1 hasta el final
Y sigue diciendo que es un error de sintaxis.
Que podra ser?

AAnil.

[[Caral]]

Hola
Intentemos lo asi:

Código Delphi [-]
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 calf_final = '+datam.Query1calif_final.AsString+' where matricula = '+QuotedStr(datam.Query1matricula.AsString);
 datam.Query2.ExecSQL; // ejecuta el query2

  datam.Query1 .Next; // recorre el query1 hasta el final

Me parece que son varios update y se tienen que ejecutar uno por uno.
Saludos
Pd: Si no funciona se podria colocar un query por update, pero me parece que no se necesario, con solo ejecutarlo servira.

[aanil]

Hola

Ahora se para en este punto.

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

Y dice lo mismo.

No encuentro el problema

[aanil]

Hola Caral..

Realmente con el primer codigo se ejecuta, luego cuando pasa al segundo codigo se produce el error.

Lo hice solo con uno solo así:

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

y fiunciona correctamente.

Donde esta el Maco?

Aanil