Benutzerdefinierte Sortierreihenfolge für Datensatz nach der Ausführung der Abfrage?

Ich möchte die Ergebnismenge einer Datenbankabfrage, um eine gewisse Ordnung. Die Informationen, die ich bestellen möchte, ist in der Datenbank nicht enthalten sind, sondern dynamisch generiert-code (so kann ich nicht verwenden ORDER BY).

Gibt es eine Möglichkeit zum Sortieren dataset nach ausführen der Datenbank-Abfrage? (Ich brauche nicht indizierten Zugriff, sondern wollen nur das iterieren über alle Datensätze.)

  • Welche Art von dataset verwenden Sie?
  • TAdsQuery
  • Die Spalte, die Sie verwenden möchten, um zu bestellen berechnet? (mit OnCalcFields)
  • Derzeit gibt es keine Spalte, sondern nur ein Algorithmus, der berechnen kann, ein "Gewicht" pro Datensatz basierend auf anderen Daten in der Anwendung. Dieses Gewicht ist das Sortierkriterium.
InformationsquelleAutor Heinrich Ulbricht | 2011-10-26
  1. 2

    Gibt es eine Möglichkeit, dass die Aktien ähnlichkeiten mit Jens' Antwort (+1), sondern bekommt das Ergebnis in einer etwas anderen Weise.

    Angesichts einer vorhandenen Tabelle:

    create table somedata (id integer, name char(20));
insert into somedata values ( 1, 'Tim' );
insert into somedata values ( 2, 'Bob' );
insert into somedata values ( 3, 'Joe' );

    Wenn Sie wissen, die gewünschte short order (entweder durch Bearbeitung der Tabelle oder einige Abfrage-Ergebnis es), erstellen Sie eine temporäre Tabelle, dass einige Schlüssel-Wert entsprechend der gewünschten Zeilen aus der ursprünglichen Tabelle und dann die Sortierreihenfolge der Daten:

    create table #sortorder( id integer, sortvalue integer );

    Legen Sie die sortvalue Feld in der temp-Tabelle zu enthalten, die der gewünschten Reihenfolge (es könnte einer zu sortierenden Datentyp nicht integer):

    insert into #sortorder values ( 1, 15 );
insert into #sortorder values ( 2, 12 );
insert into #sortorder values ( 3, 5 );

    Erzeugen dann die Ergebnisse mit einem join gegen die Tabelle sieht vor, dass die Sortierreihenfolge:

    select sd.* from somedata sd, #sortorder so 
         where sd.id = so.id
         order by so.sortvalue;
    • +1 Das ist eine gute Idee, wenn Sie einen eindeutigen Schlüssel, den Sie verwenden können.
    • Ich mag diese am meisten für große Datensätze, da die Menge an Daten zu übertragen scheint, am wenigsten. Für kleine Datensätze ich würde wahrscheinlich gehen für eine der CDS solutions.
    InformationsquelleAutor Mark Wilkins
  2. 3

    Mit einem ClientDataset Sie sind in der Lage, ändern der Reihenfolge nach ausführen.
    Einstellungen IndexFieldNames sortiert die dataset.

    Finden Sie Informationen hier herstellen einer Verbindung mit einem clientdataset zu einem anderen Datensatz in der gleichen Anwendung.

      object DataSetProvider1: TDataSetProvider
    DataSet = MyAdsQuery
    Left = 208
    Top = 88
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 296
    Top = 88
  end
    • Gute Idee, aber das würde alles kopieren, meine Daten auf den CDS. So ist es eine option für kleine Datenmengen.
    InformationsquelleAutor Arjen van der Spek
  3. 2

    AFAIK die einzige zuverlässige Methode zum Sortieren eines Datensatzes zu verwenden ORDER BY.

    Ich würde:

    1. Fügen Sie eine dummy - order_tag - Feld zur Abfrage.
    2. Sichern Sie die Ergebnisse in temporäre Tabelle.
    3. Deklarieren Sie einen cursor zum Durchlaufen der temporären Tabelle, und legen Sie die order_tag mit Ihrer eigenen Logik und UPDATE #temp_table Aussagen.
    4. Wählen Sie die Daten aus der temporären Tabelle und Bestellung durch den tag-Feld.
    • Das ist auf der server-Seite, können Sie natürlich neu anordnen auf der client-Seite als gut, wie einige der anderen Antworten vorschlagen.
    • +1 ich mag die Idee, weil ich nicht wollen, übertragen Sie alle Daten auf einmal zu CDS. Mark ' s Antwort geht noch einen Schritt weiter, indem Sie nicht kopieren Sie alle Daten in eine temp-Tabelle.
    InformationsquelleAutor Jens Mühlenhoff
  4. 2

    Der wichtigste trick hier wäre die Verwendung eines Internen calc-Feld (FieldKind = fkInternalCalc), wenn Sie unterstützt durch Ihre TDataset sub-Klasse. Wenn Sie nicht, verwenden Sie eine TClientDataset als Zwischenprodukt.

    DFM:

    object ClientDataSet1SortField: TIntegerField
  FieldKind = fkInternalCalc
  FieldName = 'SortField'
end

    pas:

    procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOConnection1.Open('dbuser', 'Hunter2');
  ClientDataSet1.SetProvider(ADOQuery1);  // set ClientDataset provider. This will create a TLocalAppServer provider "in the background"
  ClientDataSet1.Open;
  randomize;
  while not ClientDataSet1.Eof do
  begin
    ClientDataSet1.edit;

    ClientDataSet1SortField.AsInteger := random(100);
    // as ClientDataSet1SortField is fkInternalCalc it doesn't need to be in the query result set, but can be assigned and used for sorting
    ClientDataSet1.Post;
    ClientDataSet1.Next;
  end;
  clientdataset1.IndexFieldNames := 'SortField';
end;
    InformationsquelleAutor Gerry Coll
Schreibe einen Kommentar