|
|
Postada em 05/08/2004 14:13 hs
Tenho um formulario onde cadastro clientes de uma seguradora. Como faço para saber quais são os clientes cujo seguro ira vencer por exemplo daqui a 30 dias. |
|
|
|
|
|
|
|
Postada em 05/08/2004 14:31 hs
Dim Data_Hoje As Date
Dim Data_30_Dias As Date
Dim strSQL As String
Data_Hoje = Format(Now, "dd/mm/yyyy")
Data_30_Dias = DateAdd("d", 30, Data_Hoje)
strSQL = "SELECT * FROM loja WHERE DataVencimento BETWEEN #" & Data_Hoje & " #AND#" & Data_30_Dias & "#" & "ORDER BY DataVencimento " |
|
|
|
|
|
Postada em 05/08/2004 15:24 hs
Fiz da seguinte forma: rstPesquisa.Open "SELECT codigo, nome, vencimentoseguro, telefone from tblcliente WHERE vencimentoseguro BETWEEN #" & Data_Hoje & " #AND#" & Data_30_Dias & "#" & "ORDER BY vencimentoseguro", dbPesquisa, adOpenKeyset, adLockPessimistic, adCmdText Tenho registros com a data de vencimento para: 10/08/2004 18/08/2004 01/09/2004 18/11/2004 28/11/2004 Só que a consulta não me traz nada. |
|
|
|
|
|
Postada em 05/08/2004 17:15 hs
vc usa access ? rstPesquisa.Open "SELECT codigo, nome, vencimentoseguro, telefone from tblcliente WHERE vencimentoseguro BETWEEN #" & Format(Date,"mm/dd/yyyy") & " #AND#" & Format(Date+30,"mm/dd/yyyy") & "#" & "ORDER BY vencimentoseguro", dbPesquisa, adOpenKeyset, adLockPessimistic, adCmdText Roberto |
|
|
|
|
|
Postada em 06/08/2004 08:03 hs
Muito obrigado pelas respostas, ambas funcionaram muito bem. O que estava errado era que eu tinha colocado o Tipo de Dados com Texto e o correto era Data. |
|
|
|
|
