[VB.NET] Connessione a database MySQL

[tecnolive]

Allora, io ci lavoro così:

1) Scaricati la libreria MYSQLDRIVERCS (http://sourceforge.net/projects/mysq...asyQueryTools/)

2) Dopo aver installato, apri Vb e importati la libreria (strumenti - riferimenti).
3) Metti come riferimento anche System.data

4) Il codice:

Imports MySQLDriverCS

Public Class Form1

    '=================================================
    'SETTAGGI PARAMETRI SQL
    '=================================================
    Const serverSQL As String = "localhost"
    Const userSQL As String = "root"
    Const pwdSQL As String = ""
    Const nomeDatabase As String = "database"
    '=================================================
    Dim conn As MySQLConnection = New MySQLConnection(New MySQLConnectionString(serverSQL, nomeDatabase, userSQL, pwdSQL).AsString)

    Dim dt = New DataTable() 

La gestione delle connessioni la faccio attraverso una sub:

    Private Sub Connex(ByVal tipo As Integer)
        If tipo = 1 Then
            Try
                conn.Open()
            Catch errore_di_connessione As MySQLException
                MsgBox("Non sono riuscito a connettermi perchè: " + errore_di_connessione.Message)
            Finally
                conn.Dispose()
            End Try
        End If
        If tipo = 0 Then
            conn.Close()
        End If

    End Sub 

E questo è il codice che puoi mettere in qualsiasi evento (es. al click di un pulsante) per poter eseguire le query:

        Dim ds As DataSet = New DataSet()
                Connex(1)
                Dim adp As New MySQLDataAdapter("select * FROM tabella", conn)
                adp.Fill(ds) 
                dataLog.DataSource = ds 'dataLog è un controllo  DataGrid
                dataLog.DataMember = ds.Tables(0).TableName
                ds.Dispose()
                Connex(0)
        End Select
    End Sub 

Io faccio così e mi funziona alla perfezione.

Spero di esserti stato di aiuto.