Filtrar entre datas

Delphi

06/01/2004

Ola pessoal tenho uma tabela chamada [b:d67c086b82]db_parcelas[/b:d67c086b82], onde fica reg as parcelas dos clientes com data de venc. [b:d67c086b82]par_data[/b:d67c086b82] e os valores ficam em [b:d67c086b82]par_valor[/b:d67c086b82] .

Gostaria de somar esses valores entre datas dando apenas um valor final de parcelas, consegui somar por dia, por´´em não consegui somar os valores no final .

Quem puder me ajudar desde já agradeço.[/b]


Fluka

Fluka

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

06/01/2004

Colega,

Não creio ter entendido completamente sua dúvida, mas aqui vai uma sugestão:

SELECT SUM(par_valor) TOTAL
FROM db_parcelas
WHERE par_data BETWEEN :DT_INICIO AND :DT_FIM



GOSTEI 0
Fluka

Fluka

06/01/2004

Como passo os parametros de um datetimepicker pra sql?
sendo que ela deu erro de field dt_ini not found ???

ou uso outro tipo pra pegar os dados ?


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

06/01/2004

Colega,

Para BDE e IBX use o modelo abaixo. Para ADO utilize ´Parameters´ entre o nome do objeto (´Query1´) e o método ParamByName.

Query1.Close;
Query1.ParamByName(´DT_INICIO´).AsDate := DateTimePicker1.Date;
Query1.ParamByName(´DT_FIM´).AsDate := DateTimePicker2.Date;
Query1.Open;



GOSTEI 0
Fluka

Fluka

06/01/2004

query1.SQL.clear;
query1.sql.add(´SELECT SUM(par_valor)FROM db_parcelas WHERE par_data BETWEEN ´+QuotedStr(FormatDateTime(´mm/dd/yyyy´, Dt_ini.Date))+´ AND ´+QuotedStr(FormatDateTime(´mm/dd/yyyy´, Dt_FIM.Date)));
Query1.Open;


Mais uma vez obrigado


GOSTEI 0
Ilanocf

Ilanocf

06/01/2004

Vc já tentou dessa forma?

WHITH Query DO
Begin
   Close;
   SQL.clear; 
   SQL.Add(´SELECT SUM(db_parcelas.par_valor) AS SomarParcelas, db_parcelas.par_data´);
   SQL.Add(´FROM db_parcelas´);
   GROUP BY ((db_parcelas.par_valor) AS SomarParcelas, db_parcelas.par_data´);
   SQL.Add(´WHERE par_data=:P1 AND par_data=:P2´);
   ORDER BY (par_data´);
   ParamByName(´P1´).AsDate := DateTimePicker1.Date;
   ParamByName(´P2´).AsDate := DateTimePicker2.Date;
   Open;
End;


Editado pelo moderador (AZ)


GOSTEI 0
Fluka

Fluka

06/01/2004

Caro amigo deve ter alguma coisa errada com o codigo pois algumas linhas estão com problema


GOSTEI 0
Ilanocf

Ilanocf

06/01/2004

Posta os erros.


GOSTEI 0
Fluka

Fluka

06/01/2004

Caro Amigoproblemas já resolvidos


veja neste topico

http://delphiforum.icft.com.br/forum/viewtopic.php?t=32208&highlight=


GOSTEI 0
POSTAR