USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Relatório por mês
poulain
SANTO ANDRÉ
SP - BRASIL
ENUNCIADA !
Postada em 28/04/2008 15:22 hs         
Boa Tarde

No meu projeto tem um comboBox com os meses, Janeiro, feveriro, etc, e gostaria que ao selecionar o mes, aparecece num relatorio todos aniversariantes desse mes.

   
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 28/04/2008 15:56 hs            
qual o banco? se for access é assim
"select * from tabela where data_aniver  between #" & format(data1,"mm/dd/yyyy") & "# and #" & format(data2,"mm/dd/yyyy") & "#"
     
poulain
SANTO ANDRÉ
SP - BRASIL
Postada em 28/04/2008 16:18 hs         
é access sim, eu ja havia feito com outros tipos, exemplo, pra listar todos campos B no access que é verdadeiro:

If Combo1.Text = "B" Then
cli.rstabelaclientes.Filter = "B = 'Verdadeiro' or B= 'True'"
With DataReport1
.Show
End With
End If


gostaria de fazer mais ou menos assim mas com data, utilizando o filter, para nao ter que criar outro relatorio.

poulain
     
JOM
BOM JESUS DA LAPA
BA - BRASIL
Postada em 28/04/2008 19:42 hs            
Dim Mes as Long
If Combo1.Text = "Janeiro" Then
Mes = 1
With cmd
    .ActiveConnection = cnn
    .CommandType = adCmdText
    .CommandText = "select * from tabela where month(data)= '" & Mes & "'"
    Set rs = .Execute
End With
With DataReport1
.Show
End With
End If

     
poulain
SANTO ANDRÉ
SP - BRASIL
Postada em 01/05/2008 12:08 hs         
Então mas no meu Banco de dados eu não tenho um campo "Dia", Mês", "Ano", eu tenho o campo "Aniversario", e é colocada campos do tipo Data
Ex: 12/04/1990
     
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 02/05/2008 13:46 hs            
'pega o mes
month(date)
'pega o ano
year(date)
'pega o dia
day(date)
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página