Suma por campos

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

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