|
|
Postada em 02/03/2006 10:25 hs
Gostaria de fazer um between para captura o intervalo de uma data... exemplo: todos os registros do dia 01/01/2006 a 20/01/2006... fiz esse código: If Len(DatAbeEntre) <> 0 And Len(DatConEntre) <> 0 Then
If Len(Captura) <> 0 Then
Captura = Captura & " Between "
Captura = Captura & "INV_OS.SUP_DAT_ABER Like '" & [Forms]![GERAR]![DatAbeEntre] & "'"
Captura = Captura & " And "
Captura = Captura & "INV_OS.DATA_CONCLUSAO Like '" & [Forms]![GERAR]![DatConEntre] & "'"
Else
Captura = "INV_OS.BAN_DAT_CON Like '" & [Forms]![GERAR]![TxtBanDatCon] & "'"
Captura = " Between "
Captura = Captura & "INV_OS.SUP_DAT_ABER Like '" & [Forms]![GERAR]![DatAbeEntre] & "'"
Captura = Captura & " And "
Captura = Captura & "INV_OS.DATA_CONCLUSAO Like '" & [Forms]![GERAR]![DatConEntre] & "'"
End If
End If mais tá dando erro... |
|
TÓPICO EDITADO
|
|
|
|
|
|
Daniel
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 02/03/2006 10:44 hs
O BETWEEN DEVE SER USADO DA SEGUINTE FORMA: (((CAMPO DA TABELA) Between #1 DATA# And #2 DATA#)); E VC TA FAZENDO BETWEEN CAMPO LIKE 1 data AND CAMPO LIKE 2 data
dsmn
|
|
|
|
LCRamos
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/03/2006 10:53 hs
Faça da forma que o Daniel explicou, mas veja, para a consulta ficar correta voce tem que formatar as duas datas (inicial e final) no formato americano, ou seja "mm/dd/yyyy" se quiser passo uma função para inverter a data. Valeu??? |
|
|
|
MARCONE
|
BRASÍLIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/03/2006 12:59 hs
sSql = "SELECT * FROM tblSuaTabela WHERE CampoData BETWEEN#" & Format (Me.txtDataFinal.Text, "mm/dd/yyyy") _
& "#AND#" & Format(Me.txtDataInicial, "mm/dd/yyyy") & "#" cnn.Execute(sSql)
Marcone
|
|
|
|
|
|
Postada em 02/03/2006 14:35 hs
eu estou pondo assim oh: Captura = "INV_OS.SUP_DAT_ABER Between Like '" & [Forms]![GERAR]![DatAbeEntre] & "' And Like '" & [Forms]![GERAR]![DatConEntre] & "'" e esta dando um erro: erro de sintaxe, operador faltando...
Provérbios 1:7 “O temor do Senhor é o princípio do conhecimento; mas os insensatos desprezam a sabedoria e a instrução.”
|
|
|
|
|
|
Postada em 02/03/2006 14:45 hs
Tira o LIKE dai e troca os apostrofos por #... isso se for Access (acho q é)... se for SQL Server, deixa os apostrofos... Captura = "INV_OS.SUP_DAT_ABER Between Like #" & [Forms]![GERAR]![DatAbeEntre] & "# And #" & [Forms]![GERAR]![DatConEntre] & "#"
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
