TDatabase ativa ou não ?

Delphi

16/02/2004

Boa tarde, pessoal.

Antes de abrir uma table/query, eu preciso verificar se a base de dados está ativa (pois se estiver inativa, ocorre um erro ´Oracle not available´ na aplicação o qual eu pretendo tratar para o usuário da aplicação).
Uso um TDataBase. Alguém tem alguma idéia ?

Agradeço antecipadamente,

Fabiana


Falinden

Falinden

Curtidas 0

Respostas

Nebrio

Nebrio

16/02/2004

Tente assim

if (Database.Active = True) then Query.Open else
begin
Database.Active := True;
Query.Open;
end;

Acho que funciona..

T+

Nébrio


GOSTEI 0
Falinden

Falinden

16/02/2004

Fábio, agradeço a atenção, mas não leve a mal: se fosse fácil assim, eu teria feito. Acontece para TDatabase, a propriedade seria Connected, mas mesmo assim, não dá certo.

:wink:


Fabiana


GOSTEI 0
Adilsond

Adilsond

16/02/2004

  while not Database1.Connected do
    begin
      try
        Database1.Open;
        Application.ProcessMessages;
      except
        case MessageDlg(´Erro na conexão com o banco de dados Oracle.´,
               mtError, mbAbortRetryIgnore, 0) of
          mrAbort : Halt;
          mrRetry : Continue;
          mrIgnore: Break;
        end;
      end;
    end;



GOSTEI 0
POSTAR