VERIFICAR SE O MYQSL ESTA INSTALADO VIA VB.NET

ELMO01 09/09/2013 13:19:55
#428615
Boa tarde a todos,

Como faço para descobrir se o MySql Server está instalado em uma máquina.

Também gostaria de saber em que diretório fica armazenados os bancos de dados criados por mim através do MySql Server, pois quero implementar em meu sistema a instalação do MySql Server e a criação dos bancos de dados do meu sistema.

Obrigado,
ELMO01 10/09/2013 21:53:29
#428678
Alguém pode me ajudar???
ADHEL 11/09/2013 08:40:11
#428683 Resposta escolhida
1) Há um bom tempo atrás achei isso aqui
  Imports System.Management
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Public Function CheckForMySQLServer() As Boolean
        Dim query As String = [Ô]SELECT Name FROM Win32_Product WHERE Name LIKE [ô]%MySQL Server%[ô][Ô]

        Dim searcher = New ManagementObjectSearcher(query)
        Dim collection = searcher.[Get]()

        Return collection.Count > 0
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(CheckForMySQLServer)
    End Sub
End Class


Se encontrar o mysql, a messagebox retorna True.
Demora um pouco para apresentar o resultado.

2) é mais ou menos esse caminho
  C:\ProgramData\MySQL\MySQL Server 5.1
ELMO01 13/09/2013 22:51:48
#428826
Ai valeu pela dica mas pesquisando pela net achei uma outra opção veja só:

If Dir$([Ô]C:\Program Files\MySQL\mysql.exe[Ô]) <> [Ô][Ô] Then
MessageBox.Show([Ô]MySql Serve não instalado!![Ô], [Ô]Atenção[Ô], MessageBoxButtons.OK, MessageBoxIcon.Warning)
End
endif

Mas mesmo assim agadeço a dica.

Obrigado,
Tópico encerrado , respostas não são mais permitidas
Voltar