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:
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.
  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:

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';