PESQUISA C/ ADODC
Ola pessoal, gostaria de verificar como efetuara uma pesquisa de Data em uma tabela do acces com o ADODC, e se possÃvel como filtar um intervalo de dadas com DAO
tentei o seguinte mas não funcionou Pesquisa com ADODC
Dim Pesquisa
Pesquisa = InputBox("Informe a Data para Pesquisa", "Syclam - Pesquisa")
'Adodc1.Recordset.Find "Descricao like " & "'*" & CDate(Pesquisa) & "*'"
Adodc1.RecordSource = "Select * From LivroCaixa Where Data = " & Pesquisa & ""
Adodc1.Refresh
Filtro com ADO
rs.Execute = "Select * From LivroCaixa Where Data
= " TxtInicio " And Data = " TxtFinal
Se alguem puder me ajuda, agradeço
tentei o seguinte mas não funcionou Pesquisa com ADODC
Dim Pesquisa
Pesquisa = InputBox("Informe a Data para Pesquisa", "Syclam - Pesquisa")
'Adodc1.Recordset.Find "Descricao like " & "'*" & CDate(Pesquisa) & "*'"
Adodc1.RecordSource = "Select * From LivroCaixa Where Data = " & Pesquisa & ""
Adodc1.Refresh
Filtro com ADO
rs.Execute = "Select * From LivroCaixa Where Data
= " TxtInicio " And Data = " TxtFinal
Se alguem puder me ajuda, agradeço
tente o seguinte:
,"Select * From LivroCaixa Where Data between #" & Pesquisa & "# and #" & Pesquisa & "#"
,"Select * From LivroCaixa Where Data between #" & Pesquisa & "# and #" & Pesquisa & "#"
Tópico encerrado , respostas não são mais permitidas