Como enlazo 2 combobox ! c/u con tablas distintas

[DavidNovato]

Buenas ! Como andan?

Aqui ando de nuevo molestandolos .. Espero puedan ayudarm otra vz.!

Tengo 2 combobox.. "proveedor" y "producto".. Lo que intento hacer es que al elegir un proveedor me muestre en el combobox "producto" unicamente los productos que proporciona ese proveedor..

Aqui les dejo el codigo que tngo:

Código vb:

Private Sub cboproveedor_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboproveedor.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, nombre FROM producto where Id_proveedor=" + cboproveedor.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()
 
        cboproducto.DataSource = dt
        cboproducto.DisplayMember = "nombre"
        cboproducto.ValueMember = "nombre"
    End Sub
 

Al ejecutarlo me da error en " adap.Fill(dt)
".. .. y buenoo no se que mas hacer..

Gracias de antemano por su tiempo y atencion . Saludos
Pd: BD mysql y trabajo con Windowsforms

[alexg88]

Buenas,

¿Puedes indicarnos que error te marca?

Saludos.

[DavidNovato]

Buenoo ya intentando he intentando logre hacerlo de una manera un poco distinta.. ahora el problema es que solo me muestra un producto!! cuando hay proveedores que tiene de 2 a 3 productos.. y no hallo la forma de que m muestre todos los productos de dicho proveedor..

Aca les dejo el codigo:

2 public function...

Código vb:

Public Function carga_proveedor() As DataTable
        Dim dt As New DataSet
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim consulta As String = "SELECT  ID_proveedor, nombre FROM proveedor" 'consulta a la tabla
        Dim adap As New MySqlDataAdapter(consulta, conexion)
        adap.Fill(dt, "proveedor")
        Return dt.Tables(0)
    End Function
 

Código vb:

Public Function producto_carga(ByVal id As String) As DataTable
        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 where Id_producto=" + id  'consulta a la tabla"
        Dim adap As New MySqlDataAdapter(SelectedValue, conexion)
        conexion.Open()
        adap.Fill(ds, "nombre")
        conexion.Close()
        Return ds.Tables(0)
    End Function
 

Y aca el SelectedIndexChanged

Código vb:

Private Sub cboproveedor_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboproveedor.SelectedIndexChanged
        Try
            Dim ds As New DataTable
            ds = producto_carga(cboproveedor.SelectedValue.ToString())
            cboproducto.DataSource = ds
            cboproducto.DisplayMember = "nombre"
            cboproducto.ValueMember = "ID_producto"
 
        Catch ex As Exception
            Return
        End Try
    End Sub
 

Repito: Selecciono 1 proveedor y me muestra el producto de ese proveedor, pero solo me muestra UNO SOLO... cuando hay proveedores que tienen hasta 3 productos...

[alexg88]

Sólo te muestra un producto porque la condición que has puesto en el where es:

Código:

where Id_producto=

cuando debería ser por proveedor.

Depende de como tengas hecha la base de datos, será de una u otra forma.

Por ejemplo, suponiendo que existe un campo Id_Proveedor en la tabla de Productos, sería:

Código:

SELECT  ID_producto, nombre FROM producto where Id_proveedor=" + id

[Erick21]

tu error esta en la consulta.

[DavidNovato]

Tenias Razon hermanazo.!!!! ..!Bien por esaa alexg88.!! Ahora si funcionaaa.! Muchas Gracias