[Tutorial] Usando MySQL no VB.Net

[Black-Hat]

Olá a todos...

Nesse tópico vou mostrar como usar o VB.Net para acessar um servidor MySQL e fazer operações com bancos de dados. No exemplo aqui utilizado o servidor se encontra na máquina local, 127.0.0.1, mas nada impede de ser uma máquina remota, já testei e funcionou

Muito bem... visto que o VB.Net não possui suporte a MySQL (apenas suporte a bancos de dados ruins, como o MS Access, por exemplo), vamos precisar baixar e instalar uma biblioteca para facilitar nossa vida

MySQL Connector .Net 5.2.5
Link: Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

Após instalar a biblioteca acima (feche o VB quando for instalar), estaremos prontos para continuar. Estou supondo que você já saiba configurar o MySQL Server e que já criou um banco de dados, login e etc...Enfim, que o MySQL está pronto para ser usado.

Comecemos...

Primeiro crie um novo projeto e coloque no form os seguintes controles:
- 1 Textbox (nela será escrita a query a ser executada)
- 1 Datagridview (aqui será onde o resultado será exibido)
- 2 Buttons (1 para executar a Query e outro para testar a conexao ao MySQL)

Feito isto, vamos aos códigos

Primeiro de tudo, vamos declarar a biblioteca no Imports lá em cima, só pra não ter que ficar escrevendo "MySQL.Data.MySQLClient" toda hora
Assim:

Imports MySQL.Data.MySqlClient

Isso deve ser colocado imediatamente ANTES de "Public Class Form1", deve ser a primeira coisa escrita na sua janela de códigos .

Muito bem, agora vamos declarar uma variável com a string de conexão, para quem não sabe ou não se lembra do padrão de conexão para o MySQL, aí vai:

"Database=DATABASE_AQUI;Data Source=HOST;User Id=USER;Password=SENHA"

Declarando a variável, temos:

Dim connstr As String = "Database=DATABASE_AQUI;Data Source=HOST;User Id=USER;Password=SENHA"

Essa deve ser uma variável global, portanto declare-a fora de qualquer função. Sugiro que a declarem logo abaixo de "Public Class Form1".

Como a conexão será a mesma para as duas funções, vamos declarar outra variável global para ela

Dim connection As New MySqlConnection(connStr)

Muito bem, agora vamos criar a função de teste de conexão (na verdade é uma rotina, não uma função), chamarei de TestConnection()

   Sub TestConnection()
        Try
            connection.Open()
            connection.Close()
            MsgBox("Conexão Funcionando.")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

O código acima é extremamente simples, não? Ele tenta abrir e fechar a conexão, caso tudo ocorra bem, uma mensagem dizendo que tudo está bem é exibida, caso contrário, é exibida uma mensagem contendo o erro.

Agora no evento OnClick do botao de testar conexão escreva "TestConnection()" e pronto

No evento OnClick do botão de executar a query, escreva:

Private Sub btn_execute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_execute.Click
        Dim query As String = txt_query.text
        Dim da As New MySqlDataAdapter(query, connection)
        Dim ds As New DataSet

        If da.Fill(ds) Then
            DataGridView1.DataSource = ds.Tables(0)
        End If

        connection.Close()
    End Sub

Esse código também é bem simples, ele pega a query que você escreveu em "txt_query" e executa, depois disso ele preenche o DataSet chamado de "ds" com o resultado e exibe o resultado no "DataGridView1" e fecha a conexão

Pronto! Nosso programa exemplo está terminado.

Aqui vai uma query de exemplo:

SELECT * FROM sua_tabela

Simples, não?

Espero que gostem =)

[zimiro]

como eu adiciono sistema de consulta com vb 2010