Combinar un ComboBox y un TextBox con diferentes columnas de una BD


A peticion de Ariel, me complace compartir este sencillo ejemplo de cómo enlazar el Combobox visualizando el valor de una columna asignando el conocido ‘DisplayMember’ y obteniendo el valor de otra columna con su ‘ValueMember’. De esa forma entre otras muchas aplicaciones, lo tendremos disponible y podremos visualizarlo en un textbox por poner un ejemplo.


 


Public Class Form1
    Private MiComboBox As New ComboBox
    Private MiTextBox As New TextBox

    Private Sub Form1_Load(… ..) Handles MyBase.Load
       
        ‘ Simular tabla Maestros
       
        Dim Maestros As New DataTable(“Maestro”)
        Maestros.Columns.Add(“Nombre”)
        Maestros.Columns.Add(“Matricula”)
        Maestros.Rows.Add(“Juan Jose”, “1001 BCN”)
        Maestros.Rows.Add(“Alberto Juan”, “2002 ABC”)
        Maestros.Rows.Add(“Antonio Miguel”, “3003 NJR”)
        Maestros.Rows.Add(“Jose Maria”, “4004 FCB”)
       
        ‘ Construir el DataSet
       
        Dim MiDataSet As New DataSet
        MiDataSet.Tables.Add(Maestros)
       
        ‘ Añadir un ‘ComboBox’
        ‘ Conteniendo la tabla ‘Maestro’
        ‘ mostrando la columna ‘Nombre’
        ‘ y señalando como valor a la matricula
       
        MiComboBox.DisplayMember = “Nombre”
        MiComboBox.ValueMember = “Matricula”
        MiComboBox.DataSource = MiDataSet.Tables(“Maestro”)
        MiComboBox.Dock = DockStyle.Top
        Me.Controls.Add(MiComboBox)
        AddHandler MiComboBox.SelectedIndexChanged, AddressOf ActualizarTextBox
        MiTextBox.Dock = DockStyle.Bottom
        Me.Controls.Add(MiTextBox)
        ActualizarTextBox()
    End Sub
   
    ‘ Mover el valor seleccionado del combo al textbox
    Private Sub ActualizarTextBox()
        MiTextBox.Text = MiComboBox.SelectedValue
    End Sub
End
Class

3 thoughts on “Combinar un ComboBox y un TextBox con diferentes columnas de una BD”

  1. Hola Pep LLuis, de antemano gracias por tus aportes, recien estoy empezando a programar en visual studio vb.net y por favor podrias ayudarme con esta consulta:

    Tengo un combobox y unos tres textbox en el mismo formulario de una aplicacion de escritorio,
    el combobox que este enlazado a un tabla de una base de datos
    (ya sea mediante codigo o por DATASET), por ejemplo la tabla productos de Northwind
    que alli en ese combobox me muestre el nombre del producto,ya luego que
    despliegue el combobox y cuando escoja un item,en cada una de las cajas de
    texto me muestre los demas datos correspondientes de esa tabla del item escogido
    en el combobox:puede ser el precio, la descripcion, el stock.Y asi si escojo
    otro item del combobox me vuelva a mostrar sus repectivos datos en la cajas de texto.
    Muchas gracias.

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>