Ver Mensaje Individual
  #3 (permalink)  
Antiguo 02/07/2012, 13:25
DavidNovato
 
Fecha de Ingreso: junio-2012
Ubicación: Caracas-Venezuela
Mensajes: 114
Antigüedad: 11 años, 10 meses
Puntos: 0
Respuesta: Como enlazo 2 combobox ! c/u con tablas distintas

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:
Ver original
  1. Public Function carga_proveedor() As DataTable
  2.         Dim dt As New DataSet
  3.         Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
  4.        Dim consulta As String = "SELECT  ID_proveedor, nombre FROM proveedor" 'consulta a la tabla
  5.        Dim adap As New MySqlDataAdapter(consulta, conexion)
  6.         adap.Fill(dt, "proveedor")
  7.         Return dt.Tables(0)
  8.     End Function

Código vb:
Ver original
  1. Public Function producto_carga(ByVal id As String) As DataTable
  2.         Dim ds As New DataSet
  3.         Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
  4.        Dim SelectedValue As String = "SELECT  ID_producto, nombre FROM producto where Id_producto=" + id  'consulta a la tabla"
  5.        Dim adap As New MySqlDataAdapter(SelectedValue, conexion)
  6.         conexion.Open()
  7.         adap.Fill(ds, "nombre")
  8.         conexion.Close()
  9.         Return ds.Tables(0)
  10.     End Function

Y aca el SelectedIndexChanged

Código vb:
Ver original
  1. Private Sub cboproveedor_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboproveedor.SelectedIndexChanged
  2.         Try
  3.             Dim ds As New DataTable
  4.             ds = producto_carga(cboproveedor.SelectedValue.ToString())
  5.             cboproducto.DataSource = ds
  6.             cboproducto.DisplayMember = "nombre"
  7.             cboproducto.ValueMember = "ID_producto"
  8.  
  9.         Catch ex As Exception
  10.             Return
  11.         End Try
  12.     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...
__________________
David`Novato