CONSULTA POR DATA ,,, DATA DE ATE DATA

PROPAR 06/01/2005 15:31:46
#59027
Amigos como faço para pesquisar por data.. o usuario digita a data inicial e a data final
exemplo
de 06/01/2004 até 06/01/2005
LCSD 06/01/2005 15:35:21
#59029
Propar

Para pesquisar no Access:

Dim sSQL as String 

sSQL = "SELECT * FROM tabela where data between = #"& Text1.Text & "# AND #"Text2.Text & "#"


Tanto o Text1 quanto o Text2 devem ser substituídos pelos parà¢metros que você utilizará, no caso 06/01/2004 e 03/01/2005.
[s50]
USUARIO.EXCLUIDOS 06/01/2005 15:37:43
#59030
Alexandre pelo Sql é assim:

'Select * from tabela where campodata between #01/06/2004# and #01/06/2004#'


Se for acess/sql server deve-se formatar a data para mm/dd/yyyy

ex:

'Select * from tabela where campodata between #' & format(01/06/2004, "mm/dd/yyyy") & '# and #' & format(01/06/2004,"mm/dd/yyyy") '#'
PROPAR 06/01/2005 15:46:50
#59036
ESTA COM ERRO NO TEXT2.TEXT NÃO ESTA COM COM " A+
USUARIO.EXCLUIDOS 06/01/2005 16:03:04
#59041
Não entendi! Passa o seu código aki para dara uma olhada.
LCSD 06/01/2005 16:16:51
#59045
Nshiga

Ele se referiu ao meu exemplo, retificando:

Dim sSQL as String 

sSQL = "SELECT * FROM tabela where data between = #" & Text1.Text & "# AND #" & Text2.Text & "#"


Pronto!
[s79]
PROPAR 07/01/2005 10:33:26
#59173
KPELLAJR EU TENHO EUMA TABELA PROVISORIA ENTÃO O USUARIO DIGITAVA UMA DATA EU PEGAVA O MES E O ANO E GERAVA O RELATORIO COMO FAÇO PARA COLOCAR ESSE SQL NO MEU RELATORIO

Command1_Click( APAGA CONTEUDO DA TABELA PROV)
Dim data As Date
data = CDate("01/" & Month(Text1.Text) & "/" & Year(Text1.Text))

If Not Faturas.EOF Then
Faturas.MoveFirst
End If
Faturas.MoveFirst

Do While Not Faturas.EOF

FATO = Faturas("VIGENCIA")
mes2 = Month(FATO) & Year(FATO)
mes3 = Month(data) & Year(data)
If mes2 = mes3 Then
Prov.AddNew
varnome = Faturas("APOLICE")
pesquisa = "APOLICE='" & varnome & " ' "
Apolices.FindFirst (pesquisa)
If Apolices.NoMatch Then
Prov("EMISSAO") = Faturas("EMISSAO")
Prov("ESTIPULANTE") = Apolices("ESTIPULANTE")
Prov("VIGENCIA") = Faturas("VIGENCIA")
Prov("EMITIDO") = Faturas("EMITIDO")
Prov("APOLICE") = Faturas("APOLICE")
Prov("VENCIMENTO") = Faturas("VENCIMENTO")
Prov("PAGAMENTO") = Faturas("PAGAMENTO")
Prov.Update
Else
Prov("EMISSAO") = FATO
Prov("ESTIPULANTE") = Apolices("ESTIPULANTE")
Prov("VIGENCIA") = Faturas("VIGENCIA")
Prov("EMITIDO") = Faturas("EMITIDO")
Prov("APOLICE") = Faturas("APOLICE")
Prov("VENCIMENTO") = Faturas("VENCIMENTO")
Prov("PAGAMENTO") = Faturas("PAGAMENTO")
Prov.Update
End If
End If
Faturas.MoveNext
Loop
MsgBox "Gerando Relatorio Para Impressão!", vbInformation
FrmImprimir.Config
Tópico encerrado , respostas não são mais permitidas
Voltar