Primero tenemos que tener instalado el Driver ODBC 3.51 de MySQL, lo encuentras aqui:
http://dev.mysql.com/downloads/connector/odbc/3.51.html
En nuestro proyecto de VB6 debemos agregar la Referencia: “Microsoft ActiveX Data Objects 2.5 Library. Después declaramos un módulo donde pondremos una variable Pública de tipo “Connection”
Public conn As Connection
Posteriormente declaramos una función Pública llamada “CNXConectaBD” que contendrá la cadena de conexión a nuestra BD en MySQL. Dicha función manejara 4 parametros que son: Servidor, Base de datos, Usuario y Password.
Public Sub CNXConectaBD(psServer As String, psBD As String, psUsr As String, psPsw As String)
On Local Error GoTo error
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = “DRIVER={MySQL ODBC 3.51 driver};” _
& “SERVER=” & psServer & “;” _
& “DATABASE=” & psBD & “;” _
& “UID=” & psUsr & “;” _
& “PWD=” & psPsw & “;” _
& “OPTION=” & 1 + 2 + 8 + 32 + 2048 + 16384
conn.Open
MsgBox “Conexión realizada con éxito.”, vbOKOnly + vbInformation, “Conexión a MySQL”
Beep
Exit Sub
error:
‘Sino realiza la conexión mandará el siguiente mensaje de error
MsgBox “Error al establecer la conexión con el servidor. Verifique sus datos e intente nuevamente.”, vbOKOnly + vbExclamation, “Conexión a MySQL”
conn.Close
End
End Sub
Para llamar a la función para conectar a la Base de Datos, seria como se muestra:
CNXConectaBD “127.0.0.1″, “bd”,”user”,”pass”
