Como tratar erro de PK (primary key) e FK (secund. key) ?

Question

Ao tentar deletar um arquivo que existe uma dependencia da erro de chave estrangeira. Como tratar este erro ! Estou usando apenas querys. N�o uso table em momento algum de minha aplica��o. Como tratar...

Travain · Answer

Voc� deve colocar no evento de erro da query o seguinte c�digo:

Se for erro de chave prim�ria o Firebird retorna este n�mero: 335544665
Se for erro de chave estrangeira � este: 335544466

if errcode = 335544665 then
begin
MessageDlg(�J� existe esse registro.�,mtWarning,[mbOK],0);
abort;
end;

Na sua aplica��o voc� coloca a mensagem de erro que voc� quiser.

At� mais.

Afarias · Answer

caso esteja usando IBX, um exemplo usando blobos TRY...EXCEPT seria::

try
{opera��o, ex: IBQuery1.Post}
except
on E: EIBInterBaseError do
HandleIBError(E.SQLCode, E.IBErrorCode);
end;

{ ... }

procedure HandleIBErrorCode(SQLCode, IBErrorCode: Integer);
begin
case IBErrorCode of
335544665: {mensagem de erro chave prim�ria}
335544466: {mensagem de erro chave estrangeira}
end;
end;

todos c�digos de erro do IB vc encontra no manual INTERBASE LANGUAGE REFERENCE.

T+

F�rum Como tratar erro de PK (primary key) e FK (secund. key) ? #40472