CONEXIÓN BASE DE DATOS DESDE VBA A MYSQL

Siguiendo con las conexiones a bases de datos el turno ahora es para Mysql, desde 

VBA Excel podemos conectarnos a esta base de datos y realizar las operaciones básicas de Insertar, mostrar, Eliminar y actualizar registros.

Ingresa a Ms. excel y presiona la combinación Alt + F11, o desde el menú programador escoja Visual basic.

vaya al menú Insertar desde VBA y escoja UserForm, y diseña el siguiente formulario con los respectivos controles:

• 3 etiquetas
• 3 Cuadros de Texto
• 4 Botones de comando

No se te olvide incluir la referencia Microsoft activex Data object 2.8 desde el menú herramientas

Doble clic en el botón de Insertar

Private Sub Insertar_Click()
Dim conexion As New ADODB.Connection
'Lo mismo para el nombre del servidor, la base de datos, el usuario y la consulta
Dim miservidor,bd,user, sql As String
'el Recordset
Dim rs As ADODB.Recordset
'Estableciendo la conexión
miservidor = "127.0.0.1"
bd = "directorio"
user = "root"
Set conexion = New ADODB.Connection ' con esto utilizamos la conexión indicada más arriba
conexion.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
& ";SERVER=" & miservidor _
& ";DATABASE=" & bd _
& ";UID=" & user _
& ";OPTION=16427?"

Set rs = New ADODB.Recordset
sql = "insert into example (id,nombre, apellido) values('" & TextBox1.Text & "', '" & TextBox2.Text & "','" & TextBox3.Text & "')"

    conexion.Execute sql

    conexion.Close

    Set conexion = Nothing
End Sub