ArrayDML Firedac Master Detail
29/11/2018
0
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)