Sortierung klappt nicht korrekt (SQL)

[hoika]

Hallo
bitte Delphi-Tags benutzen.

Und wo war das Problem?

[TigerLilly]

Gandimann,

du hast da sehr viel doppelten Code.

Du könntest das auch so machen:

Code:

for j:=0 to 6 do begin
  HODj := DateToStr(dtp1.date + j);
  ...
  if HODj = qry_RPT_PO.FieldByName('PO_FBEGIN_TIME').asstring then begin
    ...
    qry_RPT_DP.FieldByName('HO_D'+inttostr(j)).Value := qry_RPT_PO.FieldByName('PO_MEMO').asstring;
    ...

[haentschman]

Moin...

Delphi-Quellcode:

qry_RPT_PO.SQL.Text := 'select * from Posium where PO_FBEGIN_TIME >='
+ QuotedStr(datetostr(tt_D1_dt)) + 'and PO_FBEGIN_TIME <='
+ QuotedStr(datetostr(tt_D1_dt + 6)) + 'and PO_ADID ='
+ QuotedStr(Emply) + 'order by Po_Fbegin_Time ASC';

...da rollen sich mir die Fußnägel hoch.
Bitte benutze in Zukunft Parameter.

Delphi-Quellcode:

qry_RPT_PO.SQL.Text := 'select * from Posium where PO_FBEGIN_TIME >= :STA and PO_FBEGIN_TIME <= :ENT and PO_ADID = :EMP order by Po_Fbegin_Time ASC'
qry_RPT_PO.SQL.ParamByName('STA').AsString := datetostr(tt_D1_dt); // !!! besser mit Datefeldern arbeiten 
qry_RPT_PO.SQL.ParamByName('ENT').AsString := datetostr(tt_D1_dt + 6); // !!! besser mit Datefeldern arbeiten 
qry_RPT_PO.SQL.ParamByName('EMP').AsString := Emply;

PS:
Du benutzt eine etwas eigenwillige Formatierung und Benamsung der Variablen. Neulinge, die Delphi lernen wollen, sollten besser mit der Codeformatierung arbeiten.