[Resolvido] vb.net Combobox

[rizuane 0]

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 preco 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

[quintelab 91]

No evento change do textbox você terá que fazer uma consulta no banco para trazer os dados.

 

Abraços...

[rizuane 0]

Obrigado pela dica quintelab. 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("preco")

            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 outros.

 

Txau

[quintelab 91]

Muito bom!!

 

Abraços...