DATASET TIPADO COM STRING CONEXAO

  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