[VB.NET]Conectar Mysql Con Visual Basic

GuilleMt2

Muy muy interesante

Lástima que no toque el lenguaje Basic

Gracias Yepez

kjy18

**Hola Soy kjy18 y me la paso trabajando con Visual Basic

Hoy les vengos a mostra una Función para Conectar Con una Base de Datos Mysql
USando un Formulario o con datos Preestablecido en la función

Aqui Tenemos el Código modificado por mi Para Conectar usando un Formulario

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 Bases de Datos")
conex.Close()
Catch mierror As MySqlException
MessageBox.Show("Error 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 Cajetines de texto:

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 Estara la Función el codigo Dado anteriormente

Tambíen Podemos hacer la Conexion 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 Correctamente con la Bases de Datos")
conex.Close()
Catch mierror As MySqlException
MessageBox.Show("Error No se ha Podido Conectar con la Base de Datos: " & mierror.Message & vbExclamation)
Finally
conex.Dispose()
End Try
End Sub

Listo para Solo con dar Clik al Botón para hacer la conexion sin necesidad de rellenar algo.**

Nota: Deben Descar Mysql Conector para que Visual Basic Importe Las .dll para realizar la conexion
Aqui les dejo el Mysql Conector http://mysql-connector-net.updatestar.com/es/a/6.1.2

http://coregamerz.org/index.php?action=post;msg=352;topic=95.0

washington8277

Hola buenas.

esto y tratando de conectarme ami host online pero sin exito

Excepción no controlada del tipo 'System.ArgumentException' en System.Data.dll

Información adicional: Keyword not supported.




Imports MySql.Data
Imports MySql.Data.Types
Imports MySql.Data.MySqlClient
Public Class Form1
    Dim conex As New MySqlConnection
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        conex = New MySqlConnection
        conex.ConnectionString = ("server=192.185.165.61;user id=gsmmovil_8277;password=********;database=gsmmovil_servidor")

        Try
            conex.Open()
            MessageBox.Show("Se ha Conectado Correctamente con la Bases de Datos")
            conex.Close()
        Catch mierror As MySqlException
            MessageBox.Show("Error No se  ha Podido Conectar con la Base de Datos: " & mierror.Message & vbExclamation)
        Finally
            conex.Dispose()
        End Try
    End Sub
End Class

Anghios

Catch mierror As MySqlException
MessageBox.Show("Error No se ha Podido Conectar con la Base de Datos: " & mierror.Message & vbExclamation)
Finally

¿Tira excepción?
Si la da podrías ponerla, si no te va a ser chungo.

Prueba a poner

MsgBox(mierror.tostring)

para ver la excepción 'detallada'.