[VB.NET]Conectar Mysql Con Visual Basic

Topic created · 4 Mensajes · 5694 Visitas
  • Muy muy interesante

    Lástima que no toque el lenguaje Basic 😛

    Gracias Yepez 😄

  • **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

  • 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
  • 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'.