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