Buscar un registro por el código con Excel utilizando ODBC de MariaDB / MySQL

Ahora que ya podemos insertar, modificar, y eliminar registros desde Excel a nuestra base de datos en MariaDB / MySQL. Agregaremos un botón más para poder buscar nuestros registros a través de su código.

Nuevamente reutilizaré el código de conexión con el que estuvimos trabajando para la inserción, modificación y eliminación ahora añadiremos al diseño de la plantilla en excel un  nuevo botón con el nombre "Buscar", para obtener el código y enviarlo a nuestro gestor de datos MariaDB para luego mostrarlo en los campos de nuestra plantilla.

Abrimos el archivo excel de los anteriores artículos, a continuación te dejo el diseño:

Cómo va funcionar el proceso de búsqueda, se deberá ingresar el código de nuestro registro, enseguida clic en el botón "Buscar" y listo.

Para ello empezaremos abriendo el archivo excel anterior, activamos el "Modo Diseño" a continuación hacemos doble clic en el botón "Buscar" dentro del cual añadiremos el siguiente código:

   
   /*
      Author: Ing. Dick Díaz Delgado
      Código VB para buscar un registro por su código.
   */

   Private Sub btnBuscar_Click()

      Dim codigo As String
      codigo = Range("D2").Value
    
      Dim con As New ADODB.Connection
      con.Open "DSN=mysqlODBCT"
      If con.State = 1 Then
         Dim com As New ADODB.Command
         com.ActiveConnection = con
         com.CommandText = " SELECT * FROM cliente WHERE idcliente = '" & codigo & "' "
         com.CommandType = adCmdText
         Dim rs As ADODB.Recordset
         Set rs = com.Execute
    
         If rs.EOF = False Then
            i = 2
            Do While Not rs.EOF
            
               Range("D4").Value = rs("nombre")
               Range("D6").Value = rs("apellidos")
               Range("D8").Value = rs("telefono")
                
               i = i + 1
               rs.MoveNext
            Loop
         Else
            MsgBox "El recordset está vacío."
         End If
        
         con.Close
      Else
         MsgBox "Error en la conexión."
      End If
    
   End Sub

Listo, una vez agregadas estas líneas de código, podemos desactivar el "Modo Diseño" y procedemos a ingresar el valor de nuestro código, luego hacemos clic en el botón "Buscar", debería de llenarse los campos según el código del registro dentro de nuestra base de datos, ahora verifiquemos. Tenemos un registro con el código "2".

 Escribimos el código.

Presionamos en el botón "Buscar". Y veamos que sucede.

 

Como puedes ver nuestra búsqueda del registro en nuestra base de datos llenó inmediatamente nuestras celdas, 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 búsqueda de un registro por su código. No te olvides dejar tu comentario que me ayudaría a seguir mejorando, y te agradecería por compartirlo en tus redes sociales.