none
Error Conexión MySql RRS feed

  • Pregunta

  • Buenos días a todos,

    he creado una aplicación muy sencilla que simplemente tiene que conectar a una BD MySQL situada en un servidor virtual. El servidor tiene activadas las conexiones remotas porque por Php se puede acceder, pero el Vb.Net me da error:

    "System.TimeoutException: Se produjo un error durante el intento de conexión ya que la parte conectada no respondió adecuadamente tras un periodo de tiempo, o bien se produjo un error en la conexión establecida ya que el host conectado no ha podido responder"

    Los datos de la conexión son correctos, pero si me invento una IP que no existe, el error es el mismo, lo cual quiere decir que no llega a conectar.

    El código del programa es el siguiente:

    Imports MySql.Data.MySqlClient
    
    
    Public Class Form1
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
            ' Crea la cadena de conexión ****************************
            Dim servidor As String = "11.11.1.111"
            Dim database As String = "prueba"
            Dim usuario As String = "admin"
            Dim password As String = "pass"
            Dim port As String = "8443"
    
            Dim MySQLconnectionString As String
            MySQLconnectionString = "Server=" & servidor & ";" & _
                                    "Port=" & port & ";" & _
                                    "Database=" & database & ";" & _
                                    "Uid=" & usuario & ";" & _
                                    "Pwd=" & password & ";" '& "SslMode=Preferred;"
    
    
    
            ' Establece la conexión *****************************
            Dim conn As New MySqlConnection
    
            Try
                conn = New MySqlConnection(MySQLconnectionString)
                conn.Open()
                Label1.Text = "Conexión correcta"
            Catch ex As Exception
                MessageBox.Show(ex.ToString)
            End Try
    
        End Sub
    
    End Class

    Espero que me podáis ayudar, muchas gracias por adelantado.

    martes, 19 de noviembre de 2013 9:43

Respuestas

  • Hola David,

    Si la conexion solo la intentas poner asi:

    Dim server as String

    Dim base as String

    Dim user as String

    Dim pass as String

    Dim cadena as String  = "Server="+ server +";Database="+ base +";User="+ user +";Password="+ pass +";"

    Con esto deberia funcionar bien.


    Hugo Gil

    • Marcado como respuesta davidsap martes, 19 de noviembre de 2013 16:40
    martes, 19 de noviembre de 2013 16:06

Todas las respuestas

  • Hola David,

    Si la conexion solo la intentas poner asi:

    Dim server as String

    Dim base as String

    Dim user as String

    Dim pass as String

    Dim cadena as String  = "Server="+ server +";Database="+ base +";User="+ user +";Password="+ pass +";"

    Con esto deberia funcionar bien.


    Hugo Gil

    • Marcado como respuesta davidsap martes, 19 de noviembre de 2013 16:40
    martes, 19 de noviembre de 2013 16:06
  • Efectivamente he quitado el puerto y la conexión se establece perfectamente. Yo creía que era obligatorio el puerto pero se ve que no. Funciona incluso con el firewall de windows, eso sí, la contraseña no puede tener espacios.

    Muchas gracias por la información

    martes, 19 de noviembre de 2013 16:40