[aanil]

Hola,

Este codigo estaba funcionando, ahora no hace nada no actualiza la tabla.

Este codigo no presenta error, pero no me actualiza la tabla

Código Delphi [-]
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.Query7.Next;
end;

while not datam.Query7.Eof do
begin

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;

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

 end;

 end;
  end;

Que podría haber pasado?

Saludos a todos.