SQL Custom Sort

[-187-]

Hab das Problem jetzt gelöst indem ich mir für die betroffenen Felder ein eigenen SQL Command gebaut habe. Leider bin ich mit LPAD Lösung ein wenig unglücklich weil die Übersicht im DBGrid mit left padded Leerzeichen sehr merkwürdig aussieht. Kann ich die Leerzeichen irgendwie wieder entfernen bevor ich die Datenmenge im DBGrid einfüge?

Zb im OnDrawCell die Leerzeichen nicht "mit malen"

[nachti1505]

select field1, field2, field3 from table order by lpad(field3, 50, ' ')

[schlecki]

in der doku (links siehe in vorhergehenden Posts ) kann man nachlesen, das die Funktion LPAD ein varchar(32k) zurück liefert. Bei einem geht das gut, bei mehreren hast du ein Problem.
Als Lösung wird empfohlen, noch einen Cast drumzuwickeln:

Code:

select
  cast(lpad(feld1, 50, ' ') as varchar(50)) Feld1,
  cast(lpad(feld2, 50, ' ') as varchar(50)) Feld2,
  ...
from
  Table

Dann funktioniert es auch mit mehreren Feldern.

[-187-]

Ah okay danke, hast du auch ne Idee zu meinem Leerzeichen im Grid Problem ?

Edit: Klappt prima mit Cast !! Danke!

[schlecki]

Zitat von -187-:

Ah okay danke, hast du auch ne Idee zu meinem Leerzeichen im Grid Problem ?

siehe #29

[-187-]

Versteh ich nicht, mit dem Code füge ich doch ein LPAD ein? Ich möchte doch grade kein LPAD im Grid haben sondern nur beim Sortieren

Und natürlich möcht ich nicht an der Sortierung ändern. Also nachdem ich Sortiert habe möchte ich die LPADs wieder entfernen und dann erst die Datenmenge dem Grid übergeben.

[DeddyH]

Zitat von -187-:

Versteh ich nicht, mit dem Code füge ich doch ein LPAD ein? Ich möchte doch grade kein LPAD im Grid haben sondern nur beim Sortieren

Wo wird denn LPAD im geposteten Code verwendet? Richtig, beim Sortieren (und nur dort). Das hätte Dir aber auffallen müssen, wenn Du es einfach mal ausprobiert hättest.

[-187-]

Ja ist ja richtig aber wenn ich dann meinem DBGrid als Datenmenge das Query zuordne dann hab ich die Left Paddings da mit drinne.

Delphi-Quellcode:

IBQuery1.SQL.Text:=Mein LPAD Sorting Code;
IBQuery1.Open;
DBGrid1.DataSource.DataSet:=IBQuery1;