Jump to content
williamjda

Como criar um botão para pesquisar dentro de um formulário?

Recommended Posts

williamjda

Amigos poderiam me ajudar com essa questão. Preciso criar um botão pesquisar dentro do meu formulário. Há três campos que gostaria de utilizar para pesquisar.

Att;

William

Share this post


Link to post
Share on other sites
bioshock

Desenvolve. Queres procurar na base de dados? Queres procurar no controlo que estás a utilizar?

Share this post


Link to post
Share on other sites
williamjda

Em um bd em access. E as informações irão aparecer em meu formulário.

Share this post


Link to post
Share on other sites
williamjda

Bom amigo sou meio que iniciante nesta area do vb, mas acho até que estou me saindo razoavelmente mais ou menos..RSRSRS

Bom meu fomulário ja esta pronto porem eu não sei por onde começar o código do botão pesquisar para introduzi-lo no meu form.

Os dados são gravados em um BD em access.

Share this post


Link to post
Share on other sites
bioshock

Sim..mas estás a usar datasets, bindingsources..?

Imaginando que estás a usar datasets e que preenches o formulário via mesmo, terias a seguinte query:

Dim query As String = "SELECT * FROM Tabela WHERE Codigo = '" & TextboxPesquisa.Text & "'"

Depois voltavas a expor os dados do código pesquisado na textbox no teu formulário.

Share this post


Link to post
Share on other sites
williamjda

Amigo veja se consegue me ajudar.

No meu formulário tem algumas listbox que são gravadas em um bd. As ultimas gravações aparecem um uma Listbox. Como se fosse um catalogo telefônico. Então criei o botão para pesquisar (filtrar) os dados. quando digito no campo um código que quero procurar ele oculta os dados dos ultimo registros no listbox e me tras o meu resultado da pesquisa.

Ele filtra palavra ou números parecido com o da pesquisa e mostra mais de um se tiver. Se o nome digitado for exato ele só me trás o exato. Porem quando ele me mostra só 1 resultado com o nome exato e eu seleciono ele no listbox ele deveria mostras nas textbox este resultado porem ele mostra o resultado de 1º arquivo gravado que esta em oculto por causa da pesquisa. Porem quando ele me trás vários resultados semelhante a palavra pesquisada o que eu selecionar ele me mostra nos textbox. como faço para resolver esta questão Veja meu código abaixo: Espero que tenha dado para entender.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFILTRO.Click

        If Not filtro_ligado Then

            ListBox1.Items.Clear()

            filtro_ligado = True

            BTFILTRO.BackColor = Color.LightBlue

            Le_arquivo()

            BTNOVO.Enabled = False

            BTALTERA.Enabled = False

            BTEXCLUIR.Enabled = False

            BTAVANÇAR.Enabled = False

            BTVOLTAR.Enabled = False

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""

            TextBox5.Text = ""

            TextBox6.Text = ""

            TextBox10.Text = ""

            TextBox11.Text = ""

            TextBox12.Text = ""

            TextBox13.Text = ""

            TextBox14.Text = ""

            TextBox15.Text = ""

            TextBox16.Text = ""

            TextBox17.Text = ""

            TextBox18.Text = ""

            TextBox19.Text = ""

            TextBox20.Text = ""

            TextBox21.Text = ""

            TextBox22.Text = ""

            TextBox23.Text = ""

            TextBox24.Text = ""

            TextBox25.Text = ""

            TextBox26.Text = ""

            TextBox27.Text = ""

            TextBox28.Text = ""

            TextBox29.Text = ""

            TextBox30.Text = ""

            TextBox31.Text = ""

            TextBox32.Text = ""

            TextBox33.Text = ""

            TextBox34.Text = ""

            TextBox35.Text = ""

            TextBox36.Text = ""

            MaskedTextBox1.Text = ""

            MaskedTextBox2.Text = ""

            MaskedTextBox3.Text = ""

            MaskedTextBox4.Text = ""

            TextBox1.Focus()

        Else

            filtro_ligado = False

            TextBox7.Text = ""

            BTFILTRO.BackColor = SystemColors.Control

            Le_arquivo()

            BTNOVO.Enabled = True

            BTALTERA.Enabled = True

            BTEXCLUIR.Enabled = True

            BTAVANÇAR.Enabled = True

            BTVOLTAR.Enabled = True

        End If

    End Sub

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.