Como inserir todos os campos do access no listview?

 

Consegui inserir no Data Grid com o código:

Do While Not rs.EOF
If Text1.Text = rs!RE And rs!Impresso = 0 Then
Set DataGrid1.DataSource = rs

Não conseguo inserir no ListView

Obrigado.

Suriano

tente isso

 

Do While Not rs.EOF
If Text1.Text = rs!RE And rs!Impresso = 0 Then
list1.additem rs!RE

end if

loop

 

caso não funcione mande exatamente a forma que vc está fazendo

 

até

 

coloque isso na Declarations do teu form

 

Dim NewItem As MSComctlLib.ListItem

 

depois no evento que vai fazer a pesquisa

 

        While Not TabelaConsulta.EOF
            Set NewItem = lsvPedido.ListItems.Add(, , Format(TabelaConsulta("Referencia"), "000000"))
            With NewItem
                .SubItems(1) = "" & TabelaConsulta!Descricao
                .SubItems(2) = "" & TabelaConsulta("Unidade")
                .SubItems(3) = "" & TabelaConsulta!Disponiv
                .SubItems(4) = "" & FormatCurrency(mCustoItem, 2)
                '.SubItems(5) = "" & TabelaConsulta("Desconto") & " %"
            End With
            i = i + 1
            sspUsuario.Caption = "Foram Encontrado(s): " + str(i) + " Produto(s)"
            TabelaConsulta.MoveNext
        Wend

Roberto

Muito Obrigado, vou tentar o código.

Suriano

aí está o Código, ainda não está inserindo no ListView, não é list.....

 

SqlTabela = "Select [Tabela1].Produto,[Tabela1].entrada,[Tabela1].saida from Tabela1 where [Tabela1].Produto = '" & List2.Text & "'  and [Tabela1].Produto  LIKE  '" & List2.Text & "' ORDER BY Produto ASC"

Conecta
Set Form1.DataGrid1.DataSource = Nothing
Do While Not rs.EOF
Set Form1.DataGrid1.DataSource = rs
rs.MoveNext
Loop