Caral, ahora yo hice esto y de esta manera funciona sin problemas.
Código Delphi
[-]while not datam.Query1.Eof do begin
datam.Qtemp.sql.Text := 'Update 20092 set practica = '+datam.Query1.fieldbyname('practica').AsString+' where matricula = '+QuotedStr(datam.Query1.fieldbyname('matricula').AsString);
datam.Qtemp.ExecSQL;
datam.Query1.Next;
end;
while not datam.Query1.Eof do
begin
datam.Qtemp.SQL.Text := 'Update 20092 set tfinal = '+datam.Query1.fieldbyname ('tfinal').AsString+ ' where matricula = '+QuotedStr(datam.Query1.fieldbyname('matricula').AsString);
datam.Qtemp.ExecSQL; datam.Query1.Next;
end;
datam.Query1.Close;
datam.Query1.Open;
end;
Una pregunta mas.. Como yo hago para que no me de un mensaje que dice
"Argumentos incorrectos, fuera del intevalo permitido o en conflicto con otros" , esto se produce si uno no escribe la matricula en el Tedit.
Gracias.