Enlazar un Combobox con otro Combobox

[DavidNovato]

Buenas , aqui estoy de nuevo.. ..

Trabajo cn WindiwsForms y una BD en MySql.. Hago las consultas en los combobox de manera perfecta (Gracias a este foro).. Ahora necesito en enlazar un Combo cn otro Combo..

EJ.: En la BD tengo una Tabla "Cliente" que contiene 2 Campos "Empresa" y "Sede".. asi que seria 1 combo para empresa y otro para sede.. El problemas es :

En el 1er combo me aparecen TODAS las empresas y ahii esta bien pero en el 2do combo tambien me aparecen TODAS las sede y eso no esta bien jajaa, necesito que dependiendo de la empresa que eliga en el Combobox1 me aparezacan en el Combobox2 UNICAMENTE las sedes de esa empresa que seleccione.!

Gracias de Antemano, disculpen la molestia y espero puedan ayudarme nuevamente.. .. que pasen un Buen Dia.!

[Aquaventus]

Pues en el evento SelectedIndexChanged de tu combo Empresa le colocas el cargado de datos que le haces en el load de tu combo sedes, pero nada mas que cambias el query haciendo un filtrado con where. Puedes extraer su value con TUCOMBOBOX.SelectedValue.ToString(). Por ello del post anterior para manejar el display y value. Saludos!.

[DavidNovato]

No tendras un link donde salga un ejemplo ??.. Entiendo mas visualmente.. sii se mas o menos lo que me quieres decir pero me enrredo al estructurarlo ..

Graciass!

[Aquaventus]

muestrame el codigo tal cual lo tienes.

[DavidNovato]

Comparado cn el ejemplo inicial.. PRODUCTO = "empresa" y SERIAL=" sede"

Código:

Private Sub cboproducto_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboproducto.SelectedIndexChanged

        Dim dt As New DataTable
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim consulta As String = "SELECT  ID_producto, serial FROM producto where serial= ID_producto " 'consulta a la tabla"
        Dim comando As New MySqlCommand(consulta, conexion)
        Dim adap As New MySqlDataAdapter(comando)

        conexion.Open()

        cboproducto.SelectedValue.ToString()

        conexion.Close()
    End Sub

Sinceramente creooo que esta muy mal mi codigo...

[Aquaventus]

Y sí que esta muy mal jajaja pero estabas cerca :

Código vb:

Private Sub cboproducto_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboproducto.SelectedIndexChanged
 
        Dim dt As New DataTable
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim consulta As String = "SELECT  XXXXX, XXXXX FROM serial where ID_producto= " + cboproducto.SelectedValue.ToString()  'consulta a la tabla"
        Dim comando As New MySqlCommand(consulta, conexion)
        Dim adap As New MySqlDataAdapter(comando)
 
        conexion.Open()
 
        adap.Fill(dt)
 
        conexion.Close()
 
        cboSerial.DataSource = dt
        cboSerial.DisplayMember = "XXXXX"
        cboSerial.ValueMember = "XXXXX"
 
    End Sub
 

Prueba y nos comentas. Saludos!.

[DavidNovato]

jajaja.. sii valee algo malita..

Oye me da ese error : Unknown column 'System.Data.DataRowView' in 'where clause'.. en adap.Fill(dt)... Creo q es porq el codigo Inicial estaba en un "Public Function".. y empezaba asi : Public Function Datos4() As DataTable...

Ese "Datos4() as DataTable" asumo yo que le faltara al codigo actual que estamos estructurando no?.. pero sii se lo coloco me da error ahi.. :S

[Aquaventus]

por favor coloca el codigo tal cual lo tienes.

[DavidNovato]

Código PHP:

      Private Sub cboproducto_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboproducto.SelectedIndexChanged 
 
        Dim dt As New DataTable 
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion 
        Dim SelectedValue As String = "SELECT  ID_producto, serial FROM producto where serial=" + cboproducto.SelectedValue.ToString  'consulta a la tabla" 
        Dim comando As New MySqlCommand(SelectedValue, conexion) 
        Dim adap As New MySqlDataAdapter(comando) 
 
        conexion.Open() 
        adap.Fill(dt) 
        conexion.Close() 
        Return 
        cboserial.DataSource = dt 
        cboserial.DisplayMember = "serial" 
        cboserial.ValueMember = "ID_producto" 
    End Sub  
   

