VB.NET Collegarsi a MySQL con Microsoft Visual Studio Express

Se avete la necessità di collegarvi a MySQL ma nell'elenco delle connessioni non compare la voce, eccovi un piccolo tutorial per poter aggirare il problema.

Prima di tutto bisogna scaricare il MySQL Connector Net

http://dev.mysql.com/downloads/connector/net/ 

Scaricato ed installato il MySQL Connector (prendetevi nota del path di installazione)
passiamo ora a Visual Studio e ad aggiungere la reference a MySQL Connector.



Visual Studio: dal Menu: PROGETTO  andiamo su AGGIUNGI RIFERIMENTO





Nella finesta di Gestione Riferimenti clicchiamo su Sfoglia e andiamo a seleziona il file: MySql.Data.dll  che nel mio caso si trova a questo path: C:\Program Files (x86)\MySQL\MySQL Connector Net 6.8.3\Assemblies\v4.5




A questo punto abbiamo aggiunto il riferimento a Mysql e possiamo procedere con l'utilizzo.
Di seguito un esempio di lettura di un campo di una tabella.






Imports System
Imports System.Data
Imports MySql.Data.MySqlClient

Module Module1

    ' aggiungere un riferimento al connettore mysql
    'C:\Program Files (x86)\MySQL\MySQL Connector Net 6.8.3\Assemblies\v4.5\MySql.Data.dll
    Sub Main()
        Dim MysqlConn As MySqlConnection
        Dim Mserver, Musername, Mpassword, Mdatabase, sql As String

        ' imposto i parametri di connessione al server MySQL
        Mserver = "localhost"
        Musername = "root"
        Mpassword = ""
        Mdatabase = "aziende-italia_net"

        ' istanzio l'oggetto  
        MysqlConn = New MySqlConnection()

        ' imposto la stringa di connessione
        MysqlConn.ConnectionString = "server=" & Mserver & ";user id=" & Musername & ";password=" & Mpassword & ";database=" & Mdatabase


        Try
            ' apro la connessione al db MySQL selezionato
            MysqlConn.Open()

            Console.WriteLine("OK connessione a MYSQL stabilita")

            ' mi collego alla tabella
            sql = "SELECT * FROM  italia_regioni"

            Dim obj_comm As MySqlCommand
            Dim RS As MySqlDataReader

            obj_comm = New MySqlCommand(sql, MysqlConn)
            RS = obj_comm.ExecuteReader()

            ' visualizzo tutti gli elementi del campo  nome_regione
            While RS.Read
                Console.WriteLine(RS("nome_regione"))
            End While

            RS.Close()


            ' chiudo la connesisone
            MysqlConn.Close()

        Catch myerror As MySqlException

            Console.WriteLine("KO Impossibile collegarsi a MySQL: " & myerror.Message)

        Finally
            ' chiudo la connesisone
            MysqlConn.Dispose()

        End Try

        Console.ReadLine()
    End Sub

End Module