Gravando a Data com hora em access / ADO

Delphi

21/08/2004

Estas são minhas ferramentas :

Windows ME atualizado
Access 2000 e 97 no micro 2
ADO
MDAC 2.8
Aspirinas ( 1cx)
-------------------------------------------
O problema :
Para entrar na consulta do Caixa uso um DatetimePicker no bco de dados
e também na consulta Access 2000 + ADO, aciono com os comandos abaixo :
------------------------------------------------------------------------
var stdata : string;
begin
stdata := Formatdatetime(ShortDateFormat, Datacx.Date);
Query1.close;
Query1.sql.clear;
Query1.sql.text := ´Select * from CAIXA Where data = CDATE(´+QuotedStr(stData)+´) ´;
Query1.Open;
end;
-----------------------------------------------------------------------
ou através de ´parameters´, o resultado é o mesmo, não aparece a soma do caixa das datas pedidas porque esta gravando no BDados a data com a hora junto!
Alguém pode me ajudar ?


Renato

Renato

Curtidas 0

Respostas

Slack

Slack

21/08/2004

cara tenta por sql assim
´Select * from caixa where data=´+Edit1.Text;


GOSTEI 0
Renato

Renato

21/08/2004

Obrigado Slack, acho que uma boa noite de sono ajudou, creio que ja achei o problema, retirei as hora que era gravada e as pesquisas voltaram ao normal, mesmo assim Obrigado !
:D :D :D :D :D :D


GOSTEI 0
Adilsond

Adilsond

21/08/2004

Para não precisar se preocupar com a hora:


begin
  with Query1 do
    begin
      if Active then
         Close;
      SQL.Clear;
      SQL.Add(´Select *´);
      SQL.Add(´from CAIXA´);
      SQL.Add(´Where Format([Data],"Short Date") = ´ + QuotedStr(FormatDateTime(ShortDateFormat, Datacx.Date)));
      Open;
    end;
end;



GOSTEI 0
POSTAR