LISTAS PESQUISA EM LIST VIEW

MASTER2020 06/04/2007 19:18:42
#210632
pessoal fiz esta consulta pra gerar um relatorio
mas pra ela listar no list view nao tenho nem ideia
sera q vc podem me dar uma dica obrigado
fiz isso

Dim Data1 As Date
Dim Data2 As Date
Data1 = TxtDtIni2.Text
Data2 = TxtDtfim3.Text
RSProdutos.Open "SELECT * From tblvende where datavenda BetWeen #" & Format$(Data1, "mm/dd/yyyy") & "# And #" & Format$(Data2, "mm/dd/yyyy") & "# ;", Conexao, 3, 3
If Not RSProdutos.EOF Then
Set relvendas.DataSource = RSProdutos
relvendas.Show

isso pra relatorio
mas para list view nao sei
valeu
USUARIO.EXCLUIDOS 06/04/2007 19:50:47
#210635 Resposta escolhida
Amigao, da uma olhadinha nisso aqui q eu fiz:
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=6490&TxtSearch=listview&CmbSort=funome&varPagina=1
USUARIO.EXCLUIDOS 06/04/2007 19:52:18
#210636
OU ateh mais facil ó:

Private Sub Form_Load()
Dim Lt As ListItem
Set Rst = New ADODB.Recordset
Sql = "SELECT * Preço FROM Sua_tabela"
Rst.Open Sql, CON, adOpenDynamic, adLockBatchOptimistic
With ListView1
  Do While Not Rst.EOF
    Set Lt = .ListItems.Add(, , Rst("Código"))
    Lt.SubItems(1) = Rst("Descrição")
    Lt.SubItems(2) = "R$ " & Rst("Preço")
    Rst.MoveNext
  Loop
End With
Rst.Close
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar