Ver Mensaje Individual
  #2  
Antiguo 11-12-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
Que yo sepa la excepción es para devolver la tabla a su estado anterior a la ultima operacion:
Código Delphi [-]
procedure TfrmCliente.btnGuardarClick(Sender: TObject);
begin
  try
    dmAcceso.cdsClientesPAIS.Value := cbexPais.text;
    dmAcceso.cdsClientes.Post;
    dmAcceso.cdsClientes.ApplyUpdates(0);
    cbexPais.text := 'Otro';
  except
    on E:Exception do // error DBExpress
    begin
      dmAcceso.IBTransaction1.RollbackRetaining;
      ShowMessage(#13+E.Message);
    end;
end;
  if Application.MessageBox('¿Desea Agregar Otro?', 'Confirmación',
    MB_ICONQUESTION OR MB_YESNO) = ID_NO then
  begin
    frmPrincipal.CerrarPestana;
  end
  else
  Begin
    dmAcceso.cdsClientes.Active := False;
    dmAcceso.cdsClientes.Active := True;
    dmAcceso.cdsClientes.Last;
    dmAcceso.cdsClientes.Insert;
  end;
 end;
Saludos
__________________
Siempre Novato
Responder Con Cita