hola amigos tengo el siguiente codigo con el cual deseo actualizar
una tabla de una base de datos de firebird, solo actualizare 1 campo llamado tip_doc
dm1 = es una datamodule
FIBDset1 = es una dataset de FIBplus
FIBTran1 = es la transaction FIBplus
Código Delphi
[-]
dm1.FIBDset1.SQLs.UpdateSQL.Text:='Update pedidos' +
' set '+
' tip_doc = :tip_doc';
dm1.FIBDset1.SQLs.SelectSQL.Text:='Select tip_doc from pedidos';
dm1.FIBDset1.Open;
dm1.FIBDset1.Active := true;
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;
esto lo habia hecho con un IBtable de IBX y me funciono pero
aqui no me funciona no me actualiza el campo
me podrian dar una manita
saludos !!!! gracias por pasar por aca