Estou fazendo uma aplicação em ue tenho que usar datas no listview,,,bem a intenção é essa: tenho um form que possui um listview, uma caixa de texto para data inicial e outra caixa de texto para data final e um botao para localizar,,,,como faria para que quando digitasse a data inicial e a data final, os dados filtrados serem jogados no list,,,para quem sabe valeu!!!

A situação não é referente ao list e sim na consulta em sql.O codigo abaixo foi feito para relatorio com periodo mes/ano

Private Sub Carregar_Data_Mes()
Select Case CmbMes.Text
Case Is = "Janeiro":
DataI = CDate("1/1/" + CmbAno.Text)
DataF = CDate("31/1/" + CmbAno.Text)
Case Is = "Fevereiro":
DataI = CDate("1/2/" + CmbAno.Text)
DataF = CDate("28/2/" + CmbAno.Text)
Case Is = "Março":
DataI = CDate("1/3/" + CmbAno.Text)
DataF = CDate("31/3/" + CmbAno.Text)
Case Is = "Abril":
DataI = CDate("1/4/" + CmbAno.Text)
DataF = CDate("30/4/" + CmbAno.Text)
Case Is = "Maio":
DataI = CDate("1/5/" + CmbAno.Text)
DataF = CDate("31/5/" + CmbAno.Text)
Case Is = "Junho":
DataI = CDate("1/6/" + CmbAno.Text)
DataF = CDate("30/6/" + CmbAno.Text)
Case Is = "Julho":
DataI = CDate("1/7/" + CmbAno.Text)
DataF = CDate("31/7/" + CmbAno.Text)
Case Is = "Agosto":
DataI = CDate("1/8/" + CmbAno.Text)
DataF = CDate("31/8/" + CmbAno.Text)
Case Is = "Setembro":
DataI = CDate("1/9/" + CmbAno.Text)
DataF = CDate("30/9/" + CmbAno.Text)
Case Is = "Outubro":
DataI = CDate("1/10/" + CmbAno.Text)
DataF = CDate("31/10/" + CmbAno.Text)
Case Is = "Novembro":
DataI = CDate("1/11/" + CmbAno.Text)
DataF = CDate("30/11/" + CmbAno.Text)
Case Is = "Dezembro":
DataI = CDate("1/12/" + CmbAno.Text)
DataF = CDate("31/12/" + CmbAno.Text)
End Select
End Sub


reg.Open "Select count(*) as qde from controle where origem = " & TIPO & " and data between
#" & FormatDataI, "yyyy/mm/dd") & "#
and
#" & Format(DataF, "yyyy/mm/dd") & "#", bd

Tras os registros entre as datas.

Com o reg carregue o lista normalmente.
O formato da data no banco deve se yyyy/mm/dd

T+ Renato Mattos

Marcio,

Se você quer saber somente como inserir dados no listview, eis um pqueno exemplo:
Após selecionar seus registro conforme o exemplo anterior faça o seguinte:

‘adodc1 - >

With adodc1.recordset
For j = 1 To Adodc1.Recordset.RecordCount
Set oItem = ListViewPagamentos.ListItems.Add(, , j)
oItem.SubItems(1) = !NomeCampo1
oItem.SubItems(2) = !NomeCampo1
oItem.SubItems(3) = !NomeCampo1
...
...

Next

End with
.
.
.
Espero tê-lo ajudado um pouquinho mais.

Aí vai um peq. código

Dim Conex As ADODB.Connection, Rs As ADODB.Recordset, Ad As ListItem, Str As String

'Faz a conexão usando ado
Set Conex = New ADODB.Connection
Conex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\Banco.mdb;Jet OLEDB atabase Password= suasenha"

'Abre um Recordset somente para leitura
Set Rs = New ADODB.Recordset
Str = "Select * from SuaTabela Where Data<=#" & txtDt1 & "# and Data>=#" & txtDt2 & "#"
Rs.Open Str, Conex, adOpenStatic

'Se existirem registros adiciona-os ao listview
Do While Not Rs.EOF
Set Ad = lswPesq.ListItems.Add(, , Rs!Campo1)
Ad.SubItems(1) = Rs!Campo2
Ad.SubItems(2) = Rs!Campo3
Rs.MoveNext
Loop
Rs.Close
Conex.Close

Espero ter ajudado

Srs..

Alguem sabe como eu troco/altero o icone do item do listview ?

Nome do listview : List_Offering

Já tentei mas não funciona :
List_Offering.ListItem.image
List_Offering.ListItems(i).Image
List_Offering.Item.SmallIcon

Preciso apenas verifricar quel o icone e dependendo do icone eu vou alterar para outro icone.

Na boa cara, não é postantado a mesma dúvida n vezes que vc vai resolver seu problema, vc já é meio velhinho de fórum, deveria saber disso....

Fiz uma busca pelo tópico, e fui respodendo, afinal, nem todos estão ativos no forum.

Acabou dando certo, foi através da ersposta de um tópico antigo que ja me respoderam.

Consegui.

Resposta a qualquer custo, mesmo que polua o ambiente ? Flávio, discordo do seu método.

Vai uma crítica bem humorada disso aí, que peguei em outro forum.

Pra rir e refletir

Sucesso
...

Grande Avelino..

Sempre Respeito bantante .. seu ponto de vista :

Agora também vamos ao meu ponto de vista :

1 - Tem muitas pessoas que fazem tempo que não acessam o forum (isso não quer dizer que eu queira lembralos que o forum existe).Mas que podem ajudar como também os ajudados saibam respoder.

2 - As perguntas foram feitas por pessoas diferentes e respondidas também por pessoas diferentes sobre o mesmo assunto,então o e-mail com certeza encontrará mais pessoas.... portanto...

Uma pessoas digamos "desparecida" acaba lembrando que o site existe como também até respondendo a questão...

Iclusive, quem me respondeu havia anos que não entrava no forum e nem sabia mais o link do forum ....

Por outro lado, não obtive resposta dos que usam o forum com frequencia... sabendo ou não do assunto.

Considerando esses pontos, não vejo problema e ainda consegui alguns contatos de pessoas que estão on-line no msn...

Ao final de tudo.. duas pessoas me passaram um vasto material como também algumas páginas que eu não encontrei na internet por causa da restrição de acesso aos sites na empresa.

This message has been edited. Last edited by: Flavio lima,

Não seria mais fácil e elegante vc apenas pegar o email destas pessoas e pedir ajuda para elas do que abrir milhões de tópicos? Eu recebo emails constantes de pessoas do fórum mesmo sem nenhum tópico aberto, e respondo sempre que tenho tempo.

crianças ...não briguem rsrsrs
talvez haja um método melhor para corrigir o problema...
que tal conseguir uma maneira de remover da listagem tópicos já encerrados( dúvidas já resolvidas) e manter somente as questões em aberto ?

Somos amigos. De modo algum estamos brigando.