Consulta com Obj. DateTimePicker Alguem Me Ajuda
Tenho uma tabela Vendas onde tenho um campo DataDaVenda do tipo DAtaHora no ACCESS, estou fazendo um formulario de consulta no Delphi onde entro com a DataInicial e DataFinal, para verificar as vendas desse periodo, estou usando o objeto DateTimePicker para isso. Só que dá erro, Alguém pode me ajudar, pq no ACCESS o formato é mm/dd/aaaa e o dateTimePicker e dd/mm/aaaa como faco para mudar o formato.
Se alguém puder ajudar, agradeço.
Se alguém puder ajudar, agradeço.
Martoss
Curtidas 0
Respostas
Paulo Trajano
17/12/2003
Vê se funciona, martoss:
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add([color=blue:8ff3f4d23f]´select * from Vendas where DATAVENDA between[/color:8ff3f4d23f] ´ ´+FormatDateTime ([color=blue:8ff3f4d23f]´mm/dd/yyyy[/color:8ff3f4d23f]´,DateTimePicker1.Date)+´ ´ ´+´ and ´ ´+FormatDateTime ([color=blue:8ff3f4d23f]´mm/dd/yyyy[/color:8ff3f4d23f]´,DateTimePicker2.Date)+´ ´ ´))
Open;
end;
Lembrando que eu uso IB/FB portanto não uso Refresh em consultas.
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add([color=blue:8ff3f4d23f]´select * from Vendas where DATAVENDA between[/color:8ff3f4d23f] ´ ´+FormatDateTime ([color=blue:8ff3f4d23f]´mm/dd/yyyy[/color:8ff3f4d23f]´,DateTimePicker1.Date)+´ ´ ´+´ and ´ ´+FormatDateTime ([color=blue:8ff3f4d23f]´mm/dd/yyyy[/color:8ff3f4d23f]´,DateTimePicker2.Date)+´ ´ ´))
Open;
end;
Lembrando que eu uso IB/FB portanto não uso Refresh em consultas.
GOSTEI 0
Alexandre Barbosa
17/12/2003
Se preferir use assim:
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add(´SELECT * FROM VENDAS´);
Query1.Sql.Add(´WHERE DATAVENDA BETWEEN :DATA1 AND :DATA2´);
Query1.ParaByName(´DATA1´).AsDate:=DateTimePicker1.Date;
Query1.ParaByName(´DATA2´).AsDate:=DateTimePicker2.Date;
Query1.Open;
Espero ter ajudado.
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add(´SELECT * FROM VENDAS´);
Query1.Sql.Add(´WHERE DATAVENDA BETWEEN :DATA1 AND :DATA2´);
Query1.ParaByName(´DATA1´).AsDate:=DateTimePicker1.Date;
Query1.ParaByName(´DATA2´).AsDate:=DateTimePicker2.Date;
Query1.Open;
Espero ter ajudado.
GOSTEI 0
Martoss
17/12/2003
Obrigado a todos que responderam, ajudaram muito mesmo.
Estarei testando o código depois, mas acredito que vai dar certo, pelo que vi, qualquer coisa volto a perguntar no forum. Espero um dia ajudar também.
:P
Estarei testando o código depois, mas acredito que vai dar certo, pelo que vi, qualquer coisa volto a perguntar no forum. Espero um dia ajudar também.
:P
GOSTEI 0