MySQL: Vincular una base de datos con .Net

Esta entrada tiene por objeto explicar como podemos vincular una base de datos MySQL a un proyecto con .NET.

Paso 1:

Necesitamos el conector MySQL. Y lo encontramos en la página web de MySQL. Actualmente, se encuentra el conector NET 6.8.3 y se puede descargar aquí.

No vamos a meternos en más detalles, simplemente se ejecuta el instalador.

Paso 2:

Necesitamos incorporar las liberarías dll a nuestro proyecto. Y esto se realiza a través de las referencias del proyecto. Esto se realiza seleccionando las opciones Project -> Add Reference

Paso 3:

En mi caso, la aplicación es para escritorio, pero la base de datos se localiza en un servidor remoto, así que vamos a utilizar la misma metodología que un sitio web. Agregamos a nuestro proyecto un app.config, que permitirá al administrador del servidor, adecuar las propiedades de conexión a la base de datos.

Lo importante de esta imagen, son las siguientes líneas:

  <appSettings>

    <add key ="rutadb" value ="Database=sinafi; server=localhost; user id=root; password=k71l6nCHpqY1"/>

  </appSettings>

<appSettings> es la declaración para el entorno y configuración de nuestra aplicación. Aquí utilizamos variables que pasan como parámetros: key y value, 

key es el identificador que vía programación vamos a utilizar.

value es el valor del identificador.

Los valores, son los mismos que debe identificar nuestra base de datos MySQL:

database: Nombre de la base de datos

server: Ubicación del servidor (dirección ip)

userid: Usuario de la base de datos

password: Constraseña de acceso a la base de datos

Paso 4:

Realizamos la conexión a la base de datos

Dim MySQLConnString As String = Configuration.ConfigurationSettings.AppSettings("rutadb").ToString

Public MySQLConn As MySqlConnection = New MySqlConnection(MySQLConnString)

MySQLConnString es la cadena de texto para la conexión a la base de datos, identificamos a través de la clase Configuration, los parámetros de configuración con la variable "rutadb"

Ejemplo:

Imports MySql.Data.MySqlClient
Imports System.Data

Public Class ClassConection
    Dim MySQLConnString As String = Configuration.ConfigurationSettings.AppSettings("rutadb").ToString
    Public MySQLConn As MySqlConnection = New MySqlConnection(MySQLConnString)

    Private Function Probarconexion() As Boolean
        Dim value As Boolean = False
        Try
            MySQLConn.Open()
            MySQLConn.Close()
            value = True
        Catch ex As Exception
            value = False
            MessageBox.Show("Error de conexión a la base de datos." & vbCrLf & "Este error impide continuar con las operaciones del sistema." & vbCrLf & "La aplicación se cerrará!!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End
        End Try

        Probarconexion = value

    End Function

    Public Sub DataSQLSentence(ByVal sSQL As String)

        Try
            If (Probarconexion()) Then
                'Declaración de variables de conexión propias de SQL
                Dim myCommand As New MySqlCommand(sSQL, MySQLConn)

                MySQLConn.Open()
                myCommand.ExecuteReader()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "DataSQLSentence", MessageBoxButtons.OK)
        Finally
            MySQLConn.Close()
        End Try

    End Sub



End Class