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.
|
|
|
|
|
|
|
|
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") & "#" |
|
|
|
|
|
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 |
|
|
|
|
|
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
|
|
|
|
|
|
Postada em 02/05/2008 13:46 hs
'pega o mes month(date) 'pega o ano year(date) 'pega o dia day(date) |
|
|
|
