Hola foro:
Esta es la solucion que tengo para mi problemilla:
Código Delphi
[-]
with ibdataset1 do begin
open;
while not Eof do
begin
if IBdataset1.FieldByName('flag_subcomp').AsInteger = 1 then
begin
unit1.var1 := ibdataset1.fieldbyname('item_subcomp').AsString;
unit1.var2 := ibdataset1.fieldbyname('codigo_comp').AsString;
IBDataset2.Close;
IBdataset2.InsertSQL.Add('insert into prod_comp(codigo_prod, codigo_comp, item_subcomp, item_subprod) values('+Quotedstr(unit1.var3)+','+Quotedstr(unit1.var2)+','+Quotedstr(unit1.var1)+','+Quotedstr(uni t1.var4)+')');
IBDataset2.Open;
IBDataset2.Active:=true;
Next;
end
else
Next
end;
Ibdataset2.ApplyUpdates;
Ibtransaction1.Commit;
IBdataset2.Active := True;
end;
que opinan????, tengo un problemilla y es que no me esta guardando sera que debo hacer algo mas??? o quitarle algo???, estoy usando IBDataset.
Recorro el ibdataset que es donde modifico flag y los que tengan en el campo flag 1 los guarda en el ibdataset2.