[DavidNovato]

Código vb:

Private Sub cboproducto_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboproducto.SelectedIndexChanged
 
        Dim dt As New DataTable
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim SelectedValue As String = "SELECT  ID_producto, serial FROM producto where serial=" + cboproducto.SelectedValue.ToString  'consulta a la tabla"
        Dim comando As New MySqlCommand(SelectedValue, conexion)
        Dim adap As New MySqlDataAdapter(comando)
 
        conexion.Open()
        adap.Fill(dt)
        conexion.Close()
 
        cboserial.DataSource = dt
        cboserial.DisplayMember = "serial"
        cboserial.ValueMember = "ID_producto"
    End Sub
End Class
 

Disculpa, este es el actual..

[Aquaventus]

Primero, cuales son las tablas Empresas y sedes? Quiero ver sus campos de cada una, hay alguna relacion entre ellas...? Porque hay algo que no me queda claro... Saludos!.

[DavidNovato]

Ese era un ej. solamente..!!

El caso real es una tabla llamasda "producto".. que contiene los campos NOMBRE(del producto) y otro campo llamado SERIAL..!

Que quiero? que cuando en el combobox dond va el nombre del producto yo seleccione un producto, en el combobox del serial unicamente aparezca el serial de ese producto...

[DavidNovato]

Bueno ahi vere como hago ;)

Graciasss por la ayuda y la paciencia.!

[Aquaventus]

Hola DavidNovato,debiste haberlo dicho desde el principio.... yo pensé que estabas relacionando tablas, cuando en realidad es 1 solo... Aunque en realidad está mal modelado, no puedo hacer más ya que es "tu lógica", pero ahi vamos :
En el combo producto que cargas en el load del formulario debe ser así

Código vb:

Dim dt As New DataTable
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim SelectedValue As String = "SELECT  ID_producto FROM producto" 'consulta a la tabla
        Dim comando As New MySqlCommand(SelectedValue, conexion)
        Dim adap As New MySqlDataAdapter(comando)
 
        conexion.Open()
        adap.Fill(dt)
        conexion.Close()
 
        cboProducto.DataSource = dt
        cboProducto.DisplayMember = "ID_producto"
        cboProducto.ValueMember = "ID_producto"
        cboProducto.SelectedIndex = -1
 

Y en el evento selectedindexchanged de tu combo producto :

Código vb:

Private Sub cboproducto_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboproducto.SelectedIndexChanged
 
        Dim dt As New DataTable
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim SelectedValue As String = "SELECT  serial FROM producto where Id_producto=" + cboproducto.SelectedValue.ToString  'consulta a la tabla"
        Dim comando As New MySqlCommand(SelectedValue, conexion)
        Dim adap As New MySqlDataAdapter(comando)
 
        conexion.Open()
        adap.Fill(dt)
        conexion.Close()
 
        cboserial.DataSource = dt
        cboserial.DisplayMember = "serial"
        cboserial.ValueMember = "serial"
    End Sub
End Class
 

Prueba y nos comentas! Saludos!.

[DavidNovato]

Bueno hermano mala mia...

Y pues me sigue dando el mismo error en adap.Fill(dt).. del evento selectedindexchanged... dic "Unknown column 'System.Data.DataRowView' in 'where clause'"..

Y buenoo si quieres lo dejamos asii pa no seguirt quitando el tiempo ;) !

[Aquaventus]

Se me hace muy raro... muestrame el codigo para ver como lo has adaptado. Tanto del LOAD como del SELECTEDINDEXCHANGED. Saludos!.

[DavidNovato]

Codigo en el LOAD:

Código vb:

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim dt As New DataTable
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim SelectedValue As String = "SELECT  ID_producto, nombre FROM producto" 'consulta a la tabla
        Dim comando As New MySqlCommand(SelectedValue, conexion)
        Dim adap As New MySqlDataAdapter(comando)
        conexion.Open()
        adap.Fill(dt)
        conexion.Close()
        cboproducto.DataSource = dt
        cboproducto.DisplayMember = "nombre"
        cboproducto.ValueMember = "ID_producto"
        cboproducto.SelectedIndex = -1
 

Codigo en el EVENTO:

Código vb:

