Select com data Maluco (MSAcces2000/ADO)

Delphi

01/06/2004

Estou fazendo um select com o MonthCalendar (Agenda Tipo o [color=darkblue:e7e264ec3b]MSOutlook[/color:e7e264ec3b]).
Só que ele só funciona com [color=orange:e7e264ec3b]dias maires que 12 (Ex:13/06/2004)[/color:e7e264ec3b], pensei que podia ser os zeros a esquerda, mas como os dias 10,11,12 também não funcionam eu pirei!!! :?
Vejam o código:

procedure TF_AgComp.FormShow(Sender: TObject);
begin
MC_Compromisso.Date:=Date;
Ed_AgData.Text:=FormatDateTime(´dd/mm/yyyy´,MC_Compromisso.Date);
Ed_AgHora.text:=FormatDateTime(´hh:mm´,time);
DM_Banco.Q_Agenda.close;
Dm_Banco.Q_Agenda.sql.Clear;
DM_Banco.Q_Agenda.SQL.Add(´Select * from Agenda where AgData=#´+Ed_AgData.Text+´ Order by AgHora´);
DM_Banco.Q_Agenda.open;
end;

procedure TF_AgComp.MC_CompromissoClick(Sender: TObject);
begin
Ed_AgData.Text:=FormatDateTime(´dd/mm/yyyy´,MC_Compromisso.Date);
DM_Banco.Q_Agenda.close;
Dm_Banco.Q_Agenda.sql.Clear;
DM_Banco.Q_Agenda.SQL.Add(´Select * from Agenda where AgData=#´+Ed_AgData.Text+´ Order by AgHora´);
DM_Banco.Q_Agenda.open;
end;

Eu visualizo a adoquery num dbgrid normal.

Se alguem tiver idéia do que pode ser, me ajudem!
Grato,
Cfino.


Cfino

Cfino

Curtidas 0
POSTAR