Problema criação de Consulta ao Banco de dados via script

#1

Boa Tarde, estou com problema na execução de consulta via script ao clicar num botão. Estou tentando filtrar pela data através da propriedade WHERE. Porém ao colocar a condição a mesma é ignorada, me retornando todos os valores do SELECT. Abaixo segue o código

             Set Area = Application.GetObject("Dados.Internal.AreaFiltroBombas")'Recebe o nome da área do filtro bomba
            Set NomeBomba = Application.GetObject("Dados.Internal.NomeFiltroBomba")'Recebe o nome da bomba
            Set Report = Application.LoadReport("RelatorioBomba1") 'Carrega Relatório da Bomba 01
	Set Consulta = Report.Item("Consulta") 				   'Carrega Consulta
	
	'Consulta SQL Server
	Consulta.SQL = "SELECT " & Area.Value &".E3TimeStamp,"& Area.Value &".CMB_01_Corrente,"& Area.Value &".CMB_01_Frequencia,"& Area.Value &".CMB_01_Potencia,"& Area.Value &".CMB_01_Tensao,"& Area.Value &".CMB_01_Velocidade,"& Area.Value &".CMB_01_Temperatura FROM " & Area.Value
	Consulta.Table = Area.Value
	Consulta.OrderBy = Area.Value & ".E3TimeStamp ASC"
	Consulta.Fields =  Area.Value &".E3TimeStamp," & Area.Value & ".CMB_01_Corrente,"& Area.Value &".CMB_01_Frequencia,"& Area.Value &".CMB_01_Potencia,"& Area.Value &".CMB_01_Tensao,"& Area.Value &".CMB_01_Velocidade,"& Area.Value &".CMB_01_Temperatura"	
	Consulta.Where = "E3TimeStamp > 13/03/2023 16:17:10"
	Consulta.DataSource = "BancoDados1"
            Consulta.Execute()
            Report.PrintPreview()
#2

Penso que alterar a propriedade .SQL seja dispensável neste caso, já que Table e Fields estão sendo definidos. Além disso, formatar a data e colocá-la entre os caracteres #, que corresponde a sintaxe a constante data/hora do MS Access.

	' Recebe o nome da área do filtro bomba
	Set Area = Application.GetObject("Dados.Internal.AreaFiltroBombas")

	' Recebe o nome da bomba
	Set NomeBomba = Application.GetObject("Dados.Internal.NomeFiltroBomba")

	' Carrega Relatório da Bomba 01
	Set Report = Application.LoadReport("RelatorioBomba1") 
	
	' Carrega Consulta
	Set Consulta = Report.Item("Consulta")

	' Consulta SQL Server
	Consulta.DataSource = "BancoDados1"

	' Consulta.SQL = "SELECT " & Area.Value & _
	' 		".E3TimeStamp,"& Area.Value & _
	' 		".CMB_01_Corrente,"& Area.Value & _
	' 		".CMB_01_Frequencia,"& Area.Value & _
	' 		".CMB_01_Potencia,"& Area.Value & _
	' 		".CMB_01_Tensao,"& Area.Value & _
	' 		".CMB_01_Velocidade,"& Area.Value & _
	' 		".CMB_01_Temperatura FROM " & Area.Value

	Consulta.Table = Area.Value
	
	Consulta.OrderBy ="E3TimeStamp ASC"
	
	Consulta.Fields = _
			"E3TimeStamp," &  _
			"CMB_01_Corrente,"&  _
			"CMB_01_Frequencia,"&  _
			"CMB_01_Potencia,"&  _
			"CMB_01_Tensao,"&  _
			"CMB_01_Velocidade,"&  _
			"CMB_01_Temperatura"	
	
	Consulta.Where = "E3TimeStamp > #2023-03-13 16:17:10#" ' <~~~~~~ 

	Consulta.Execute()
	Report.PrintPreview()
#3

Testei como você me passou porém não retornou nada, continua da mesma forma.

#4

Consegui apenas substitui o # por ’ no formato da data:
Consulta.Where = “E3TimeStamp > ‘2023-03-13 16:17:10’”

Obrigado pela ajuda.