[[Caral]]

Hola

Código Delphi [-]
// Esto no esta haciendo nada se lo comio el sql siguiente ya que usa el mismo query7
{
datam.Query7.SQL.Text:= 'Select * From 20092 Where matricula LIKE:variable';
datam.Query7.Parameters[0].Value:= '%'+ Edit1.Text +'%';
datam.Query7.Open;
}
datam.Query7.SQL.Text := ' select *, (exp + expgrup + pract1 + pract2 + pract3 + pract4 + pract5)As practica,( parcial1 + parcial2+ practica + final + trab_final) As tfinal from 20092';
datam.Query7.Filter:='matrciula Like '''+ Edit1.Text + '*''';
datam.Query7.Filtered:= True;

datam.Query7.Open;
 
datam.Query7.First;
while not datam.Query7.Eof do   // recorre la tabla en el query7
begin

datam.Qtemp.sql.Text := 'Update 20092 set practica = '+datam.Query7.fieldbyname('practica').AsString+' where matricula = '+QuotedStr(datam.Query7.fieldbyname('matricula').AsString);
datam.Qtemp.ExecSQL;

datam.Qtemp.SQL.Text := 'Update 20092 set tfinal = '+datam.Query7.fieldbyname ('tfinal').AsString+ ' where matricula = '+QuotedStr(datam.Query7.fieldbyname('matricula').AsString);
datam.Qtemp.ExecSQL; // ejecuta el query2
datam.Query7.Next;
end;  // termina el recorrido y luego la cierra y abre.

datam.Query7.Close;
datam.Query7.Open;

  end;

Saludos