CARREGAR LISTBOX

THAINE 24/04/2012 14:22:45
#400656
Boa Tarde
eu preciso saber como faço para carregar um listbox atraves de um select, aqui esta a parte do código, não da erro nenhum, porem o listbox aparece em branco

Private Sub Listar()
Dim objCon As SqlConnection
objCon = New SqlConnection([Ô]server=localhost;uid=user;pwd=123;database=banco[Ô])
objCon.Open()
Dim strSQL As String
strSQL = [Ô]SELECT * FROM Ritmos ORDER BY Cod[Ô]
Dim dscat As New SqlDataAdapter(strSQL, objCon)
Dim dt As New DataTable
dscat.Fill(dt)
lstRitmo.Items.Add(dt)
End Sub

Alguem pode me ajudar ??
ALTAIR148 24/04/2012 14:37:30
#400659
Boa tarde,

Nesse LINK tem como fazer isso.

Thaine, fugindo um pouco da sua dúvida aqui tenho reparado em seus códigos, e em cada rotina você coloca a string de conexão com o seu banco, em um sistema muito grande isso ia ser um enorme problema para você, você deve estar se perguntando porque ia ser um problema, vou lhe explicar...

Supondo que você tenha um sistema enorme com centenas de funções, ai você vai e tem que mudar a string de conexão, que no seu caso é a : 
objCon = New SqlConnection([Ô]server=localhost;uid=user;pwd=123;database=banco[Ô])


Já pensou ter que ir mudando em todas no seu projeto? O que lhe sugiro por exemplo é criar uma classe de conexão e no seu projeto basta ir chamando ela, assim se por ventura precisar mudar o caminho do banco, ou algo parecido que se diz respeito a conexão, basta ir nessa classe, fazer a alteração e pronto, todo o seu projeto vai estar utilizando a mesma string de conexão.

Bom... também já é assunto para outro tópico, só que fica a dica mesmo.
THAINE 24/04/2012 15:08:28
#400665
sim eu sei disso, mas obrigada pelo toque

eu ja vi esse link e não entendi como faz ;s
ALTAIR148 24/04/2012 15:11:10
#400667 Resposta escolhida
Qual parte não entendeu?
THAINE 24/04/2012 15:12:45
#400669
essa parte

Dim texto As String
Dim i As Integer
Do While db_reader.Read
texto = db_reader.Item(0).ToString
For i = 1 To db_reader.FieldCount - 1
texto &= vbTab & db_reader.Item(i).ToString
Next i
lst.Items.Add(texto)
Loop
ALTAIR148 24/04/2012 15:17:00
#400670
Um exemplo em MYSQL, basta adptar.

 Dim reader As MySql.Data.MySqlClient.MySqlDataReader
        Dim cmd As MySql.Data.MySqlClient.MySqlCommand
        cmd = New MySql.Data.MySqlClient.MySqlCommand([Ô]select  nome  from  cadastro_aluno order by nome[Ô], conector.GetConexao1)
        reader = cmd.ExecuteReader
        While reader.Read
            listaAluNo.Items.Add(reader.Item([Ô]nome[Ô]))
        End While
THAINE 24/04/2012 15:32:34
#400675
o listbox ainda aparece em branco

Dim reader As SqlDataReader
Dim cmd As SqlCommand
cmd = New SqlCommand([Ô]SELECT * FROM Ritmos ORDER BY Cod[Ô], conexao.GetConexao1)
reader = cmd.ExecuteReader
While reader.Read
lstRitmo.Items.Add(reader.Item([Ô]Cod[Ô]))
End While
e existem 5 itens registrados na tabela
ALTAIR148 24/04/2012 15:37:58
#400676
Tente assim
Dim reader As SqlDataReader
        Dim cmd As SqlCommand
        cmd = New SqlCommand([Ô]SELECT Cod FROM Ritmos ORDER BY Cod[Ô], conexao.GetConexao1)
        reader = cmd.ExecuteReader
        While reader.Read
            lstRitmo.Items.Add(reader.Item([Ô]Cod[Ô]))
        End While
THAINE 24/04/2012 15:40:55
#400677
Deu certo
muito obrigada pela ajuda e paciencia
ate mais
ALTAIR148 24/04/2012 15:50:32
#400680
Onde era o erro:?
Tópico encerrado , respostas não são mais permitidas
Voltar