Consulta com Datas no Banco de dados


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Consulta com Datas no Banco de dados

Geronimo

JOINVILLE
SC - BRASIL

Postada em 10/10/2005 19:51 hs

Pessoal preciso fazer a uma consulta na tabela cadastro no campo Data

que armazena a (Data de Aniversario no Formato dd/mm/yy) caso o atleta

compareça nos treinos dentro do prazo de 3 meses após seu aniversario ira

aparecer uma mensagem de feliz aniversário.

Estou usando a pesquisa abaixo mas não estou conseguindo elaborar a questão

dos tres meses como fazer para que a pesquisa retorne a mensagem de feliz aniversario caso a data atual esteja dentro deste periodo ( data de aniversario mais Tres meses de tolerancia )

Dim Criterio As String
Criterio = " Data = #" & Format(DatAtual, "mm/dd/yy") & "# and

Nome = '" & NomeCliente.Text & "'

"

            TBcadastro.FindMin Criterio

If TBcadastro.NoMatch = False Then

Niver.visible=true

End if

"O pior inimigo que você poderá encontrar será sempre você mesmo."

kerplunk

SÃO PAULO
SP - BRASIL

Postada em 11/10/2005 08:19 hs

Vc vai ter que colocar o resto do seu código para eu dar uma olhada melhor.

ArtSoft

SAO PAULO
SP - BRASIL

Postada em 11/10/2005 10:51 hs

Dim Criterio As String, DataNiver As Date, DtChk(2) As Date

'ACHAR O CADASTRO DO ATLETA
Criterio = "Nome = '" & NomeCliente.Text & "'"

TBcadastro.FindMin Criterio

If TBcadastro.NoMatch = True Then
    'DataNiver = Campo Data de Aniversario na tabela
    DataNiver = TBcadastro.Data

    'Criando data para checagem :
    'Pegar Dia & mes da DT de aniversario do atleta e adicionar o ano atual
    'Isso pq se o cidadão nascer em NOV/DEZ fará o calculo correto
    DtChk(0) = Format(Date, "DD/MM/YY")
    DtChk(1) = Format(DataNiver, "DD/MM") & "/" & Format(DtChk(0), "YY")
    DtChk(2) = DateAdd("m", 3, DtChk(1))

    Niver.Visible = False

    If DtChk(1) < DtChk(0) Then
        If DtChk(2) > DtChk(0) Then
            Niver.Visible = True
        End If
    End If
End If

If Niver.Visible Then MsgBox "FELIZ NIVER !!!"

Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br

Geronimo

JOINVILLE
SC - BRASIL

Postada em 11/10/2005 14:03 hs

Alexandre beleza muito obrigado fiz só algumas correções o codigo segue abaixo para futuras duvidas :

Dim Criter As String, DataNiver As Date, DtChk(2) As Date
'ACHAR O CADASTRO DO ATLETA
Criter = "Nome = '" & NomeCliente.Text & "'"
Tbcadastro.FindMin Criter
If Tbcadastro.NoMatch = False Then
'DataNiver = Campo Data de Aniversario na tabela
DataNiver = Tbcadastro("Data")

'Criando data para checagem :
'Pegar Dia & mes da DT de aniversario do atleta e adicionar o ano atual
'Isso pq se o cidadão nascer em NOV/DEZ fará o calculo correto
DtChk(0) = Format(Date, "DD/MM/YY")
DtChk(1) = Format(DataNiver, "DD/MM") & "/" & Format(DtChk(0), "YY")
DtChk(2) = DateAdd("m", 3, DtChk(1))

Niver.Visible = False

If DtChk(1) <= DtChk(0) Then
If DtChk(2) >= DtChk(0) Then
Niver.Visible = True
End If
End If
End If

"O pior inimigo que você poderá encontrar será sempre você mesmo."

Página(s): 1/1