Amigos fiz minha agenda, e fiz o form de cadastro, agora quero clicar no botão aniversariantes e exibir um form com os aniversariantes do mês no form com ListView

Como faço a funcionabilidade desse botão.

 

Vlw

bom se no seu listview tem um campo data, entao ponha um botao com um imputbox liga , ae se coloca a data de hj por exemplo no seu imputbox e ele vai filtrar no lsitview todos com akele data liga , tipo assim eu faço assim pra ver se tem conta pra pagar

 

    Dim sArg As Date
    Dim i As Integer
    Dim item As Integer
 
    sArg = InputBox("Digite a Data de Vencimento", "Consulta por Data")
    Rs2.CursorLocation = adUseClient
    Rs2.Open "Select CodigoH,* FROM Jornal where DataPag like '" & sArg & "%' Order by CodigoH asc", Conn1, adOpenDynamic, adLockBatchOptimistic
           
           
    If Rs2.EOF Then
        MsgBox "Nenhum Registro foi Encontrado", vbInformation, "Aviso"

Rs2.Requery
        LlenaListView2
        Rs2.Close
        Exit Sub
    Else
           
MsgBox "ENCONTREI " & Rs2.RecordCount & " REGISTROS"
       LlenaListView2
 
        Exit Sub
    End If
    Rs2.Close


Obs: esse LlenaListView2 é um sub onde eu monto minha listivew , tipo assim eu faço

 

 

Private Sub LlenaListView2()

    LV1.ListItems.Clear
    LV1.ColumnHeaders.Clear
    LV1.ColumnHeaders.Add 1, , "Codigo", 1200
    LV1.ColumnHeaders.Add 2, , "Nome Jornal", 4000
        LV1.ColumnHeaders.Add 3, , "", 1
    txtTotal = LV1.ListItems.Count
   
While Not Rs2.EOF
    LV1.ListItems.Add 1, , Rs2!CodigoH
    LV1.ListItems(1).SubItems(1) = Rs2!NomeJornal
    LV1.ListItems(1).SubItems(2) = IIf(IsNull(Rs2!Contato), "", Rs2!Contato)

    txtTotal = LV1.ListItems.Count
    Rs2.MoveNext
Wend
Form_Activate
Rs2.Close
txtCodigo = ""
txtnomeJornal = ""
100:
End Sub

 

 

 

Claro pra nao ter que ficar consultando todo dia eu ponho um function  que verifica se data atual é igual ao Niver de Aguel , tipo assim

Function Verifica()

Dim Nivers As String
Rs2.Open "SELECT NomeJornal FROM Jornal WHERE Format(DataPag) = '" & Format(Date, "DD/MM/YY") & "'", Conn1, adOpenKeyset, adLockOptimistic
Do While Not Rs2.EOF
Nivers = Nivers & vbCrLf & Rs2("NomeJornal")
Rs2.MoveNext
Loop
If Nivers <> "" Then
MsgBox "Hoje é Dia de Pagar conta do(s) Jornal(s):" & Nivers, vbInformation, "Feliz dia de Pagar Conta!"
End If

End Function

 

e declaro ela no form_load

 

Verifica

 

 

pode ser que isso nao sirva pra vc , mas é uma ideia , falow

Menu "Project|References" marque o item Microsoft Activex Data Objects X.X Library onde X.X é a versão. Pode ser qq versão

 

Depois

 

Dim Cnn as ADODB.Connection

Dim RS as ADODB.Recordset

 

Cnn.CursorLocation = adUseClient

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:meumdb.MDB"

 

RS.ActiveConnection = Cnn

RS.Open "Select campo1,campo2 FROM Tabela"

 

ListView.ListItems.Clear

 

Do While NOT RS.EOF

  ListView.ListItems.add ,,RS(0)

  ListView.ListItems(ListView.ListItems.count).SubItems(1) = RS(1)

  RS.MoveNext

Loop

 

obs.: Preferencialmente colocar em módulo como GLOBAL Cnn as ADODB.Connection

e conectar ao banco no próprio módulo ao iniciar o seu sistema.

 

t+

Eu já utilizei um exemplo citado acima e dá certo, pode utilizar Cleyton

 

vlw