Como conectarse a una base de datos MySQL usando ADO

A diferencia de otras bases de datos, para conectarse a esta, es necesario bajar un DRIVER ODBC desde la Pagina de MySQL

aquí la URL: MySQL :: MySQL Connector/ODBC
Yo he instalado la versión «MySQL Connector/ODBC 3.51» (al ultima cuando se escribió este tema)

Una vez Instalado (Next o Siguiente a todo) ya tendremos el Proveedor instalado 😀

De ahí es el mismo código que se usa para conectarse a cualquier Motor Usando ADO

Paso 1.- Hacer la Referencia a la librería ADO

Paso 2.- Escribir el código

Dim cn As Connection
Dim rs As Recordset
Private Sub Form_Load()
Const strServidor = "localhost"
Const strBaseDatos = "basededatos"
Const strPassword = "mypassword"
Const strUsuario = "root"

Set cn = New Connection

cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & strServidor & _
"; DATABASE=" & strBaseDatos & _
"; User=" & strUsuario & _
"; Password=" & strPassword & "; OPTION=3"

cn.Open
Set rs = New Recordset

rs.Open "select * from Tabla", cn, adOpenStatic

Me.Caption = rs.Fields(0).Value
cn.Close
End Sub

Eso es todo :), un poderoso motor de base datos y gratuito 😉