SQLite + DBGrid + Sortieren über Spalten Click

[Andidreas]

Hallo zusammen,

ich verwende in meinem Programm eine SQLite Datenbank.
Die User möchten nun das Sie über den Klick auf den Titel einer Spalte die Datenmenge nach dieser Spalte Sortieren, so wie es halt auch fast jedes Programm macht.

Ich hab das bisher noch nie umsetzen müssen und hab bisl im Internet darüber gesucht.

Hab ich das richtig interpretiert das man die Datenmenge im DBGrid nicht sortieren kann, sondern das man den SQL Befehl erneut mit der Order By Klausel absetzen muss?

Mein Lösungsansatz (der auch funktioniert) sieht bisher wie folgt aus:

Delphi-Quellcode:

  //Get Sort Column Number and Name
  If Column.Index = giSortColumn Then
  Begin
    If gsSortOrder = 'ASC' Then gsSortOrder := 'DESC' Else gsSortOrder := 'ASC';
  End Else
  Begin
    gsSortOrder := 'ASC';
  End;

  giSortColumn := Column.Index;
  sFieldName := Column.FieldName;


  //Sort
  Try
    With (sqlitefile_query1) Do
    Begin
      Active := False;
      datsrc_test.DataSet := Nil;
      SQL.Clear;
      SQL.Add('Select * From DATCOM');
      SQL.Add('Order By ' + sFieldName + ' ' + gsSortOrder);
      datsrc_test.DataSet := sqlitefile_query1;
      Active := True;
    End;
  Except
    On E:Exception Do
    Begin
      MessageDlg(E.Message, mtError, [mbOK], 0);
      Exit;
    End;
  End;

  //Show Sort Column
  dbgrid_test.Columns[giSortColumn].Title.Font.Style := dbgrid_test.Columns[giSortColumn].Title.Font.Style + [fsBold];

giSortColumn und gsSortOrder sind Globale Variablen in denen ich mir den letzten Sortier Stand merke.

[sx2008]

Zitat von Andidreas:

Hab ich das richtig interpretiert das man die Datenmenge im DBGrid nicht sortieren kann, sondern das man den SQL Befehl erneut mit der Order By Klausel absetzen muss?

Richtig.
Es sei denn du verwendest ein Grid, dass die Datenmenge intern zwischenspeichert und daher auch sortieren kann.
wie z.B.
https://www.devexpress.com/products/vcl/exquantumgrid/

[Perlsau]

Zitat von Andidreas:

Hab ich das richtig interpretiert das man die Datenmenge im DBGrid nicht sortieren kann, sondern das man den SQL Befehl erneut mit der Order By Klausel absetzen muss?

Nicht unbedingt, wenn man wie du UniDac einsetzt. Denn in den zugehörigen Dataset- bwz. Query-Komponenten gibt es das Property IndexFieldNames, dem du einfach den Feldnamen, nach dem sortiert werden soll, als String übergibst. Du kannst auch nach mehreren Feldern sortieren, z.B. erst nach Nachnamen und dann nach Vornamen:

MyQuery.IndexFieldNames := 'Nachname ASC CIS; Vorname DESC';

Da UniDac und IbDac aus derselben Schmiede stammen, gehe ich mal davon aus, daß das, was in meiner IbDac-Hilfe steht, auch für UniDac gilt:

Use the IndexFieldNames property to get or set the list of fields on which the recordset is sorted. Specify the name of each column in IndexFieldNames to use as an index for a table. Ordering of column names is significant. Separate names with semicolon. The specified columns don't need to be indexed. Set IndexFieldNames to an empty string to reset the recordset to the sort order originally used when the recordset's data was first retrieved.
Each field may optionally be followed by the keyword ASC / DESC or CIS / CS / BIN.
Use ASC, DESC keywords to specify a sort direction for the field. If one of these keywords is not used, the default sort direction for the field is ascending.
Use CIS, CS or BIN keywords to specify a sort type for string fields:
CIS - compare without case sensitivity;
CS - compare with case sensitivity;
BIN - compare by character ordinal values (this comparison is also case sensitive).
If a dataset uses a TCustomDAConnection component, the default value of sort type depends on the TCustomDAConnection.Options option of the connection. If a dataset does not use a connection (TVirtualTable dataset), the default is CS.
Read IndexFieldNames to determine the field (or fields) on which the recordset is sorted.
Ordering is processed locally.
Note: You cannot process ordering by BLOB fields.

