Estimados Sres Tengo este formulario el cual utilizo Firebird y el componente DBExpress el cual tambien tengo DataSet, el proveedor y su respectivo DataSource
sin embargo en Firebird tengo en la tabla lo siguiente:
Código SQL
[-]ALTER TABLE CLIENTES ADD CONSTRAINT UQ_CLIENTES UNIQUE (CEDULA);
esto para evitar duplicidad de registro en el campo Cédula.
Sin embargo en delphi para manejar la excepcion que me manda tengo esto en el Boton de Guardar
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 begin
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;
Lo malo es que no me maneja la excepcion no se en que estaré fallando
si tienen alguna idea que error cometa favor espero sus respuestas...
Saludos
novato_erick