LISTAR ANIVERSARIANTES DO MES

ALLAN.UNIODONTO 28/11/2006 08:59:45
#186692
Bom dia pessoal,
Estou adaptando um projeto de um colega. Nele eu quero listar em um ListView todos os clientes que fazem aniversário no mês atual. Tudo muito simples. Ah! Sendo que a ordem é por data e seja mostrado a data, o nome e o email dos aniversariantes. Alguém pode me ajudar. Segue em anexo o projeto:

Agradeço antecipadamente!
USUARIO.EXCLUIDOS 28/11/2006 09:14:23
#186697
Cara... Não baixei seu Projeto, meio sem tempo, mais te dou algumas dicas.

Mais ou menos assim:

rs.Open "Select * from Sua_Tabela Where Month(Nascimento) = " & Month(Now),cnn,3
For i = 1 to rs.recordcount
   ListView1.ListItens.Add ,, rs("Nome")
Next



Creio que deve ajudar em alguma coisa, exemplo usando conexão ADO.
HUGOSSOUZA 28/11/2006 09:24:32
#186701 Resposta escolhida
vc pode fazer assim tbm.
eu coloquei no form load da lista de aniversario.
e precisa organizar o listview tbm...

[c]Private Sub Form_Load()
Dim rsA As ADODB.Recordset
Set rsA = New ADODB.Recordset

mSQL = "select * from tblagenda where month(dtnasc) = " & Month(Date)
rsA.Open mSQL, conn, adOpenStatic, adLockReadOnly
Do While Not rsA.EOF
   List1.ListItems.Add , , rsA!nome & " - " & rsA!dtnasc & " - " & rsA!email
   rsA.MoveNext
Loop
End Sub

[/c]
ALLAN.UNIODONTO 28/11/2006 09:29:12
#186704
Ae galera, obrigadão mesmo, mas, se não for pedir muito, como organizo os resultados no listview?
vlw
USUARIO.EXCLUIDOS 28/11/2006 09:31:24
#186707
Em ordem de Data????

rs.Open "Select * from Sua_Tabela Where Month(Nascimento) = " & Month(Now) & " ORDER BY Nascimento",cnn,3
For i = 1 to rs.recordcount
   ListView1.ListItens.Add ,, rs("Nome")
   rs.MoveNext
Next


Creio que com um ORDER By resolva!
HUGOSSOUZA 28/11/2006 09:49:26
#186711
pra deixar arrumado no list tenta assim..
e ja ordernando por data igual o exemplo do Marcelo


Private Sub Form_Load()
Dim rsA As ADODB.Recordset
Set rsA = New ADODB.Recordset

Dim itmx As ListItem
Dim colx As ColumnHeader

'Inclui algumas colunas
Set colx = List1.ColumnHeaders.Add(, , "Nome")
Set colx = List1.ColumnHeaders.Add(, , "Data Nasc")
Set colx = List1.ColumnHeaders.Add(, , "Email")

mSQL = "select * from tblagenda where month(dtnasc) = " & Month(Date) & " order by dtnasc"
rsA.Open mSQL, conn, adOpenStatic, adLockReadOnly
Do While Not rsA.EOF
   'Inclui um item
   Set itmx = List1.ListItems.Add(, , rsA!nome)
   
   'Aqui estamos acessando e definindo cada subitem
   itmx.SubItems(1) = rsA!dtnasc
   itmx.SubItems(2) = rsA!email
   'itmx.SubItems(3) = "01/04/2001"
   
   'Define o formato de visao como Report
   List1.View = lvwReport
   
   
  'List1.ListItems.Add , , rsA!nome & " - " & rsA!dtnasc & " - " & rsA!email
   rsA.MoveNext
Loop


End Sub
ALLAN.UNIODONTO 28/11/2006 09:53:40
#186712
Agradeço de coração a colaboração dos colegas MARCELOHF E HUGOSSOUZA. Funcionou perfeitamente. Vou colocar o nome de vcs no Form sobre... Um abraço vlw
Tópico encerrado , respostas não são mais permitidas
Voltar