Wenn man eine Komponente erwirbt, ist es meist nicht verkehrt, sich die Dokumentation dazu anzuschauen, bevor man sie einsetzt.

[Furtbichler]

Bei ADO geht das auch (in-Memory sorting),indem Du die Eigenschaft 'IndexFieldNames' belegst (Feldnamen durch Semikolon getrennt).

Allgemein gesehen ist es ziemlicher Blödsinn, die Daten vom Server sortieren zu lassen. Sortieren ist doch ein wenig Ressourcenfressend und so ein DB-Server ist dafür eigentlich zu schade. Und wenn Du nun mal nicht eine SQLite-DB hast, sondern später mal eine richtige DB, bei der mehrere Leute dran sitzen und die klicken munter auf die Sortierspalten, dann ist der Server so mit Sortieren beschäftigt, das er andere Sachen nicht mehr zeitnah hinbekommt.
Lieber heute richtig anfangen, als sich morgen falsche Sachen angewöhnt haben. Nur in sehr seltenen Fällen, nämlich wenn die anzuzeigende Tabelle soviele Daten enthält, das Du die gar nicht alle in den lokalen Speicher bekommst, sollte man das dem Server überlassen. Dann aber auch nur mit Index auf jeder Spalte, was auch wieder behämmtert ist (Stichwort: Index-Shotgun).

Richtig ist, ein Grid oder ein in-Memory Dataset zu verwenden, das das Sortieren eben lokal erledigt. Warum auch nicht, denn die Daten sind doch eh schon da. Nur das dämliche TDBGrid kann das eben nicht.

Wenn deine TDataset-Komponente das nicht kann, dann kopiere die Daten in ein TClientDataset, das kann -glaube ich zumindest- sortieren.

Edit: Hab gerade 'UniDac' gelesen.. Na dann gehts ja.

[arnof]

ADO : xxx.Sort='FELDDNAME';

TClientDataSet: xxx.IndexName:='Feldname';

Dac: keine Ahnung, das will noch entdeckt werden!

[Andidreas]

Vielen Dank für die Tipps.

Das mit den IndexFieldNames habe ich ausprobiert und funktioniert einwandfrei!

Ich hab nur noch eine Verständnisfrage...
Wenn ich im SQL eine Ordre By Klausel hab, werden meine Daten sobald ich sie im DBGrid hab ja erst mal nach diesen Kriterien sortiert.

Wie verhält sich das wenn ich dann über IndexFieldNames sortiere?
Die Order By Klausel wird dann ja ausser Kraft gesetzt oder nicht?

[DeddyH]

Vereinfacht ausgedrückt: das ORDER BY legt die Reihenfolge fest, in der der Server die Datensätze zum Client schickt. Wenn Letzterer sie aber einmal lokal zwischengespeichert hat, kann er sie wieder umsortieren, wie er lustig ist.

[arnof]

Order By , hier muss eine SQL Abfrage Neu gemacht werden (Daten kommen sortiert vom Server)

IndexName, das Betrift die Daten, die sich nach dem laden im ClientDataSet befinden, die werden in der Komponente sortiert und Betrift nur die Daten, die dort drin sind unabhängig vom SQL Server!

[Andidreas]

Ok, dann wäre es so wie ich es haben möchte...

Noch ne andere Frage...
Meine Tests habe ich in einem Testprogramm gemacht wo ich ein DBGrid verwendet hab wo an den Einstellungen nichts verändert wurde...
Jetzt versuch ich das ganze in mein bestehendes Programm einzubauen und auf einmal kommt mein Programm nicht mehr ins "OnColumnTitleClick" Ereignis...

Gibt es Einstellungen die das verhinden können?

[Jumpy]

Ich vermute mal das durch das rüberkopieren von Codezeilen ist das Event des Grids noch nicht mit dem Code verknüpft oder die Komponenten heißen anders o.ä.