Error Conexión MySql

Question

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.

Answer 1

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

Answer 2

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