Qué es un ComboBox en Visual Basic
Un ComboBox en Visual Basic es un control que combina una caja de texto y una lista desplegable. Proporciona al usuario una lista de opciones para seleccionar y, al seleccionar una opción, se muestra en el cuadro de texto.
Cuándo Usar ComboBox en Visual Basic
Los ComboBox son ideales si tienes una lista de opciones que quieres mostrar al usuario. Esto puede ser especialmente útil si estás construyendo una aplicación que interactúe con una base de datos MySQL, donde la lista de opciones puede provenir de una consulta de base de datos.
Estructura de la Base de Datos MySQL
Antes de que podamos añadir datos a la base de datos MySQL desde nuestro ComboBox, necesitamos una base de datos y una tabla para añadir datos. Para este ejemplo, supongamos que ya tienes una base de datos llamada ‘miBaseDeDatos’ y una tabla llamada ‘miTabla’ en MySQL.
Cargar Datos al ComboBox desde una Base de Datos en MySQL
Aquí es donde empiezan las cosas divertidas. Ahora que tenemos una base de datos y una tabla, necesitamos cargar los datos en nuestro ComboBox.
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim conn As New MySqlConnection("server=localhost; database=miBaseDeDatos; uid=root; pwd=; SslMode=none")
conn.Open()
Dim cmd As New MySqlCommand("select columna1 from miTabla", conn)
Dim rdr As MySqlDataReader = cmd.ExecuteReader
While rdr.Read
ComboBox1.Items.Add(rdr("columna1"))
End While
rdr.Close()
conn.Close()
End Sub
End Class
Cómo Agregar Datos de ComboBox a la Base de Datos MySQL
Después de cargar los datos en el ComboBox, podemos finalmente llegar al núcleo de este blog: agregar datos seleccionados en el ComboBox a la base de datos MySQL.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim conn As New MySqlConnection("server=localhost; database=miBaseDeDatos; uid=root; pwd=; SslMode=none")
conn.Open()
Dim cmd As New MySqlCommand("insert into miTabla (columna1) values ('" & ComboBox1.SelectedItem & "')", conn)
cmd.ExecuteNonQuery()
conn.Close()
MsgBox("Datos Guardados")
End Sub
Este código de ejemplo agregará el dato seleccionado en el ComboBox a la columna ‘columna1’ en ‘miTabla’.
Conexión Segura a la Base de Datos MySQL
La seguridad es un gran problema en la programación y, por lo tanto, también debería serlo en la programación de Visual Basic. Aquí te mostramos cómo establecer una conexión segura a MySQL desde Visual Basic:
Dim conn As New MySqlConnection("server=localhost; database=miBaseDeDatos; uid=root; pwd=myPassword; SslMode=Required")
Como puedes ver, en la cadena de conexión, hemos agregado ‘SslMode=Required’ y reemplazado ‘myPassword’ con la contraseña de tu base de datos para hacer la conexión segura.