COMPARAÇÃO DE DATAS SQL
ola pessoal , estou com uma dificuldade em fazer uma comparação de datas em uma consulta ADO
essa é a linha que estou usando, mas a condição da data nao funciona . Gostaria de saber como é a sintaxe correta
strsql = "select * from docrec where DateValue(dtvenc) like " & """ & DateValue(Date) & """ & " AND TIPODOC NOT LIKE " & """ & "Cheque " & """ & "order by doc asc"
essa é a linha que estou usando, mas a condição da data nao funciona . Gostaria de saber como é a sintaxe correta
strsql = "select * from docrec where DateValue(dtvenc) like " & """ & DateValue(Date) & """ & " AND TIPODOC NOT LIKE " & """ & "Cheque " & """ & "order by doc asc"
Teste a pesquisa um a um e após perceber que está funcionando vai incrementando outros campos. Talvez o erro que esteja acontecendo aàseja por voce colocar o campo dtvenc como parâmetro do DateValue.
Faça diretamente, assim:
Faça diretamente, assim:
strsql = "select * from docrec where dtvenc like " & """ & DateValue(Date) & """ & " AND TIPODOC NOT LIKE " & """ & "Cheque " & """ & "order by doc asc"
Se o campo for do tipo Date ou DateTime, usar o operador like é muito estranho.
interessante seria ser mais especifico, por exemplo: qual é o banco de dados utilizados? qual é o tipo de pesquisa que deseja fazer (entre datas, datas iguais, etc), qual o nome dos campos a serem consultados, e qual o tipo destes campos?
Citação::
interessante seria ser mais especifico, por exemplo: qual é o banco de dados utilizados? qual é o tipo de pesquisa que deseja fazer (entre datas, datas iguais, etc), qual o nome dos campos a serem consultados, e qual o tipo destes campos?
uso o acces .mdb ,
quero comparar a data do campo com a de hoje , maior, menor
o tipo do campo na tabela é Date/time mesmo
Registros onde a data é menor que a data de hoje e tipodoc não é parecido com "cheque", ordenado ascendente
strsql = "select * from docrec dtvenc < Date() AND TIPODOC NOT LIKE "Cheque " order by doc asc"
strsql = "select * from docrec dtvenc < Date() AND TIPODOC NOT LIKE "Cheque " order by doc asc"
a resposta do kerlunk já resolve seu problema
porém se precisar inserir uma data para comparar seria desta forma
Dim DataConsulta As Atring
DataConsulta = Format("28/11/2022","MM/DD/YYYY")
strsql = "select * from docrec where dtvenc = #"" & DataConsulta & ""# AND TIPODOC NOT LIKE "Cheque " order by doc asc"
porém se precisar inserir uma data para comparar seria desta forma
Dim DataConsulta As Atring
DataConsulta = Format("28/11/2022","MM/DD/YYYY")
strsql = "select * from docrec where dtvenc = #"" & DataConsulta & ""# AND TIPODOC NOT LIKE "Cheque " order by doc asc"
Faça seu login para responder