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.
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
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 ; http://mysql-connector-net.updatestar.com/es/a/6.1.2
Saludos y buen día¡