SOCORRO !!!! COMO SABER SE O SERVIDOR MYSQL ESTÁ ATIVO !???
Amigos ,
Estou com uma aplicação utilizando o banco de dados MySQL. Quero fazer com que a aplicação saiba se o servidor está ativo. Se ele não estiver a aplicação gera uma mensagem.
Por favor, como faço para saber se o servidor MySql está no AR ????
Quero fazer isso via programação. Estou utlizando os componentes de acesso ZeosDBO com Delphi 6.
Por favor me ajudem !!!
Estou com uma aplicação utilizando o banco de dados MySQL. Quero fazer com que a aplicação saiba se o servidor está ativo. Se ele não estiver a aplicação gera uma mensagem.
Por favor, como faço para saber se o servidor MySql está no AR ????
Quero fazer isso via programação. Estou utlizando os componentes de acesso ZeosDBO com Delphi 6.
Por favor me ajudem !!!
Frampton
Curtidas 0
Respostas
Anonymous
06/03/2003
Caro amigo,
Acho que a forma mais simples de se fazer seria vc configurar um componente ZMySqlDatabase1 para acessar a base de dados que vc quer e tentar ativá-lo em tempo de execução em algum evento. Ficaria mais ou menos assim:
procedure TForm1.FormCreate(Sender: TObject);
begin
ZMySqlDatabase1.Database := ´Nome_da_sua_base_de_dados´;
ZMySqlDatabase1.Host := ´Nome_do_seu_host´;
ZMySqlDatabase1.Login := ´Seu_Login´;
ZMySqlDatabase1.Password := ´Sua_senha´;
ZMySqlDatabase1.LoginPrompt := False;
try
ZMySqlDatabase1.Connected := True;
ShowMessage(´Conexão com sucesso!´);
except
ShowMessage(´Não foi possível conectar-se ao servidor.´);
end;
end;
end.
Acho que a forma mais simples de se fazer seria vc configurar um componente ZMySqlDatabase1 para acessar a base de dados que vc quer e tentar ativá-lo em tempo de execução em algum evento. Ficaria mais ou menos assim:
procedure TForm1.FormCreate(Sender: TObject);
begin
ZMySqlDatabase1.Database := ´Nome_da_sua_base_de_dados´;
ZMySqlDatabase1.Host := ´Nome_do_seu_host´;
ZMySqlDatabase1.Login := ´Seu_Login´;
ZMySqlDatabase1.Password := ´Sua_senha´;
ZMySqlDatabase1.LoginPrompt := False;
try
ZMySqlDatabase1.Connected := True;
ShowMessage(´Conexão com sucesso!´);
except
ShowMessage(´Não foi possível conectar-se ao servidor.´);
end;
end;
end.
GOSTEI 0