CONEXAO DO MYSQL COM VISUAL STUDIO 2010

TRTNCG 19/12/2011 20:25:27
#391636
Pessoal Visual Studio 2010 - A linguagem é VB.Net

Olá pessoal começei agora a ver o Visual Studio 2010, estou querendo conectar o MySQL com o Visual Studio 2010, no entanto gostaria de saber dos amigos mais experientes como fazer via código tipo como fazia no VB6 com ADO, é possível ou não. Pois via código posso modificar a server, usuário e ip

Por exemplo no VB6 para conectar faria dessa maneira, adicionava a referência ADO e faria assim, no exemplo abaixo é de conexão com o banco Firebird.

Dim CN as new ADO.Connection

Set CN = New ADODB.Connection

NomeServidor = LERCONFIGURACAO(True, [Ô]CONEXAO[Ô], [Ô]SERVIDOR[Ô], [Ô][Ô], App.Path & [Ô]\Config.ini[Ô])

CN.ConnectionString = [Ô]Driver=Firebird/InterBase(r) driver;Uid=SYSDBA;Pwd=masterkey; DbName=[Ô] & NomeServidor & [Ô];[Ô]
CN.Open

ERROCONECTAR:
If Err <> 0 Then
[ô]MsgBox [Ô]Ocorreu um erro ao tentar conectar ao servidorde dados, verifique suas configurações de acesso aos dados.[Ô]
Unload SPLASH
FSERVIDOR.Show 1
Exit Sub
End If

Como poderei fazer dessa maneirta no Visual Studio 2010.

Outra coisa no VB6 para ficar organizado eu criava procedures, tipo; Salvar, Excluir tem como fazer isso no Visual Studio.
Grato a todos os companheiros do VB Mania
ALTAIR148 19/12/2011 21:10:29
#391638 Resposta escolhida
Amigo eu utilizo essa classe.



Imports System, MySql.Data.MySqlClient.MySqlConnection

Module conector_ado
    Dim CN1 As New MySql.Data.MySqlClient.MySqlConnection
    [ô]Instanciando um novo objeto “conecta” do tipo OleDbConnection para ser utilizado no projeto.

    [ô]Instanciando um novo objeto “comando” do tipo OleDbCommand para ser usado no projeto.



    [ô]Public conecta As New ADODB.Connection
    Public comando1 As New MySql.Data.MySqlClient.MySqlCommand



    [ô] Procedimento para conexão com o banco de dados.

    Public Sub Conectar1()

        [ô] CN1 = New MySql.Data.MySqlClient.MySqlConnection     [ô]conexao usando ADO
        CN1 = New MySql.Data.MySqlClient.MySqlConnection([Ô]server=127.0.0.1;user id=altair;password=123;database=exemplo[Ô])
        CN1.Open()
    End Sub

    [ô] Procedimento para desconectar do  banco de dados.

    Public Sub Desconectar1()
        CN1.Close()
    End Sub

    [ô] Procedimento para  testar conexão com o banco de dados.

    Public Sub testaconexao1()
        Try
            Conectar1()
            MsgBox([Ô]Conexão realizada com sucesso!!![Ô])
        Catch ex As Exception
            MsgBox([Ô]Não foi possível conectar o banco de dados[Ô])
            Desconectar1()
        End Try
        Desconectar1()

        End
    End Sub
    [ô]Solicitar instancia
    Public Function GetConexao1() As MySql.Data.MySqlClient.MySqlConnection

        If CN1.State <> ConnectionState.Open Then
            Conectar1()
        End If

        Return CN1

    End Function
End Module
TRTNCG 19/12/2011 21:27:58
#391639
Certo mais você coloca isso em um Modulo ou direto no Form
TRTNCG 19/12/2011 21:36:09
#391640
Tem que adicionar alguma referencia, pois quando digito

Imports System mysql e digito não aparece nada
ALTAIR148 19/12/2011 21:45:11
#391643
tem sim, tem que referencia a dll do mysql http://dev.mysql.com/downloads/connector/net, vc baixa ela e instala, você pode colocar esse código em um módulo.
Tópico encerrado , respostas não são mais permitidas
Voltar