Daten für einen Montaszeitraum selektieren?

[Christian123]

Hilfe, ich bin am verzweifeln und hab schon verscheidenste Varianten ausprobiert.
Ich habe Adress-Daten in einer Paradox-Tabelle und möchte die Geburtstage des aktuellen Monats selektieren. Optimal wäre es,wenn ich die Ausgabe nach Tagen ordnen könnte..

Veruscht habe ich folgendes:

Delphi-Quellcode:

strquery := 'select * from Adressen where extract(month from sysdate) = extract(month from gebdat) ;' ;

query1.SQL.Clear;
query1.sql.Add(strquery);
query1.Active := true;
query1.First;
while Not Query1.Eof do
  begin
  Listbox4.Items.Add(query1['Name']);
  query1.Next;
  end;

Dabei wird sysdate wohl nicht erkannt, date funzt auch nicht, auch nicht varianten davon..:(
Auch testweise month("04.04.2004") = month(gebdat) funktioniert nicht.

und ein "order by day(sysdate) oder Ahnliches ja sowieso nicht..

Bittee helft mir..
Vielen Dank!!!!!!

[joachimd]

Delphi-Quellcode:

strquery := 'select * from Adressen where extract(month from sysdate) = extract(month from gebdat) ;' ;

query1.SQL.Clear;
query1.sql.Add(strquery);
query1.Active := true;
query1.First;
while Not Query1.Eof do
  begin
  Listbox4.Items.Add(query1['Name']);
  query1.Next;
  end;

warum nicht:

Delphi-Quellcode:

strquery:='select * from adressen where extract(month from gebdat)='+MonthOf(now)+' order by debdat';

[Christian123]

Besten Dank! Das wars.
Aber eine kleine Ergänzung muss sein.

Delphi-Quellcode:

  strquery:='select * from adressen where extract(month from gebdat)='+inttostr(MonthOf(now))+' order by gebdat';

und unter Uses DateUtils einfügen, denn sonst wird die Monthof-Funktion nicht mit eingebunden!

Leider klappt das order by gebdat nicht, da ja nach Jahr selektiert wird und 18.2.1972 vor 12.2.1973 erscheint..
Hach wäre das schön,wenn man das lösen könnte..:)!

Danke.

[joachimd]

Zitat:

Delphi-Quellcode:

strquery:='select * from adressen where extract(month from gebdat)='+inttostr(MonthOf(now))+' order by gebdat';

Leider klappt das order by gebdat nicht, da ja nach Jahr selektiert wird und 18.2.1972 vor 12.2.1973 erscheint..
Hach wäre das schön,wenn man das lösen könnte..Smile!

Sorry, übersehen.

Delphi-Quellcode:

  strquery:='select extract(day from a.gebdat) as day, a.* from adressen a '+
            'where extract(month from a.gebdat)='+inttostr(MonthOf(now))+' order by 1';