Conexión a My SQL

Aquí tienes un ejemplo con MySQL.
Lo conectas por el ip del host. Sin ODBC, es una conexión directa.
Suerte.
JarpSoft.
Option Explicit
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cmd As New ADODB.Command
Dim fld As ADODB.Field
Sub conexion()
Dim sql As String
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=ip_del_host;" _
& "DATABASE=nombre_de_bd;" _
& "UID=usuario; PWD=passwd; OPTION=3"
cn.Open
sql = "SELECT * FROM " & tbl_origen
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
rs.MoveFirst
Do Until rs.EOF
rs.MoveNext
Loop
End Sub
Respuesta
1
En Server=200.58.112.10
Debe ir la IP en donde se encuentra el MySQL.
Eso no se como lo manera tu proveedor por lo general esos datos se encuentran en el Control Panel.
Los proveedores de sitios siempre reedireccionan estos, debes pedirle el IP o la dirección.
Bueno, prueba esto.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas