FireDAC - clone

[Stanislav Hruška]

Pokúšam sa podľa príkladu vytvoriť klon tabuľky. Nijako sa mi to nedarí.

Kód: Delphi [Vybrat]

1.   clnPersonTypes := TFDMemTable.Create(Self);
2.   clnPersonTypes.CloneCursor(tblPersonTypes);
3.  

Project JasotSVB.exe raised exception class EFDException with message '[FireDAC][Comp][Clnt]-303. Capability is not supported'.


S Query to ide bez problémov. Ale to už je niečo naviac.

[Stanislav Hruška]

Keď som si prečítal, že TFDTable generuje SQL query, tak ma to už netrápi. Ale i tak chcem vedieť prečo to s tabuľkou nejde, keď to je TFDDataSet.

[Stanislav Hruška]

HM, vychádza mi, že TFDTable sú "persistent data" a to nie je podporované.

[Radek Červinka]

Co vlastne chces opravdu delat? Nestaci ti spise pouzit FDMemTable http://delphi.cz/post/FireDac-TFDMemTable.aspx

Jinak pokud se u TFDDatasetu dostanes na Table.Rows , tak si muzes delat co chces. vcetne nahrazovani radku datasetu ale je to trosku hardcore. A dostanes se na to celkem jednoduse.

[Stanislav Hruška]

Co vlastne chces opravdu delat?

Mám otvorenú tabuľku a potrebujem ju len prechádzať a čítať. Bez toho aby s mi menil stav komponentov napojených na tabuľku. Jedna z techník je použiť Clone. A ako zdroj uloženia dát som sa rozhodol pre FDMemTable. Myslel som si, že si urobím klon priamo z tabuľky. Ale to mi ani raz neprešlo. Teraz to mám pomocou Query. Mohol by som pracovať aj priamo s Query.

[Radek Červinka]

No a kdyz pouzijes klasickou konstrukci

Kód: [Vybrat]

bmk: TBookmark;
begin
  bmk := dataset.GetBookmark;
  dataset.DisableControls;
  try
    dataset.First;
    ... tady si delej co chces
  finally
     dataset.gotobookmark(bmk);
     dataset.freebookmark(bmk);
     dataset.enablecontrols;
  end;
   

[Stanislav Hruška]

Tak som to mal pôvodne   Nepáčila sa mi tam v pozadí tá zbytočná práca navyše.

[František]

Kód: [Vybrat]

function GetMemTable(SQLcommand:string): TFDMemTable;
var
  qq:TFDQuery;
  dm: TFDDataMove; // v DX tusim BatchMove (mám XE5)
begin
// vytvorím konekšn
//SQLcommand open do qq

Result := TFdmemtable.Create(Self);
dm := TFDDataMove.Create(Self);

dm.Destination := result;
dm.Source := qq;
dm.Execute;
//uzavrem konekšn a funkcia mi vráti MemTable
endtakto mi zostal rezult z funkcie aj po odpojeni od DB servera