[VB.NET] Conectar Mysql Con Visual Basic

D4RKS0N1K · Marzo 23, 2014, 11:15:48 AM

Buenas¡

Ignoro si existe algo relacionado publicado , de todos modos aquí os dejo una función para conectar con una base de datos Mysql usando un formulario o con datos preestablecidos en la función que he modificado yo mismo.Sé que es algo muy simple pero me apetecía traéroslo , espero que os pueda ser mínimamente útil.

Código: vbnet

    Imports MySql.Data.MySqlClient
    Dim conex As MySqlConnection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    conex = New MySqlConnection
    conex.ConnectionString = "server=" & textbox1.Text & ";" _
    & "user id=" & textbox2.Text & ";" _
    & "password=" & textbox3.Text & ";" _
    & "database=" & Textbox4.Text
    Try
    conex.Open()
    MessageBox.Show("Se ha conectado correctamente con la base de datos")
    conex.Close()
    Catch mierror As MySqlException
    MessageBox.Show("Aviso ; No se ha podido conectar con la base de datos: " & mierror.Message & vbExclamation)
    Finally
    conex.Dispose()
    End Try
    End Sub

Para el Form (diseño) agreguen 4 Textbox:
- una para colocar la ip o Host al que se quiere conectar
- una el usuario Mysql y otra para la contraseña
- y otra para la base de datos a Conectar

Y un botón donde estará la función el código dado anteriormente

Tambíén podemos hacer la conexión con los datos ya preestablecidos en la función del programa

Código: vbnet

    Imports MySql.Data.MySqlClient
    Dim conex As MySqlConnection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    conex = New MySqlConnection
    conex.ConnectionString = "server=Host/ip" ";" _
    & "user id=UserDB" ";" _
    & "password=ContraseñaDB" ";" _
    & "database=Base de Datos"
    Try
    conex.Open()
    MessageBox.Show("Se ha conectado satisfactoriamente a la base de datos")
    conex.Close()
    Catch mierror As MySqlException
    MessageBox.Show("Avisa ; No se ha podido conectar con la base de datos: " & mierror.Message & vbExclamation)
    Finally
    conex.Dispose()
    End Try
    End Sub

Como habréis observado la conexión a la base de datos se haría directamente sin necesidad de introducir dato alguno.

IMPORTANTE : Deben descargar Mysql Conector para que Visual Basic importe las .dll para realizar la conexión .
Aquí os lo dejo ; No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Saludos y buen día¡

[VB.NET] Conectar Mysql Con Visual Basic

D4RKS0N1K

Marzo 23, 2014, 11:15:48 AM Ultima modificación: Mayo 27, 2014, 09:58:47 PM por Expermicid