ArrayDML Firedac Master Detail
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.
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
Curtidas 0