(Resolvido) (Resolvido) vb.net Combobox

[rizuane]

oi pessoal

tenho uma duvida acerca das combobox, vejamos o exemplo da tabela PRODUTO abaixo:

 

id

produto

estoque

valor

1

sabao

30

15.00

2

perfume

11

550.00

A minha combobox deve ser capaz de trazer nome produto.quando selecionar mos a combobox para escolher o perfume por exemplo, ele tera de trazer os dados do perfume como estoque e o preço que serao mostradas em duas textbox, ficando assim:

a selecao devia aparecer assim quando selecionamos os produtos na combo:

combobox=perfume, textbox1=11, textbox2=550.00

agradecia que me ajudassem com um codigo em vb.net

abraxos

Editado Fevereiro 12, 2010 por rizuane

[quintelab]

No evento change do seu combo você terá que fazer uma consuta na sua base de dados para trazer esses dados.

Abraços...

[rizuane]

Com a dica que o QUINTELAB deu-me, fui investigar e consegui resolver o caso, abaixo posto a soluxao:

'ao seleccionar uma combobox aparecesse em duas textbox valores da base de dados (PARA TABELA PRODUTOS)

Dim con As New SqlConnection()


        Try

            con.ConnectionString = Dados.StringDeConexao
            con.Open()


            Dim strsql As String

            strsql = "Select * from PRODUTOS where produto ='" & ComboBox4.Text & "'"

          
            Dim cmd As New SqlCommand(strsql, con)


            Dim dr As SqlClient.SqlDataReader

            dr = cmd.ExecuteReader

            While dr.Read()

                TextBox7.Text = dr.Item("referencia")

                TextBox8.Text = dr.Item("quantidade")

                TextBox9.Text = dr.Item("preço")

            End While

            con.Close()



        Catch ex As SqlException

            MsgBox(ex.Message)

        End Try

Mas antes deves popular a sua combobox, no meu caso no evento load tenho esse codigo:

'PREENCHE A COMBObox COM O NOME DO PRODUTO
        Dim strSql3 As String
        strSql3 = "select produto from PRODUTOS"
        ComboFill(ComboBox4, strSql3)

'METODO USADO PARA PREENCHER A COMBObox

Public Sub ComboFill(ByVal cbo As ComboBox, ByVal strsql As String)

        Dim dt As New DataTable


        'conexao
        Dim con As New SqlConnection()

        Try
            con.ConnectionString = Dados.StringDeConexao
            con.Open()

            Dim cmd As New SqlCommand(strsql, con)
            Dim da As New SqlDataAdapter(cmd)
            da.Fill(dt)
            With cbo
                .DataSource = Nothing 'para limpar se for recarregada
                .DataSource = dt
                .ValueMember = dt.Columns(0).ToString
                '.DisplayMember = dt.Columns(1).ToString
            End With

            con.Close()

        Catch ex As SqlException

            MsgBox(ex.Message)

        End Try

    End Sub

Espero poder ajudar os outros.

Obrigado

Editado Fevereiro 12, 2010 por rizuane

[quintelab]

Muito bom!!

Abraços...