ArrayDML Firedac Master Detail

Delphi

29/11/2018

bom dia,

para usar arraydml no firebird para uma tabela, uso assim:

qrycons.close;
qrycons.sql.clear;
qrycons.sql.add(''select id,descricao from produto'');
qrycons.open;
qrycons.first;

qryAux.close;
qryAux.sql.clear;
qryAux.sql.add(''insert into produto (id,descricao)values(:id,:descricao)'');

qry.Params.ArraySize := qryCons.RecordCount;

while not qrycons.eof do
begin
qry.parambyname(''id''),AsIntegers[qrycons.RecNo-1]:= qryconsid.asinteger;
qry.parambyname(''descricao''),AsStrings[qrycons.RecNo-1]:= qryconsdescricao.asstring;

qrycons.next;
end;

if qrycons.recordcount > 0

qryAux.Execute(qrycons.RecordCount,0);

end;

Como ficaria um código de arraydml para um situação mestre-detalhe? cada pedido com seus itens?


grato.
Jose Medeiros

Jose Medeiros

Curtidas 0
POSTAR