• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

davide_shot

[VB6] ListView

4 mensagens neste tópico

boas...alguém me pode ajudar??

tou apresentar numa listview os campos que tenho numa base dados.. alguém me sabe dizer porque é que não me aparece as coisas que tenho na base dados?!(não me dá erro nenhum, o programa corre mas não mostra o que nos campos)  :P

fica aqui o codigo para darem uma vista de olhos..

   Dim dbs As Database
                    Dim rsProd As Recordset

Set dbs = OpenDatabase("bd1.mdb")
Set rsProd = dbs.OpenRecordset("Tabela1")
Set rsProd = dbs.OpenRecordset("select * " _
                                & " from Tabela1" _
                                & " order by Ref_Produto")

List1.ColumnHeaders.Add , , "Referência", 1200
List1.ColumnHeaders.Add , , "Produto Categoria", 1700
List1.ColumnHeaders.Add , , "Nome Produto", 1800
List1.ColumnHeaders.Add , , "Preço Produto", 1200
List1.ColumnHeaders.Add , , "Quantidade", 1300
List1.ColumnHeaders.Add , , "Restante Quantidade", 1450
List1.BorderStyle = ccFixedSingle
List1.View = lvwReport

Do While rsProd.EOF

    If Not IsNull(rsProd!Ref_produto) Then
      Set col = List1.ListItems.Add(, , rsProd!Ref_produto)
                col.SubItems(1) = rsProd!ProdutoCategoria
                col.SubItems(2) = rsProd!NomeProduto
                col.SubItems(3) = rsProd!PrecoProduto
                col.SubItems(4) = rsProd!Quantidade
                col.SubItems(5) = rsProd!RestanteQuantidade
                'soma = soma + col.SubItems(3)
    End If
    rsProd.MoveNext
Loop
rsProd.Close
Set rsProd = Nothing     

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas..

Eu não estou muito por dentro do assunto das bases de dados, mas as vezes que trabalhei com bases de dados e necessitei fazer o que estas a tentar fazer, não utilizei uma ListBox normal, utilizei as ListBox do componente Microsoft Data Bound List Controls 6.0. Basta indicares quel a bd, e a tabela e automaticamente são mostrados todos os campos dessa tabela.

Cumps

0

Partilhar esta mensagem


Link 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