Jump to content
Sign in to follow this  
asd29

problemas com ListBox [VB10]

Recommended Posts

asd29

existe maneira de eu clicar num item da listbox e ela automaticamente mostrar todos os dados em textbox's pertencentes a essa pessoa que eu cliquei? ( a listbox está ligada ao Access).

Desde já agradeço, Cumps !

Share this post


Link to post
Share on other sites
Caça

Sim, desde que consigas relacionar a informação.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
asd29

será que poderias dar uma ajuda?

nunca trabalhei com listbox e agora vejo-me obrigado a fazê-lo, se me pudesses ajudar era óptimo.

Share this post


Link to post
Share on other sites
Caça

Já conseguiste carregar a informação para a ListBox?

O que é que estás a colocar lá?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
asd29

coloquei lá nomes que por sua vez estão numa tabela "professor" no access.

o meu problema agora é conseguir, clicar num dos nomes e mostrar todos os dados em textbox's.

Share this post


Link to post
Share on other sites
Caça

Utiliza o evento SelectedIndexChanged da ListBox para carregar a informação, podes utilizar a propriedade SelectedItem para saberes qual foi o item seleccionado e através dele ir buscar toda a informação a tabela.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Exemplo de quê? Para utilizares o evento só tens de clicar duas vezes sobre a ListBox, para carregar os dados tens de fazer uma query.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
asd29

Boas !

precisava que me ajudassem a criar um código para conseguir ao clicar nos dados da listbox, aparecer os outros dados respectivos a essa pessoa nas textbox's (listbox ligada ao Access), sou iniciante e se alguém me poder ajudar desde já agradeço

Cumps !

Share this post


Link to post
Share on other sites
Caça

O que é que tens na ListBox? Nomes?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
asd29

a listbox está ligada ao Access, e lá contem os tais nomes dos professores, só que tentei e não consegui, por aquilo a dar ao clicar e então desisti, mas agora estou mesmo a precisar e bloqueie completamente  :wallbash:

Obrigado por toda a ajuda, Cumps !

Share this post


Link to post
Share on other sites
Caça

Mas os nomes já aparecem da ListBox, certo?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Precisas de uma query tipo isto

SELECT Campos_a_Selecionar FROM Professores WHERE Nome = @Nome

Que método é que estás a utilizar para aceder a Base de Dados?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
asd29

Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\BD_PAP.mdb")

já fiz algo assim do género, mas não deu !

Share this post


Link to post
Share on other sites
Caça

Mas como é que estás a aceder?

Que erro é que te deu com isso?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Ok, então adicionas-te um DataSet ao te projecto, certo?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Então abre esse DataSet, selecciona a tabela Professores e coloca lá a query que te indiquei, mas tens de a adaptar antes de a colocar lá.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Sim, seleciona a tabela no teu DataSet -> Add -> Query.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Agora adiciona o respectivo TableAdapter ao formulário e para executares é tipo isto

        Dim Resultado = Adaptador.NomeQueAtribuiste("Nome Selecionado")
        With Resultado.FirstOrDefault()
            TxtID.Text = .ID
            TxtNome.Text = .Nome
            '...
        End With


Pedro Martins

Não respondo a duvidas por PM

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
Sign in to follow this  

×
×
  • 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.