Prueba de conexión Visual Basic 6 y MySql 3.15

Qué tal, recientemente en el trabajo me pidieron agregar un modulo a una aplicacion hecha en VB6 el cual necesitaba conexion a un servidor remoto

Aqui un script de la conexion a MYSQL

Es necesario instalar ODBC MYSQL (en este caso 3.15)


Sub conectarBD()
Set Conexion = New ADODB.Connection
Conexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=
ip_de_tu_base;DATABASE=nombre_de_tu_base;UID=tu_user;PWD=tu_password;OPTION=3" Conexion.Open
Conexion.CursorLocation = adUseClient
A = Conexion.State
If A = 1 Then
MsgBox ("Base de Datos Conectada")
End If
End Sub 


**Fuente www.forosdelweb.com

 Saludos!

Comentarios

Entradas populares de este blog

"php" no se reconoce como un comando interno o externo, programa o archivo por lotes ejecutable.

Laravel y MercadoPago SDK

Dompdf image not found or type unknown