[Resolvido] Preencher Listbox Por Textbox

[l_nando 0]

Pessoal, tudo bem?

 

Sou novo em vb.net e gostaria de saber como faço para Preencher Listbox Por Textbox no vb 2005.

 

Ex.:

 

Tenho um campo de busca, um botão de [ OK ] e um ListBox, gostaria de que quando eu preenchesse este campo com um nome de cliente aparecesse o resultado num ListBox.

 

Alguém pode me ajudar?

 

Não sei se é assim que posso começar, mas segue o código:

 

Private Sub btnPesq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        strSql = "Select * From CONTATOS where CLIENTE = " & txtCli.Text & ""

        Dim objConn = New OleDbConnection(strConn)
        Dim objComm = New OleDbCommand(strSql, objConn)

        objConn.Open()

    End Sub

Desde já agradeço a ajuda.

 

Abraço.

[quintelab 91]

O por que do seu select e consulta no banco?

Não é apenas para mover do TextBox para o ListBox?

 

Abraços...

[l_nando 0]

Porque eu precisaria consultar no banco, todos os contatos referente a um certo cliente!

 

Isso é possível ou tem uma maneira mais fácil?

 

Abraços...

[quintelab 91]

Então comece pesquisando sobre DataReader para fazer a consuta no banco, com o resultado do dataReader basta dar um add no list.

 

Abraços...

[quintelab 91]

A idéia é praticamente a mesma, de um clique duplo no seu ListBox, ele irá criar o evento padrão, com ele você recupera o item clicado e faz outro select para carregar os dados e alimentar a propriedade Text dos seus TextBox.

 

Abraços...

[l_nando 0]

Valeu quintelab!

 

Dei uma pesquisada e encontrei umas coisas, não sei se está totalmente correto, mas segue o cod.:

 

Private Sub btnPesq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPesq.Click
        strSql = "select CONTATO from CONTATOS where CLIENTE = '" & txtPesq.Text & "'"
        objConn = New OleDbConnection(strConn)
        objComm = New OleDb.OleDbCommand(strSql, objConn)
        objConn.Open()
        objDrd = objComm.ExecuteReader

        While (objDrd.Read)
            lstbContatos.Items.Add(objDrd("CONTATO"))
        End While
        objDrd.Close()
    End Sub

Mas está funcionando.

 

Agora só preciso de quando eu clicar em um contato no listBox, seja preenchido o form com seu dados!

 

Grato pela ajuda!

[l_nando 0]

Ok!

 

Já consegui.

 

Segue o cod.:

 

Private Sub lstbContatos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstbContatos.SelectedIndexChanged
        strSql = "select * from CONTATOS where CONTATO = '" & lstbContatos.Text & "'"
        objConn = New OleDbConnection(strConn)
        objComm = New OleDb.OleDbCommand(strSql, objConn)
        objConn.Open()
        objDrd = objComm.ExecuteReader

        If objDrd.HasRows Then

            objDrd.Read()

            lblId.Text = objDrd.Item("ID").ToString

            txtCod.Text = objDrd.Item("CODCLI").ToString

            txtCli.Text = objDrd.Item("CLIENTE").ToString

            txtEnd.Text = objDrd.Item("ENDERECO").ToString

            txtCont.Text = objDrd.Item("CONTATO").ToString

            txttel1.Text = objDrd.Item("TEL1").ToString

            txtTel2.Text = objDrd.Item("TEL2").ToString

            txtCel.Text = objDrd.Item("CEL").ToString

            txtEmail.Text = objDrd.Item("EMAIL").ToString

        Else
            MsgBox("Nenhuma Informação Encontrada")
        End If
        objConn.Close()
        objDrd.Close()
    End Sub

Muito obrigado pela força.

 

Este negócio de vb.net é muito interessante.

 

Valeu mesmo!!

 

Abraço.