Fórum TDatabase ativa ou não ? #214548

16/02/2004

0

Delphi

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

Responder

Posts

16/02/2004

Nebrio

Tente assim

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

Acho que funciona..

T+

Nébrio


Responder

Gostei + 0

16/02/2004

Falinden

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


Responder

Gostei + 0

16/02/2004

Adilsond 

  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;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar