BD. IB. Tratar Erro

Delphi

15/05/2004

[b:32280dc86e]Tenho programa com Banco de Dado em InterBase....
O programa só funciona se o Icone(InterBase Guardian) que fica ao lado do relogio estiver Visivel ´Ativado´......Exemplo : Se eu for abri o programa e o ´InterBase Guardian´ não estive ao lado do relogio(ativado)... Da uma mensagem de Erro..............
Eu quero saber se tem como traratar esta mensagem[/b:32280dc86e].....[b:32280dc86e]avisar que o BD esta desativado......

........[ ]s....Jairo[/b:32280dc86e]


Jairo-go

Jairo-go

Curtidas 0

Respostas

Tnaires

Tnaires

15/05/2004

Uma maneira é vc colocar, no OnCreate do seu DataModule (ou qualquer ouro form q armazene o objeto IBDatabase), o seguinte código:
try
  with IBDatabase1 do
  begin
    Connected := false;
    Connected := true;
  end;
except
  on E: Exception do
  begin
    ShowMessage(´Impossível conectar. Verifique se o serviço foi iniciado. ´ + E.Message);
  end;
end;

Abraços


GOSTEI 0
Jairo-go

Jairo-go

15/05/2004

[b:ca1d9bfc8c]Valeu pela dica ........ muito abrigado...........Jairo[/b:ca1d9bfc8c]


GOSTEI 0
POSTAR