Conexion Remota VB a MySql
Publicado por david (8 intervenciones) el 15/11/2006 22:01:47
Saludos a todos, podrian decirme si conocen algun Host que permita el accesso externo por medio de aplicaciones como Visual Basic y una conexcion ODBC, o cualquier alternativa similar.
Objetivo: Liberar y/o descargar la info captada en nuestras bases de datos de nuestros hostings, asi evitar cualquie posible perdida de la info y/o tener un control mas manual. Se que no es la mejor manera, pero en mi caso es funcional y económico. El problema es q no logro hacer la conexcion remotamente, la mayoria de los servidores host que encuentro tienen bloqueado ese tipo de acceso.
Info Tec:
Requerido Instalación de Driver ODBC Mysql 3.51 en la pc que ejecuta el codigo para accesar remotamente al servidor (fasil encontrar en google o dev.mysql.com/downloads/connector/odbc/)
Ejemplo Visual Basic 6 codigo:
- Inicio Procedimiento
Dim ConnMySql As New rdoConnection
Dim rdoQry As New rdoQuery
Dim rdoRS As rdoResultset
ConnMySql.CursorDriver = rdUseOdbc
ConnMySql.Connect = "DRIVER={MySQL ODBC 3.51 driver};SERVER=mysql.hostingserver.net;" & _
"PORT=3306;DATABASE=database; USER=userid;PASSWORD=pass;"
ConnMySql.EstablishConnection
With rdoQry
.Name = "selectUsers"
.Sql = "select * from usuarios"
.RowsetSize = 1
Set .ActiveConnection = ConnMySql
Set rdoRS = .OpenResultset(rdOpenKeyset, rdConcurRowVer)
End With
Do Until rdoRS.EOF
With rdoRS
msgbox !nombre& " - " & !apellido
.MoveNext
End With
Loop
ConnMySql.Execute "Delete usuarios.* from usuarios where usuarios.nombre= 'Jorge';"
rdoRS.Close
ConnMySql.Close
- Finalizo Procedimiento
En el Servidor host, donde esta la base de datos en mysql, debe permitir el acceso de manera remota como se muestra en el codigo de conexcion mostrado, ya sea por el mismo u otro puerto. Enlisten los que conozcan que cumplan con esta fascilidad.
Gracias de Antemano!
Objetivo: Liberar y/o descargar la info captada en nuestras bases de datos de nuestros hostings, asi evitar cualquie posible perdida de la info y/o tener un control mas manual. Se que no es la mejor manera, pero en mi caso es funcional y económico. El problema es q no logro hacer la conexcion remotamente, la mayoria de los servidores host que encuentro tienen bloqueado ese tipo de acceso.
Info Tec:
Requerido Instalación de Driver ODBC Mysql 3.51 en la pc que ejecuta el codigo para accesar remotamente al servidor (fasil encontrar en google o dev.mysql.com/downloads/connector/odbc/)
Ejemplo Visual Basic 6 codigo:
- Inicio Procedimiento
Dim ConnMySql As New rdoConnection
Dim rdoQry As New rdoQuery
Dim rdoRS As rdoResultset
ConnMySql.CursorDriver = rdUseOdbc
ConnMySql.Connect = "DRIVER={MySQL ODBC 3.51 driver};SERVER=mysql.hostingserver.net;" & _
"PORT=3306;DATABASE=database; USER=userid;PASSWORD=pass;"
ConnMySql.EstablishConnection
With rdoQry
.Name = "selectUsers"
.Sql = "select * from usuarios"
.RowsetSize = 1
Set .ActiveConnection = ConnMySql
Set rdoRS = .OpenResultset(rdOpenKeyset, rdConcurRowVer)
End With
Do Until rdoRS.EOF
With rdoRS
msgbox !nombre& " - " & !apellido
.MoveNext
End With
Loop
ConnMySql.Execute "Delete usuarios.* from usuarios where usuarios.nombre= 'Jorge';"
rdoRS.Close
ConnMySql.Close
- Finalizo Procedimiento
En el Servidor host, donde esta la base de datos en mysql, debe permitir el acceso de manera remota como se muestra en el codigo de conexcion mostrado, ya sea por el mismo u otro puerto. Enlisten los que conozcan que cumplan con esta fascilidad.
Gracias de Antemano!
Valora esta pregunta


0