Erros do Interbase no Delphi

Question

Ol� galera,como se faz para tratar os erros do Interbase no Delphi ???Erros como:   Viola��o de Primary Key,   Qdo tento remover um item que possui Foreig Key e que   est� sendo utilizado por outra ta...

Luizfernando777 · Answer

Ol� colega,A respeito da chave prim�ria n�o vou poder ajula-lo,pois trabalho de uma forma diferente sobre o mesmo,Sobre o erro de n�o encontrar o gdb,vc mesmo j� respondeu,faz a procura do mesmo antes de conectar o ibDataBase,if not FileExists(�LocalenomedaBase�) thenbegin  if OpenDialog.Execute then     begin      �IMPLEMENTAR O C�DIGO� CONFORME A SUA NECESSIDADE,se voc� precisar de um exemplo me manda o seu e-mailque mando um exemploat� +...

Vinicius2k · Answer

Enio,Eu tamb�m estou a procura de melhores formas para tratar os erros, inclusive descobrir os c�digos de erro, q ainda n�o encontrei em lugar nenhum... mas o principio, acredito ser o mesmo que utilizavamos para tratar os erros do Paradox, um exemplo de como tenho usado :[quote:e4549cf9a4]function IBDB_conectar: Boolean;begin try  IBDB_main.Connected:= true;  result:= true; except  on erro: EIBInterbaseError do   begin    Application.MessageBox(Pchar(�N�o foi poss�vel conectar ao Banco de Dados e foi retornada a seguinte mensagem de erro: ��+ erro.message+��.�),�Erro�,mb_iconhand+mb_ok);    result:= false;   end;  end;end;[/quote:e4549cf9a4]sabendo os c�digos de erro vc poder� implementar mais ou menos assim [quote:e4549cf9a4]function Tfrm_IBGA.IBDB_conectar: Boolean;begin try  IBDB_main.Connected:= true;  result:= true; except  on erro: EIBInterbaseError do   begin    case erro.Errors[0].ErrorCode of      1: showmessage(�erro tal...�);      2: showmessage(�erro tal...�);    end;    { a��o � executar no caso de erro }   end;  end;end;[/quote:e4549cf9a4]soh um detalhe : vc precisa acrescentar na lista de uses a unit IB (neste exemplo estou usando IBX)...a fun��o FileExists citada pelo colega n�o ser� de grande valia caso seu banco de dados seja remoto, por exemplo : ela sempre retornar� false caso seu banco seja : �servidor:c:bancobanco.gdb�...espero ter ajudado......

Luizfernando777 · Answer

Caro Colega,desculpe pela informa��o, este exemplo aue lhe enviei eu uso em meu projeto 3 camadas,e a comunica��o do Cliente � feito por IP...

Eniorm · Answer

[quote:fa2c1c37f8=�vinicius2K�]function IBDB_conectar: Boolean;begin try  IBDB_main.Connected:= true;  result:= true; except  on erro: EIBInterbaseError do   begin    Application.MessageBox(Pchar(�N�o foi poss�vel conectar ao Banco de Dados e foi retornada a seguinte mensagem de erro: ��+ erro.message+��.�),�Erro�,mb_iconhand+mb_ok);    result:= false;   end;  end;end;======================================function Tfrm_IBGA.IBDB_conectar: Boolean;begin try  IBDB_main.Connected:= true;  result:= true; except  on erro: EIBInterbaseError do   begin    case erro.Errors[0].ErrorCode of      1: showmessage(�erro tal...�);      2: showmessage(�erro tal...�);    end;    { a��o � executar no caso de erro }   end;  end;end;[/quote:fa2c1c37f8]Ok, cara, mas essa variavel ERRO q vc declarou ???T+...

Vinicius2k · Answer

n�o entendi sua d�vida... eu a declarei para q ela receba a mensagem de erro q foi retornada pela exce��o... ela n�o precisa ser declarada antes... essa eh a declara��o dela :
on [color=blue:93a7bea47c]erro: EIBInterbaseError[/color:93a7bea47c] do

Eniorm · Answer

[quote:3cb6709e73=�vinicius2K�]n�o entendi sua d�vida...  [/quote:3cb6709e73]Essa vari�vel ERRO � de que tipo?? Exception ???Eu j� tenteu usar o seguinte[code:1:3cb6709e73]var e : Exception;...try...except on  e: EIBInterBaseError do ......[/code:1:3cb6709e73]mas [color=blue:3cb6709e73]EIBInterBaseError[/color:3cb6709e73] o sistemainformava que era desconhecida.T+...

Vinicius2k · Answer

agora entendi...
foi por isso q eu disse :

soh um detalhe : vc precisa acrescentar na lista de uses a unit IB...

este tipo estah definido na unit �IB�... vc precisa referenci�-la nas suas uses..
T+

Eniorm · Answer

ok entaum cara muito obrigado, com certezat� resolvido...!T+...

F�rum Erros do Interbase no Delphi #180426