Query kopieren und Zeilen löschen

[Furtbichler]

Zitat von Kaarsten:

Kann man den Inhalt einer Query auf eine andere übertragen?

So sollte das funktionieren:

Delphi-Quellcode:

Procedure AppendDataset(aSource, aDestination : TDataSet);
Var
  bookmark : TBookmark;

  Procedure _AppendRow();
  Var
    field,dest : TField;

  Begin
    aDestination.Append;
    For field in aSource.Fields do begin
      dest := aDestination.FindField(field.FieldName);
      if dest <> nil then
        dest.Value = field.Value;
    end;
    aDestination.Post;

  End;

Begin
 bookmark = aSource.GetBookmark;
 aSource.DisableControls;
 Try
   aSource.First;
   while not aSource.Eof do begin
     _AppendRow();
     aSource.Next;
   end;
 Finally
    aSource.GotoBookmark(bookmark);
    aSource.FreeBookmark(bookmark);
    aSource.EnableControls;
 End;
End;

(Getippt und nicht getestet)

DAs ist natürlich so nicht das schnellste, weil jedes Mal 'FindField' aufgerufen wird. Wenn man sich das in einer Dictionary merkt, wird das viel flotter. Zudem sollte man wissen, das bei einem TDataset, welches an eine Datenbank gebunden ist, die neuen Zeilen sofort persitiert werden.

[Jumpy]

Ich hab letztens mal eine FireDac Demo gesehen. Da sah das so aus, als könnte man damit das Ergebnis einer Query als Basisdatenmenge für eine weitere Query nutzen, das könnte vllt. dann sowas sein.

Wobei auch ich mich den Vorrednern anschließe, dass das sicher (mit dem richtigen SQL-Statement) auch einfacher geht.

[p80286]

Delphi-Quellcode:

select bla,blabla,blablub
from (select da as "bla",dadada as "blablaba",dieda as "blablub" from ....)

alles kein Zauberei, nur wofür soll es gut sein?

Gruß
K-H

[mkinzler]

Sofern das DBMS "DERIVRED TABLES" unterstützt

[Furtbichler]

Zitat von mkinzler:

Sofern das DBMS "DERIVRED TABLES" unterstützt

Ich dachte das macht jedes? Außer vielleicht Paradox et al. aber das sind ja keine DBMS.