Insertar registros con Excel utilizando ODBC de MariaDB / MySQL

En anteriores secciones hemos estado trabajando en la instalación del ODBC y configuración del DSN para poder conectarnos desde excel. 

Utilizando el código de conexión ahora empezaremos a diseñar una plantilla en excel de forma simple para ingresar los datos y que a través de un botón, éste pueda recogerlos para enviarlos a nuestro gestor de datos MariaDB. Luego haremos la comprobación de la inserción del nuevo registro.

Empezaremos abriendo un archivo excel en blanco, a continuación te dejo el diseño que utilizaremos:

El único componente ActiveX será el botón con algunas propiedades alteradas, como son el name, caption, el backcolor, y forecolor. La celdas que se llenarán con los datos son simplemente celdas con bordes. Por el momento solo trabajaremos de este modo, quiere decir que nuestro botón tendrá que obtener los datos que coloquemos dentro de esas celdas.

Recuerda que para insertar el botón debes activar el "Modo Diseño", luego hacemos doble clic en el botón "Insertar". Una vez dentro del entorno de desarrollo, no olvides agregar la referencia del ActiveX para poder trabajar con el ODBC y por ende con el DSN. Y el código a continuación debes agregar dentro de la función clic del botón que se creó.

   
   /*
      Author: Ing. Dick Díaz Delgado
      Código VB para insertar un registro.
   */

   Private Sub btnInsertar_Click()

      Dim nombre, apellidos, telefono As String
    
      nombre = Range("D4").Value
      apellidos = Range("D6").Value
      telefono = Range("D8").Value
    
      Dim con As New ADODB.Connection ' Creación del objeto ADODB que se refiere al ODBC.
      con.Open "DSN=excel"            ' Utilizamos el DSN creado.
      If con.State = 1 Then           ' Se verifica si la conexión es correcta.
         Dim com As New ADODB.Command ' Creación del objeto command que permitirá utilizar sentencias SQL
         com.ActiveConnection = con   ' Activamos la conexión para el command
         com.CommandText = " INSERT INTO cliente(nombre, apellidos, telefono) VALUES('" & nombre & "','" & apellidos & "','" & telefono & "') "        ' Colocamos la sentencia para la inserción del nuevo registro.
         com.CommandType = adCmdText  ' Le mencionamos que es tipo sentencia.
         com.Execute                  ' Ejecumos el command
         
         ' Borramos las celdas una vez se haya ingresado.
         Range("D2").Value = ""
         Range("D4").Value = ""
         Range("D6").Value = ""
         Range("D8").Value = ""
         
      Else

         MsgBox "Error en la conexión."   ' En caso de no tener una conexión correcta saldrá este mensaje.'

      End If
    
   End Sub

Listo, una vez agregadas estas líneas de código, podemos desactivar el "Modo Diseño" y procedemos a ingresar los valores dentro de nuestras celdas, debido a que nuestro campo código es autoincrementable no colocaremos nada, luego hacemos clic en el botón "Insertar", debería de registrarse dentro de nuestra base de datos, ahora ingresemos y verifiquemos:

Como puedes ver nuestro nuevo registro se encuentra en nuestra base de datos, si tuviste algún problema en la codificación puedes dejar tu comentario.

Si deseas descargar el archivo junto a su base de datos te lo dejo en este enlace (clic aquí).

Espero haya sido de mucha ayuda esta sección, como puedes ver fue muy sencillo los pasos para la inserción de un nuevo registro. No te olvides dejar tu comentario que me ayudaría a seguir mejorando, y te agradecería por compartirlo en tus redes sociales.