Suma por campos

[[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

[[Caral]]

Hola
A ver si a la fuerza.

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

Haces tres update de la tabla independientemente.
Saludos
PD: MACO?????......

[aanil]

Hola Maco

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

Seguimos....