Ir para o conteúdo
aprendiz93

Vb.Net trazendo todas as informações do Bd

Mensagens Recomendadas

aprendiz93

Bom dia geral tenho um botão chamado clientes cadastrados, quero q quando clicar neste botão ele traga todos os clientes já cadastrados no bd "access" e mostrar na tela criada.

agradeço desde já pela força.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Andrepereira9

http://vbtuga.blogspot.com/2008/04/vbnet-gesto-de-dados-em-sql-server.html

http://vbtuga.blogspot.com/2008/04/vbnet-gesto-de-dados-em-sql-server_16.html

Dim ligação As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Caminho para a BD;Persist Security Info=False;"

        Dim SQL As String = "SELECT * from NomeTabela"

        Dim connection As New OleDbConnection(ligação)

        Dim command As New OleDbCommand(SQL, connection)

        connection.Open()

        Dim leitor As OleDbDataReader = command.ExecuteReader()

        If leitor.HasRows Then

            While leitor.Read()
                Nome.text += leitor.Item("Nome")
                Morada.text += leitor.Item("Morada")
            End While

        End If

        connection.Close()
        connection = Nothing
        command = Nothing


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ribeiro55

Não "Sr. aprendiz93", não deixou bem clara a pergunta, até porque não fez nenhuma.

O que se faz por aqui, num quadro de linguagem específico, é tirar dúvidas, e como tal existem alguns protocolos importantes, como o indicar o que já tem/sabe, e o que pretende exactamente.

  • Já existe a tabela de utilizadores?
  • Como é constituída?
  • Como quer apresentar a informação?
  • yada yada yada ...

Por acaso sei o que é "BD". Muito obrigado de qualquer maneira.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Andrepereira9

O teu problema não está no código. esta no evento da listbox

Repara que só tens

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

Falta-te isto

Handles ListBox1.SelectedIndexChanged

Ou seja, fica assim

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Andrepereira9

boas

o problema é que não estas a adicionar nada ao ListBox1, e estas a ler os dois campos de uma vez. tem de ser um de cada vez

Em vez de:

ListBox1.Text += leitor.Item("Código,Razão Social")

Tenta assim:

ListBox1.Items.Add(leitor.Item("ID").ToString + " " + leitor.Item("Razão Social")).ToString()


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.