Mensagem de erro na exclusao de registro relacionado

Question

Ola,Como faco para me dar uma msg de erro na hora de excluir o registro relacionado (chave estrangeira)?Se possivel, sem q eu tenha q ir na tbl e verificar se tem algo relacionado a este codigo.[code:...

Lucianorw · Answer

Achei isto, mas naum sei onde colocar para chamar as msg de erro

procedure Tdados.appeventException(Sender: TObject; E: Exception);
begin
if ( E is EIBInterBaseError ) then
  begin
     if ( EIBInterBaseError(E).IBErrorCode = 335544466 ) then
        Application.MessageBox( PChar( �N�o � poss�vel excluir este registro, pois existem outras informa��es no sistema que dependem do mesmo.� ), �Aten��o !!!�, MB_ICONEXCLAMATION )
     else if ( EIBInterBaseError(E).IBErrorCode = 335544510 ) then
        Application.MessageBox( PChar( �N�o � poss�vel continuar com a opera��o.� + #13 + �O banco de dados est� sendo utilizado.� ), �Aten��o !!!�, MB_ICONEXCLAMATION )
     else if ( EIBInterBaseError(E).IBErrorCode = 335544375 ) then
        Application.MessageBox( PChar( �O servidor de banco de dados n�o est� aberto.� + 13 + �Verifique e tente novamente.� ), �Aten��o !!!�, MB_ICONEXCLAMATION )
     else if ( EIBInterBaseError(E).IBErrorCode = 335544344 ) then
        Application.MessageBox( PChar( �N�o foi poss�vel encontrar o banco de dados.� ), �Aten��o !!!�, MB_ICONEXCLAMATION )
     else
        Application.MessageBox( PChar( E.ClassName + � - � + E.Message ), �Aten��o !!!�, MB_ICONEXCLAMATION );
  end;
end;

Grato
Luciano

Lucas Silva · Answer

[code:1:a5be68db57]tryaqui voc� tenta salvar..except appeventException(....);end;[/code:1:a5be68db57]...

Lucianorw · Answer

[quote:05ac576a8c=�Lucas Alves Silva�][code:1:05ac576a8c]tryaqui voc� tenta salvar..except appeventException(....);end;[/code:1:05ac576a8c][/quote:05ac576a8c]Lucas,Grato pela sua aten��o!!!At� akele ponto eu ja havia tentado, o problema � justamento o que eu coloco em: except appeventException([b:05ac576a8c]AKI Q NAO ENTENDO[/b:05ac576a8c]);GratoLuciano...

Sremulador · Answer

tem um componente appevents acho que e esse o nome que serve para pegar os eventos gerais do delphi inclusive erros....

Lucianorw · Answer

[quote:6e72428568=�sremulador�]tem um componente appevents acho que e esse o nome que serve para pegar os eventos gerais do delphi inclusive erros.[/quote:6e72428568]Ola,� este q estou usando, mas como sou novato no assunto nao consigo fazer o q preciso.GratoLuciano...

Weber · Answer

O Firebird � praticamente igual ao Interbase e se a vers�o 1.5 for seguir o mesmo padr�o tem como alterar as Mensagem de Exception do proprio banco de dados.
Se voc� alterar no banco de dados al�m do Delete voc� tamb�m ter� as mensagens de Update e Insert prontas.

Baixe o programa IBExpert (tem uma vers�o free) que ele faz as altera��es no banco com facilidade e ainda mostra o comando SQL usado.

Geno · Answer

Rpz..nao to entendendo bem qual a dificuldade ai....
Vai ver na oentendi a pergunta...

Mas aki eu faco o seguinte :

try
.
.
.
Except
on E: Exception do
begin
dtm.suatabela.Rollback;
ShowMessage(�O sistema nao conseguiu fazer o requisitado.� + #13 + 13 +
�A mensagem gerada pelo banco foi: � + 13 + 13 +
E.Message);
end; // end Exception
End; // end try

Lucianorw · Answer

Problema resolvi usando sql.Desisti do applicationevents pq so usa em vcl.Grato a todos pela ajuda.Luciano...

F�rum Mensagem de erro na exclusao de registro relacionado #222111