|
|
Postada em 06/09/2012 20:20 hs
Boa noite , alguem pode me informar o erro de sintaze por favor ....? sou iniciante em vb. rs.Open "SELECT * FROM qrydetalle WHERE (((qryDetalle.fecha) Between #" & DataI & "# And #" & DataF & "#));", CON, adOpenKeyset, adLockReadOnly |
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 07/09/2012 13:14 hs
DataI = inverDATA(textDATAI.Text)
DataF = inverDATA(textDATAF.Text)
rs.Open "SELECT * FROM qrydetalle WHERE fecha Between '" & DataI & "' And '" & DataF & "'", CON, adOpenKeyset, adLockReadOnly
Deduzo que o campo fecha seja do tipo Date. Transforme as datas em String, e transforme a Data em "yyyy/mm/dd" para a consulta vir correta, do contrário virá com datas fora do intervalo.
Private Function inverDATA(sRDTA As String) As String
Dim cDDIA As String
Dim cDMES As String
Dim cDANO As String
cDDIA = Format(Day(sRDTA), "00")
cDMES = Format(Month(sRDTA), "00")
cDANO = Format(sRDTA, "yyyy")
inverdaTA = cDANO & "/" & cDMES & "/" & cDDIA
Exit Function
End Function
vlu//
|
|
|
|
NOVATO1259
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/09/2012 13:27 hs
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/09/2012 10:40 hs
se fizer só isso também resolve
rs.Open "SELECT * FROM qrydetalle WHERE fecha Between #" & Format(DataI,"mm/dd/yyyy") & "# And #" & Format(DataF,"mm/dd/yyyy") & "#;", CON, adOpenKeyset, adLockReadOnly
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 10/09/2012 22:43 hs
Obrigado a todos pela força. funcionou.
|
|
|
|
