Conectar una Base de Datos de Mysql en Visual Basic.net

Solicitado por Ed Diaz....

Conectar Visual Basic .NET y MySQL es algo bastante sencillo, aunque no lo parezca al principio. Hoy vamos a ver un completo tutorial de cómo hacer una conexión básica entre este lenguaje y una base de datos ya establecida.

Lo primero que debemos hacer es bajarnos la librería necesaria para establecer la conexión  ytrabajar con las funciones que nos brinda MySQL. Por eso deben descargar MySQL Connector .NET, que lo pueden buscar en el sitio Web oficial junto con toda su documentación disponible.

Después de descargarlo, abres tu Microsoft Visual Studio 2010 (La versión que yo uso) y en tu proyecto le das clic de derecho y luego en agregar referencia, allí mismo te sale una ventana para que busques y selecciones el archivo a agregar, que en este caso es la librería MySql.Data.dll que se encuentra en la carpeta de instalación (C:\Archivos de Programa\MySQL\MySQL Connector Net 1.0.2\bin\.NET 1.1)

Primer paso: Importar las librerías para trabajar con MySQL:

Imports MySql.Data.MySqlClient

Y declaramos una variable global para la conexión:

Friend conexion As MySqlConnection

Luego en el evento Clic del botón que agregamos, declaramos tres variables que harán referencia a los datos de conexión.

Try servidor = ServerTxt.Text usuario = UsuarioTxt.Text pswd = pswdTxt.Text

Luego creamos un objeto de la variable conexión para trabajar con él. Y luego por medio de un String agregamos todos los datos de conexión proporcionados por las variables.

conexion = New MySqlConnection() conexion.ConnectionString = "server=" & ServerTxt.Text & ";" & "user id=" & UsuarioTxt.Text & ";" & "password=" & pswdTxt.Text & ";" conexion.Open() MessageBox.Show("Conectado al servidor")

Por último terminamos la gestión de errores, por si la conexión no se realiza sale un mensaje de error. Así evitamos comportamientos inesperados.

Catch ex As MySqlException MessageBox.Show("No se ha podido conectar al servidor") End Try

Por último terminamos la gestión de errores, por si la conexión no se realiza sale un mensaje de error. Así evitamos comportamientos inesperados.


Catch ex As MySqlException
MessageBox.Show("No se ha podido conectar al servidor")
End Try

El código completo dentro del evento Click debería quedar como este:



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            conexion = New MySqlConnection()
            conexion.ConnectionString = "server=" & ServerTxt.Text & ";" & "user id=" & UsuarioTxt.Text & ";" & "password=" & pswdTxt.Text & ";"
            conexion.Open()
            MessageBox.Show("Conectado al servidor")
        Catch ex As MySqlException
            MessageBox.Show("No se ha podido conectar al servidor")       
 End Try 
    End Sub




Así, si se realiza la conexión, este muestra un mensaje positivo, de lo contrario nos lanza un error controlado. Más adelante veremos como agregar registros a una bse de datos desde Visual Basic .NET.

Y para guardar datos...

Using conexion As New MySqlConnection(cadenaconexion)
    conexion.Open()

    Dim query As String = "INSERT INTO  (campo1, campo2, campo3) VALUES (@param1, @param2, @param3)"

    Dim comando As MySqlCommand(query , conexion)
    
    comando.Parameters.AddWithValue("@param1", "")
    comando.Parameters.AddWithValue("@param2", "")
    comando.Parameters.AddWithValue("@param3", "")

    Dim i As Integer = CInt(comando.ExecuteNonQuery())
    
    If i > 0 Then
        MessageBox.Show("Se ha insertado correctamente")
    End If

End Using




por supuesto los parm  y los valores de estos deberias reemplazarlos por el contenido de tus TextBox

recuerda instalar el conector de mysql para ado.net...