Update de varios registros

[[AgustinOrtu]]

En el mensaje explique como hacerlo. Tu codigo actualiza solo el primer valor porque nunca iteras sobre el dataset que devuelve el select. Simplemente agregas el primer registro a un TStringList y luego ejecutas un solo update el numero del primer registro que almacenaste en la lista de strings

Código Delphi [-]
var
  qrySierras, qryUpdate: TZQuery;
begin
  qrySierras := // Crear el query o bien usar uno en tiempo de diseño, 
  // asumo que esta creado e inicializado con su conexion, listo para usar. Idem para qryUpdate

  // recomiendo usar una transaccion por si algo falla  
  IniciarTransaccion;
  try
    qrySierras.SQL.Text := 'SELECT sierra from Actual';
    qrySierras.Open;

    qryUpdate.sql.text := 'UPDATE Sierras SET Estado=:Estado where Numero =:Numero';
    qryUpdate.ParamByName('Estado').DataType := ftString;
    qryUpdate.Prepared := True; // puede omitirse, mejora la eficiencia. Preprocesa la sentencia update y se la envia al motor
    // para que ya vaya calculando el plan, indices, etc
    // siempre es buena idea usar un prepared cuando vamos a usar el mismo comando varias veces pero solo varian los parametros

    while not qrySierras.Eof do
    begin
      qryUpdate.ParamByName('Estado').AsString := 'No informado';
      qryUpdate.ParamByName('Numero').AsString := qrySierras.fieldbyname('sierra').AsString;
      qryUpdate.ExecSQL;    
      qrySierras.Next;
    end;
 
    CommitTransaccion;
    ZQuery4.Refresh; // no se que es, lo dejo porque esta en tu codigo
  except
    RollbackTransaccion;
    raise;
  end;
end;