Autor
Mensagem
Postado em: 31/1/2012 01:08:53 PM
Boa tarde pessoal!
Estou desenvolvendo uns relatórios pra um sistema e estou com um elefante gigantesco pra resolver...
To usando delphi 7, ADO e DB Access.
Ao realizar o select para gerar o relatório está ocorrendo alguma irregularidade... estou fazendo isso:
QueryAnalise.Close;
QueryAnalise.SQL.Clear;
QueryAnalise.SQL.Add(Select * from Analise where Retorno >= :dInicio and Retorno <= :dFim);
QueryAnalise.Parameters.ParamByName(dInicio).Values := dt_inicio;
QueryAnalise.Parameters.ParamByName(dFim).Values := dt_fim;
QueryAnalise.Open;
Porém ao realizar este select ele não trazia os dados do dia inicial, por exemplo, na tabela do BD eu tenho um registro do dia 26, se eu coloco para trazer de 26 a 28 ele vai trazer os registro de 27 e 28...
No Banco de Dados o campo data está como data completa DD/MM/YYYY HH:HH...
Tentei utilizar o between no select porém também não obtive sucesso...
aí, resolvi retirar um dia da data de início para que ele, ao dar o select, trazer os dados que eu precisava.. aí eu coloquei:
QueryAnalise.Close;
QueryAnalise.SQL.Clear;
QueryAnalise.SQL.Add(Select * from Analise where Retorno >= :dInicio and Retorno <= :dFim);
QueryAnalise.Parameters.ParamByName(dInicio).Values := dt_inicio-1;
QueryAnalise.Parameters.ParamByName(dFim).Values := dt_fim;
QueryAnalise.Open;
Funcionou!
Porémm... se eu colocar um período que passe de um mês ao outro, por exemplo, dt inicial 20/12/2011 e dt final 20/01/2012 ele não traz resultado nenhum...
O que pode estar ocorrendo??
Muitíssimo grato!
Henrique
Estou desenvolvendo uns relatórios pra um sistema e estou com um elefante gigantesco pra resolver...
To usando delphi 7, ADO e DB Access.
Ao realizar o select para gerar o relatório está ocorrendo alguma irregularidade... estou fazendo isso:
#Código
QueryAnalise.Close;
QueryAnalise.SQL.Clear;
QueryAnalise.SQL.Add(Select * from Analise where Retorno >= :dInicio and Retorno <= :dFim);
QueryAnalise.Parameters.ParamByName(dInicio).Values := dt_inicio;
QueryAnalise.Parameters.ParamByName(dFim).Values := dt_fim;
QueryAnalise.Open;
Porém ao realizar este select ele não trazia os dados do dia inicial, por exemplo, na tabela do BD eu tenho um registro do dia 26, se eu coloco para trazer de 26 a 28 ele vai trazer os registro de 27 e 28...
No Banco de Dados o campo data está como data completa DD/MM/YYYY HH:HH...
Tentei utilizar o between no select porém também não obtive sucesso...
aí, resolvi retirar um dia da data de início para que ele, ao dar o select, trazer os dados que eu precisava.. aí eu coloquei:
#Código
QueryAnalise.Close;
QueryAnalise.SQL.Clear;
QueryAnalise.SQL.Add(Select * from Analise where Retorno >= :dInicio and Retorno <= :dFim);
QueryAnalise.Parameters.ParamByName(dInicio).Values := dt_inicio-1;
QueryAnalise.Parameters.ParamByName(dFim).Values := dt_fim;
QueryAnalise.Open;
Funcionou!
Porémm... se eu colocar um período que passe de um mês ao outro, por exemplo, dt inicial 20/12/2011 e dt final 20/01/2012 ele não traz resultado nenhum...
O que pode estar ocorrendo??
Muitíssimo grato!
Henrique
Postado em: 31/1/2012 01:13:06 PM
Que banco vc esta utilizando e qual é o valor que esta passando na variavel dt_inicio?
Postado em: 31/1/2012 01:17:36 PM
o BD é o Access..
o valor que estou passando para o dt_inicio é este:
dt_inicio := DataTimerPicker1.Date;
tentei isso também..
dt_inicio := DataTimerPicker1.Date-1;
e ao jogar este valor para um caption ele mostra a data um dia antes corretamente...
o valor que estou passando para o dt_inicio é este:
#Código
dt_inicio := DataTimerPicker1.Date;
tentei isso também..
#Código
dt_inicio := DataTimerPicker1.Date-1;
e ao jogar este valor para um caption ele mostra a data um dia antes corretamente...
Postado em: 31/1/2012 01:29:57 PM
Tenta
ou
#Código
QueryAnalise.Parameters.ParamByName(dInicio).asDateTime := strtodatetime(FormatDateTime(dd/MM/yyyy 00:00:00,DataTimerPicker1.Date));
ou
#Código
QueryAnalise.Parameters.ParamByName(dInicio).asDateTime := DataTimerPicker1.Datetime;
Postado em: 31/1/2012 01:34:09 PM
o .asDateTime não funciona no ADOQuery...
tem que colocar algo na clausula uses?
além de DB, DataUtils, ADODB???
tem que colocar algo na clausula uses?
além de DB, DataUtils, ADODB???
Postado em: 31/1/2012 01:37:08 PM
Tente assim
não sei se tem que declarar no uses pq nao uso ADO.
caso nao funcione com asString tente com Value msm
não sei se tem que declarar no uses pq nao uso ADO.
caso nao funcione com asString tente com Value msm
#Código
QueryAnalise.Parameters.ParamByName(dInicio).asString := FormatDateTime(dd/MM/yyyy 00:00:00, DataTimerPicker1.Date);
Postado em: 31/1/2012 01:40:56 PM
Perfeito! isso mesmo!
Valew!
Valew!
Postado em: 31/1/2012 01:41:37 PM
por nada
Postado em: 31/1/2012 01:59:45 PM
Na vdd não deu certo não...
Por engano meu coloque no dt_inicio o DataTimePicker2, que é o da data final, e não sei o porque deu certo...
agora voltou a dar errado..
ele seleciona todos os dias do intervalo menos o dia da data inicial...
tá dificil... srsr
Por engano meu coloque no dt_inicio o DataTimePicker2, que é o da data final, e não sei o porque deu certo...
agora voltou a dar errado..
ele seleciona todos os dias do intervalo menos o dia da data inicial...
tá dificil... srsr
Postado em: 31/1/2012 02:35:22 PM
QueryAnalise.Parameters.ParamByName(dInicio).asString := FormatDateTime(dd/MM/yyyy 00:00:00, DataTimerPicker1.Date);
QueryAnalise.Parameters.ParamByName(dFim).asString := FormatDateTime(dd/MM/yyyy 00:00:00, DataTimerPicker2.Date);
QueryAnalise.Parameters.ParamByName(dFim).asString := FormatDateTime(dd/MM/yyyy 00:00:00, DataTimerPicker2.Date);
Postado em: 31/1/2012 04:29:29 PM
Tinha testado assim já... e continua com erro...
quando coloca de um mês pra outro ele puxa errado...
Mas é erro do Access pois rodei a consulta sql lá e deu a mesma coisa...
quando coloca de um mês pra outro ele puxa errado...
Mas é erro do Access pois rodei a consulta sql lá e deu a mesma coisa...
