FireDAC.DAptLayerCommands Sample

From RAD Studio Code Examples
Jump to: navigation, search

This sample demonstrates how to use standalone table adapter to redirect inserting, deleting and updating records.

Location

You can find the Commands sample project at:

Description

The Commands sample shows how to redirect inserting, deleting and updating records using standalone table adapter.

How to Use the Sample

  1. Navigate to the location given above and open Commands.dproj.
  2. Press F9 or choose Run > Run.
  3. Click on the Use Connection Definition combo box and select an option.

Files

File in Delphi Contains

Commands.dproj
Commands.dpr

The project itself.

fCommands.pas
fCommands.fmx

The main form.

Implementation

The sample implements the following standalone table adapter features.

Create table adapter

  var
    oAdapt: IFDDAptTableAdapter;
  begin
    // create table adapter
    FDCreateInterface(IFDDAptTableAdapter, oAdapt);

Selecting data

  with oAdapt do begin
    FConnIntf.CreateCommand(oComm);
    SelectCommand := oComm;
    SelectCommand.Prepare('select * from {id FDQA_map1}');
    Define;
    Fetch;
  //...

Redirect records

Redirect all record inserts into FDQA_map2 table instead FDQA_map1:

  FConnIntf.CreateCommand(oComm);
    InsertCommand := oComm;
    InsertCommand.CommandText := 'insert into {id FDQA_map2}(id2, name2) values(:NEW_id1, :NEW_name1)';

Redirect all record deletes into FDQA_map3 table instead FDQA_map1:

    FConnIntf.CreateCommand(oComm);
    DeleteCommand := oComm;
    DeleteCommand.CommandText := 'delete from {id FDQA_map3} where id3 = :OLD_id1';

Redirect all record updates into FDQA_map4 table instead FDQA_map1:

  FConnIntf.CreateCommand(oComm);
    UpdateCommand := oComm;
    UpdateCommand.CommandText := 'update {id FDQA_map4} set id4 = :NEW_id1, name4 = :NEW_name1 where id4 = :OLD_id1';

Add new rows

  for i := 0 to 4 do
      DatSTable.Rows.Add([i, 'string' + IntToStr(i)]);

Post changes to RDBMS

  Update;

Uses

The sample uses the following units:

  • FireDAC.DApt.Intf
  • FireDAC.DApt

See Also

Samples

Personal tools
Assistance