Dim dt As New DataTable
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion 
        Dim SelectedValue As String = "SELECT  serial FROM producto where Id_producto=" + cboproducto.SelectedValue.ToString  'consulta a la tabla"
        Dim comando As New MySqlCommand(SelectedValue, conexion)
        Dim adap As New MySqlDataAdapter(comando)
        conexion.Open()
        adap.Fill(dt)
        conexion.Close()
        cboserial.DataSource = dt
        cboserial.DisplayMember = "serial"
        cboserial.ValueMember = "serial"
 

[Aquaventus]

Cambialo así :

Código vb:

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim ds As New DataSet
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim SelectedValue As String = "SELECT  ID_producto, nombre FROM producto" 'consulta a la tabla
        Dim comando As New MySqlCommand(SelectedValue, conexion)
        Dim adap As New MySqlDataAdapter(comando)
        conexion.Open()
        adap.Fill(ds,"Productos")
        conexion.Close()
        cboproducto.DataSource = ds.Tables(0)
        cboproducto.DisplayMember = "nombre"
        cboproducto.ValueMember = "ID_producto"
        cboproducto.SelectedIndex = -1
 

Para el evento :

Código vb:

Dim ds As New DataSet
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion 
        Dim SelectedValue As String = "SELECT  serial FROM producto where Id_producto=" + cboproducto.SelectedValue.ToString  'consulta a la tabla"
        Dim comando As New MySqlCommand(SelectedValue, conexion)
        Dim adap As New MySqlDataAdapter(comando)
        conexion.Open()
        adap.Fill(ds,"Serial")
        conexion.Close()
        cboserial.DataSource = ds.Tables(0)
        cboserial.DisplayMember = "serial"
        cboserial.ValueMember = "serial"
 

Prueba y comentas. Saludos!.

[DavidNovato]

No hermano.! me sigue dando el mismo error..!! :(

[Aquaventus]

Creo que ya sé por donde viene... creo que falto validar alguito :

Código vb:

If cboproducto.SelectedIndex > 0 Then
 
Dim ds As New DataSet
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion 
        Dim SelectedValue As String = "SELECT  serial FROM producto where Id_producto=" + cboproducto.SelectedValue.ToString  'consulta a la tabla"
        Dim comando As New MySqlCommand(SelectedValue, conexion)
        Dim adap As New MySqlDataAdapter(comando)
        conexion.Open()
        adap.Fill(ds,"Serial")
        conexion.Close()
        cboserial.DataSource = ds.Tables(0)
        cboserial.DisplayMember = "serial"
        cboserial.ValueMember = "serial"
 
End If
 

[DavidNovato]

BIENNN.!!!.. ya por lo mnos si funcionaa... :D.! pero por alguna extraña razon con el primer producto del combobox no funciona..!!

Tngo 3 productos y 3 seriales.. con los ultimos 2 sii funciona perfecto.. pero con el 1ero no.. lo selecciono y voy al combo de los seriales y aparecen los 3 SERIALES..

[Aquaventus]

Jajaja sí, un pequeñísimo error... Colócale >= :

Código vb:

cboproducto.SelectedIndex >= 0
 

Saludos!.

[DavidNovato]

Coye hermano no salimos d una ajajaja.. si le coloco : ">="........ me da el error de antess..!

[Aquaventus]

Hazle un seguimiento con los breakpoints y fijate el flujo como va para que veas exactamente donde cae el incidente.

[DavidNovato]

Como hago eso? y disculpa mi ignorancia.... XD

[Aquaventus]

Mira esto Como usar breakpoints, si bien está en VB6 es lo mismo para VB.NET. Saludos!.

PDT : te dejo otro enlace mas avanzado aqui

[MaLkAvIaN_NeT]

utiliza el combo grilla de devcomponents

[DavidNovato]

Aquaventus.! Ayer me habia ido hacer unas cosas, y pues lei el lick que me dijistee.. pero sinceramente no me quedo muy claro xd..! Si los use pero no se que se supone que eso me tenga que decir o donde salga la informacion.. :S ..!

[Aquaventus]

te eh dejado un mensaje privado leelo y respondeme, estamos alargando mucho el tema. Saludos!.

[DavidNovato]

Coloque el breakpoint dond me daba el error.. en :adap.Fill(dt) y cuando lo ejecuto que elijo el producto se detiene la aplicaciion y en la ventana de abajo dond normalmente salen los errores.. me aparece en rojo :

SelectedValue "SELECT serial FROM producto where Id_producto=3" String