FDMemTable - uloženie obsahu do tabuľky

[Stanislav Hruška]

Môj neúspešný pokus vyzerá takto

Kód: [Vybrat]

  FMTSpace := TFDMemTable.Create(nil);
  FMTSpace.CachedUpdates := True;
  Naplnenie MemTable...
  FMTSpace.UpdateOptions.UpdateTableName := 'DISTANCES';
  FMTSpace.UpdateOptions.AutoCommitUpdates := True;
  ShowMessage(IntToStr(FMTSpace.ApplyUpdates(-1)));MemTable má dva záznamy. Viem je obsah uložiť do DB pomocou Query. Považujem to za prácu navyše.
Nemám žiadnu chybu pri ApplyUpdates.

[Stanislav Hruška]

Nikto neporadí? Podarilo sa mi FDMemTable naplniť údajmi. Ale ten update tabuľky sa mi nedarí. Píšu

Ak chcete odoslať aktualizácie do databázy, musíte použiť ApplyUpdates. Ak chcete zlúčiť protokol zmien, musíte zavolať CommitUpdates.

Ale ako určiť cieľovú tabuľku ani slovo. Tak netuším, či mi tam chýba nejaký príkaz.
.
Tie ich príklady a popisy sú otrasné. Polovicu vecí tam neuvedú. Napríklad, že pred použitím CopyDataSet musím mať dva riadky

Kód: [Vybrat]

    FMTSpace.Open;
    FMTSpace.Edit;
    FMTSpace.CopyDataSet(QryDistanceCalc, [coRestart, coAppend]);To som zistil iba metódou pokus - omyl.

[pf1957]

Ale ako určiť cieľovú tabuľku ani slovo. Tak netuším, či mi tam chýba nejaký príkaz.

Ja s tema tabulkama nikdy nic nedelal, ale podle me je to stejne jako u query: nadefinovana pole v datasetu musi odpovidat underlying DB tabulce a pokud se select nekryje se sloupci v tabulce, tak mi z toho plyne, ze bud cteni do mem tabulky nebo zapis z ni musis udelat pesky. U CDS jsme delavali oboje. Jeste si matne vzpominam, ze kdyz jsem portoval aplikace z FIB+ komponenta na FireDAC, ze jsem tam kvuli kompatibilite nejak zaboxovaval TFDUpdateSQL

Ja uz zadnou DB nemam nainstalovanou, abych zkusil funkci example.

[František]

potrebujes k tomu etse   TFDBatchMove, TFDBatchMoveDataSetReader, TFDBatchMoveDataSetWriter;

[Stanislav Hruška]

potrebujes k tomu etse   TFDBatchMove, TFDBatchMoveDataSetReader, TFDBatchMoveDataSetWriter;

Pozriem sa na tie tri triedy. Potom sa rozhodnem. Prosím Ťa, hoď sem nejaký príklad. Ja som nič nenašiel.
Ďakujem.

[František]

https://www.google.com/search?client=opera&q=TFDBatchMove%2C+TFDBatchMoveDataSetReader%2C+TFDBatchMoveDataSetWriter&sourceid=opera&ie=UTF-8&oe=UTF-8

[Stanislav Hruška]

Ďakujem. Pozriem sa na to. Ja som dospel k tomuto funkčnému riešeniu

Kód: [Vybrat]

procedure TCalcSpacing.UpdateTbl;
var
  DataSetReader: TFDBatchMoveDataSetReader;
  DataSetWriter: TFDBatchMoveDataSetWriter;
  FDBatchMove: TFDBatchMove;
  Tbl: TFDTable;
begin
  FDBatchMove := TFDBatchMove.Create(nil);
  FDBatchMove.Mode := dmAlwaysInsert;
  DataSetReader := TFDBatchMoveDataSetReader.Create(FDBatchMove);
  DataSetReader.DataSet := FMTSpace;
  DataSetWriter := TFDBatchMoveDataSetWriter.Create(FDBatchMove);
  Tbl := TFDFunction.NewTable(nil, 'DISTANCES');
  DataSetWriter.DataSet := Tbl;
  FDBatchMove.Execute;Podľa návodu by som mal použiť

Kód: [Vybrat]

  MemTbl.UpdateOptions.UpdateTableName := 'ADCALC';
  MemTbl.ApplyUpdates(-1);Neviem či mi tam ešte niečo chýba, ale nefunguje mi to. Hlavne to je podstatne jednoduchšie.

[Stanislav Hruška]

Keby s tým niekto začínal, tak tu je pekné zhrnutie základov
https://delphiprogrammingdiary.blogspot.com/2018/11/tfdmemtable-better-alternative-to.html

[František]

presne tuto stranku som myslel