Seleccion en combobox

[guillebomtrasmiti]

Hola amigos, esto trabajando en vbnet y tengo una dudilla, espero podais ayudarme, tengo un formulario con un combobox y ahí cargo el contenido de una tabla, quiero que cuando selecciono una opción del combo se carguen en un datagridview los productos correspondientes, pensando que tengo una tabla que es; Familiasproducto y otra Productos unidas por un campo que se llama NFamProd en familias dónde un número indica que número de familia es y otro campo en productos que es NFamilia que indica el número de la familia a la que corresponde ese producto, os mando el código del combo...gracias...


Private Sub frmAltaProductos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cargar_combo()
End Sub
Public Sub cargar_combo()

conexion.ConnectionString = "Data Source=.\SQLEXPRESS11;AttachDbFilename=C:\VISUAL\T pvVigoSe\TpvVigo\Tpv.mdf;" & _
"Integrated Security=True;" & _
"Connect Timeout=30;" & _
"User Instance=True"

Dim adaptador As New SqlDataAdapter("Select NombreFamilia From FamiliasProducto ORDER BY OrdenFamilia ASC", conexion)

'Dim midataset As New DataSet


adaptador.Fill(midataset, "FamiliasProducto")


ComboBox1.DataSource = midataset.Tables("FamiliasProducto")
ComboBox1.DisplayMember = "NombreFamilia"
'ComboBox1.ValueMember = "Orden"

End Sub

[guillebomtrasmiti]

mando más código...pero no me da salido

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim codigo As Integer

Try
codigo = Convert.ToInt32(ComboBox1.SelectedValue)
Catch ex As InvalidCastException

Exit Sub

End Try

Dim a As Integer = New Integer

Dim adaptador As New SqlDataAdapter("Select Producto From Productos Where NFamilia= " & codigo, conexion)

'aquí cargo el dataset con la tabla deseada y lo cargo con fill
midataset.Tables("Productos").Clear()
adaptador.Fill(midataset.Tables("Productos"))
If DgLista.DataMember = "" Then
DgLista.DataMember = "Productos"

End If
End Sub
Public Sub cargargrid()

conexion.ConnectionString = "Data Source=.\SQLEXPRESS11;AttachDbFilename=C:\VISUAL\T pvVigoSe\TpvVigo\Tpv.mdf;" & _
"Integrated Security=True;" & _
"Connect Timeout=30;" & _
"User Instance=True"


'aquí cargo la estética del datagrid
DgLista.DefaultCellStyle.SelectionBackColor = Color.Gold
DgLista.AlternatingRowsDefaultCellStyle.BackColor = Color.Khaki
DgLista.DefaultCellStyle.BackColor = Color.Beige
DgLista.RowTemplate.Height = 20
DgLista.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells

'aquí cargo el datasource y el datamenber del datagrid
DgLista.DataSource = midataset.Tables("Productos")

End Sub
End Class

[Ka0stj]

Hola trata con algo similar a lo siguiente:

En tu evento SelectedIndexChanged de tu combobox.

Código vb:

'-- Asigno parámetros de conexión
        objConn = New SqlConnection(MiConexion.StrConexion)
 
        '-- Declaro una variable tipo BindingSource para enlazar mi DataTable a mi DataGridView
        Dim source1 As New BindingSource()
 
        '-- Creo un DataTable
        Dim MiDataTable As New DataTable
 
        '-- Declaro una variable tipo SqlDataAdapter
        Dim CustomerTableAdapter As SqlDataAdapter
 
        Try
            '-- Abro la conexión
            objConn.Open()
 
            '-- Creo un nuevo SqlDataAdapter pasándoles la Instrucción SQL y mi objeto Conexión
            CustomerTableAdapter = New SqlDataAdapter(SQL_Productos, objConn)
 
            '-- Lleno mi DataTale
            CustomerTableAdapter.Fill(MiDataTable)
 
            '-- Asigo mi DataTable a mi source
            source1.DataSource = MiDataTable
 
            '-- Asigno mi source a mi DataGridView
            Me.dgvProductos.DataSource = source1
 
            '-- Hago el Filtrado por medio del nombre del producto con respecto a lo que se           'escriba en el TextBox
            source1.Filter = "producto LIKE '%" & ComboBox1.Text & "%'"
            '-- Cierro la conexión
            objConn.Close()
 
Catch ex As Exception
    MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
    objConn.Close()
End Try
 

Obviamente que lo tienes que adaptar a tus necesidades, es decir, en la linea source1.Filter tu no utilizaras el like ya que tu código es un Integer.

Espero y te sirva, Saludos!

[guillebomtrasmiti]

ok, voy a probarlo, muchas...muchas gracias

[guillebomtrasmiti]

nada, al final lo arreglé así, lo dejo pa quien le valga...abrazoooossss

Public Sub cargar_combo()

conexion.ConnectionString = "Data Source=.\SQLEXPRESS11;AttachDbFilename=C:\VISUAL\T pvVigoSe\TpvVigo\Tpv.mdf;" & _
"Integrated Security=True;" & _
"Connect Timeout=30;" & _
"User Instance=True"

Dim adaptador As New SqlDataAdapter("Select NombreFamilia,IdF From FamiliasProducto ORDER BY OrdenFamilia ASC", conexion)

'Dim midataset As New DataSet


adaptador.Fill(midataset, "FamiliasProducto")


ComboBox1.DataSource = midataset.Tables("FamiliasProducto")
ComboBox1.DisplayMember = "NombreFamilia"
ComboBox1.ValueMember = "IdF"

End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Dim codigo As Integer

Try
codigo = Convert.ToInt32(ComboBox1.SelectedValue)
Catch ex As InvalidCastException

Exit Sub

End Try

Dim a As Integer = New Integer

Dim adaptadorcombo As New SqlDataAdapter("Select Producto From Productos Where NFamilia= " & codigo, conexion)

'aquí cargo el dataset con la tabla deseada y lo cargo con fill
midatasetproductos.Clear()
adaptadorcombo.Fill(midatasetproductos, "Productos")
If DgLista.DataMember = "" Then
DgLista.DataMember = "Productos"

End If


End Sub