VERIFICAR SE O SERVICO DO MYSQL ESTA ATIVO OU NAO

DSAYRON 13/04/2013 23:06:40
#421913 Resposta escolhida

Gambiarra1:
Sabendo que o serviço EXISTE no computador indicado na string de conexão, quando você tentar o conexao.open, você recebe um retorno, caso o serviço não esteja rodando.
Trate ele com um [Ô]On Error[Ô] no início da função e select case no final da mesma função..

Mais ou menos assim:
Public Function doConectar()
On Error goto TrataErro

Dim strConexao as ...
Dim Conexao as ...

conexao.open... [ô]se conexao.open nao abrir, por causa de serviço parado, vai gerar um erro, que será indicado em case else, abaixo.


TrataErro:
Select case err.number
case 0 [ô]sem erro
case else [ô]use primeiro o case else pra descobrir o código do erro em caso de serviço parado,
depois inclua no case
msgbox Err.number & [Ô]: [Ô] & Err.Description
End Select
End Function

-----------------

Gambi2:
Uma outra forma é usando shell (tem que rodar o aplicativo como administrador, se for no windows 7):
shell /c [Ô]cmd.exe net start > c:\arquivo.txt[Ô]


Depois, abra o arquivo.txt e teste se houve o texto mysql, usando funções de manipulação de arquivos.

Veja que Net start no prompt traz os serviços que estão rodando. E lembre-se que o mysql pode ter instâncias diferentes do nome [Ô]MySQL[Ô]