Hola
Para empezar me parece que deberia ser al reves, pero:
Código Delphi
[-]dm1.FIBDset1.SQLs.SelectSQL.Text:='Select tip_doc from pedidos';
dm1.FIBDset1.Open;
dm1.FIBDset1.Active := true;
dm1.FIBDset1.SQLs.UpdateSQL.Text:='Update pedidos' +
' set '+
' tip_doc = :tip_doc';
xtip_doc := 'P';
while not dm1.FIBDset1.Eof do
begin
for I := 1 to dm1.FIBDset1.Fields.Count - 1 do
begin
dm1.FIBDset1.QUpdate.Params[0].Value := xtip_doc;
end;
dm1.FIBDset1.QUpdate.ExecQuery;
DM1.FIBDset1.Next;
end;
dm1.FIBTran1.Commit;
Yo no lo haria asi.
Saludos