Haber si te sirve este ejemplo
Procedure TFPoblaciones.Actualiza;
var
Buscar : Integer;
Begin
try
CursorReloj;
Buscar := FPoblacionesDM.QPoblacionesid_Poblacion.AsInteger;
FPoblacionesDM.QPoblaciones.Close;
FPoblacionesDM.QPoblaciones.Open;
FPoblacionesDM.QPoblaciones.locate('id_Poblacion',Buscar, [loPartialKey]);
CursorFlecha;
except
CursorFlecha;
raise;
exit;
end;
end;
__________________
Gabriel
|