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
