Gravando a Data com hora em access / ADO
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 ?
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
Curtidas 0
Respostas
Slack
21/08/2004
cara tenta por sql assim
´Select * from caixa where data=´+Edit1.Text;
´Select * from caixa where data=´+Edit1.Text;
GOSTEI 0
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
:D :D :D :D :D :D
GOSTEI 0
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