none
Conectar WebForm.aspx a base de datos MySql Remotamente RRS feed

  • Pregunta

  • Hola amigos, me di por vencido con respecto a este tema. Trate muchas formas y no puedo lograr conectar a mi base de datos Mysql Remotamente.

    Hice una web de prueba con dos textbox y un botón, la cual poniendo el numero de pedido en un de los textbox y apretando el botón genera una consulta al servidor que tengo en mi empresa y capture un dato de una tabla y lo ponga en el segundo textbox.

    Esto funciona correctamente localhost, pero al momento que lo subo a la web del hosting (somme.com también intente con dos mas y pasa lo mismo) me tira un error.

    Ya cree un usuario y contraseña de MySql con todos los permisos y tampoco resulta.

    El puerto con el que estoy manejando esta abierto y ya no se que puede ser.

    Dejo el codigo:

    Imports MySql.Data.MySqlClient
    Imports MySql.Data
    Imports MySql.Web
    
    Public Class WebForm2
        Inherits System.Web.UI.Page
    
        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    
        End Sub
    
        Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
            Dim StrCn = "server=miservidor;UId=root;password=micontraseña;database=mibasededatos"
            Dim Cn As New MySqlConnection
            Dim Da As New MySqlDataAdapter
            Dim Cmd As New MySqlCommand
            Dim registro As New DataSet
            Dim lista As Byte
            Dim conexion As New MySqlConnection
            Dim consulta As String
    
            If TextBox1.Text <> "" Then
                conexion.ConnectionString = StrCn
                conexion.Open()
                consulta = "SELECT * FROM pedidos WHERE Numero like '%" & TextBox1.Text & "%'"
                Da = New MySqlDataAdapter(consulta, conexion)
                registro = New DataSet
                Da.Fill(registro, "pedidos")
                lista = registro.Tables("pedidos").Rows.Count
            End If
            If lista <> 0 Then
                TextBox2.Text = registro.Tables("pedidos").Rows(0).Item("Escenario")
            End If
        End Sub
    End Class

    IMAGEN DEL FUNCIONAMIENTO LOCAL

    IMAGEN DEL FUNCIONAMIENTO HOST

    Espero que alguien me pueda ayudar.

    Gracias

    jueves, 7 de marzo de 2019 19:09

Todas las respuestas

  • Cuando te refieres a que en local te funciona, es que todo el ambiente esta en tu pc, o que la base de datos esta en el servidor y el proyecto en tu pc?.

    jueves, 7 de marzo de 2019 19:34
  • Hola Jorge, nosotros tenemos instalado un servidor la cual están todas las pc conectadas en forma local. Yo ejecuto la web desde el visual que tengo en mi pc y me trae perfectamente los datos. Pero cuando la subo deja de funcionar.
    jueves, 7 de marzo de 2019 20:02
  • Por acá encontré algo, creo que debes verificar los permisos para el usuario.

    https://stackoverflow.com/questions/41609572/mysqlexception-access-denied-for-user-altjenblocalhost-using-password-ye

    jueves, 7 de marzo de 2019 22:22
  • Hola Jorge gracias por contestar nuevamente, entre a ese link y el problema de ellos es localhost y a mi localhost me funciona correctamente.

    Mi problema es cuando lo subo a un hosting y quiere conectarse con la base de datos de mi empresa.

    El usuario y contraseña ya le di permiso total (%) y todos los permisos de select, etc. Pero no hay caso.

    viernes, 8 de marzo de 2019 11:13